KS702

KS702 KS702

User Manual: KS702

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

Download
Open PDF In Browser	View PDF

.~.
T10KI.MCR[10.1141]

~

a

z
:;

m
a
l

I

J
I
i

i

!i

i..
g

I
II:

1
13
68
187
392
438
474
522
674
708
731
834
878
929
949
971
1309
1355
1514
1664
1699
1720
1752
1779
1829
1846
1859
1942
1958
1971
2002
2031
2039
2064
2098
2139
2141
2223
2347
2459
2543
2580
2595
2762
2793
2948
3044
3079
3118
3150
3302
3371
3421
3512
3602

11:45 11-AUG-1984

MICRO 31(254)

KS10 MICROCODE V124. 27-uUL-84
Table of Contents

11:27 l1-AUG-1984
T10KI.MIC[10,1141]
07:10 27-uULY-1984
KS10.MIC[10,1141]
REVISION HISTDRY
HOW TO READ THE MICROCODE
CONDITIONAL ASSEMBLY DEFINITIONS
2901 REGISTER USAGE
MICROCODE FIELDS
LISTING FORMAT
MICROCODE FIELDS
DATAPATH 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 FIELOS
TIME CONTROL
MICROCODE FIELDS
RANDOM CONTROL BITS
MICROCODE FIELDS
NUMBER FIELD
DISPATCH ROM DEFINITIONS
HOW TO READ MACROS
GENERAL
MACROS
DATA PATH CHIP
Q
MACROS
DATA PATH CHIP
MISC.
MACROS
DATA PATH CHIP
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
15:31 27-uULY-1984
SIMPLE.MIC[10,1141]
POWER UP SEQUENCE
START NEXT INSTRUCTION
THE INSTRUCTION LOOP
FETCH ARGUMENTS
THE INSTRUCTION LOOP
STORE ANSWERS
THE INSTRUCTION LOOP
MOVE GROUP
EXCH
HALFWORD GROUP
DMOVE, DMOVN, DMOVEM, DMOVNM .
BOOLEAN GROUP
ROT, LSH, uFFO
ROTATES AND LOGICAL SHIFTS
LSHC
ROTATES AND LOGICAL SHIFTS
ASHC
ROTATES AND LOGICAL SHIFTS
ROTC
ROTATES AND LOGICAL SHIFTS
TEST GROUP
COMPARE -- CAl, CAM
ARITHMETIC SKIPS -- AOS, 50S, SKIP
CONDITIONAL uUMPS -- uUMP, AOu, SOu, AOBu
AC DECODE uUMPS -- uRST, uFCL
EXTENDED ADDRESSING INSTRUCTIONS

Page 1

T10KI.MCR[10,l141]
3643
3665
3762
3795
3847
4046
4075
4108
4159
4300
4377
4498
4563
4603
4649
4726
4739
4773
4826
4914
5073
5181
5255
5256
5301
5330
5380
5415
5452
5519
5530
5619
5680
5734
5844
5845
5900
5942
5987
6018
6066
6090
6151
6283
6441
6495
6514
6529
6536
6547
6610
6633
6647
6680
6704

11:45 ll-AUG-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
DADO, 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, ILDB, LOB, IDPB, 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[10,l141]
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,l141]
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
EXTEND
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

~
\

,I

Ti0KI .MCR[ 10,1141]
6741
6827
6856
6877
6921
6960
6961
6992
7098
7200
7241
7272
7311
7325
7365
7506
7521
7709
7733
7814
7869
7961
7963

EXTEND
EXTEND
EXTEND
EXTEND
EXTEND

11:45 11-AUG-1984

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,1141]
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
ROPI & 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
DCODE Location / Line Number Index
UCODE Location / Line Number Index

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

Page 3

T10KI.MCR[10,1141]
T 10K I . MI C [ 10, 1 14 1 ]
1
2
3
4
5

; 6
;' 7

8
9

11:45 11-AUG-1984
11:27 11-AUG-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Tl0KI.MIC[10,1141]

.NOBIN
;KS10 MICROCODE PARAMETER FILE
;PARAMETER FILE DEFINITIONS FOR T10KI
;TOP$-10 KI PAGING MICROCODE (V7.02)
.SET/UBABLT=l
.SET/KLPAGE=O
. SET /NONSTD= 1

SUPPORT UBABLT INSTRUCTIONS
REMOVE KL PAGING (REQUIRED FOR UBABLT)
FOR NDW, CALL THIS VERSION NON-STANDARD

10
11

12
13

I
«

.BIN

Page 4
11:27 11-AUG-1984

14
15
16
17
18

19
20
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.

. TITLE

MICRO 31(254)

11:45 11-AUG-1984
07: 10 27-JULY-1984

T 10K I . MC R.[ 10. 1 14 1 ]
KS10.MIC[10,1141]

KS10 MICROCODE V124, 27-JUL-84
T10KI.MIC[10,1141]

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

" " " " " " " " "

" " " " " " " " "

~

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

j

,~

. .......... .

.......... .

" " ' "

"

'"

1

,

,

9'"

,

........................................................................................
" " " " " " " " " " " " " " " " " ' "

""",

i'

9'

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 ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED
ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT
NOTICE.
THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,
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 SUPPLIEO BY DEC.
DESIGNED AND WRITTEN BY:
OONALD A. LEWINE
OIGITAL EQUIPMENT CORP.
MARLBORO, MASS.
MR1-2/E47 X6430
MAINTAINED AND ENHANCED BY:
DONALD D. DOSSA
DIGITAL EQUIPMENT CORP.
MARLBORO, MASS.
MR1-2/E18 DTN 231-4138
SEAN KEENAN
DIGITAL EQUIPMENT CORP.
MARLBORO, MASS.
MR1-2/E18 DTN 231-4463

TIMLITT
PK01/C-2 223-6334

...
" ,

Page 5
11:27 11-AUG-1984

T10KI.MCR[10,1141]
KS10.MIC[10,11411
68

11:45 11-AUG-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
REVISION HISTORY

.TOC

"REVISION HISTORY"

;REV
;1

WHY
START KS10 MICROCODE BASED ON SM10 MICROCODE VERSION 510
UPDATE TO KS10 VERSION 512
FIX SOME DEFAULTS
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 & RDIO 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.

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

I

100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

;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

a

Tl0KI.MCR[10,l141]
KStO.MIC[10,l141]
·122
123
124
125
126
127
128
129
130
131
132
133
134
, 135
;. 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
174
175
176
177

;60
; 61
:62
;63
,
;64
;65
;66
;67 .
,

;70
,

; 71
;72
,

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
REVISION HISTORY

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.

CORRECT 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.
,
EDIT 60 BROKE TRAPS. MISSING =0 AT TRAP:.
;75
CORRECT BUG IN DFAD AND DFSB
;76
FIX PROBLEM SEEN IN SOME (ALL BUT ENGINEERING?) MACHINES CAUSED
;77
,
BY EDIT 76
CHANGE DFAD/DFSB TO HAVE 2 MORE GUARD BITS. THIS SHOULD PRODUCE
; 100
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
;103
CORRECT DFDV ROUNOING 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 SHOULD.
: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 00 NOT WORK CORRECTLY. DSKDA FAILS BECAUSE OF THIS
PROBLEM.
,
;******* VERSION 111 WENT OUT WITH SYSTEM REV 2 *******
;73
:74

; 112
; 113
,

;114
:115
; 116

; 117

,

;120
,

; 121

FIX COMMENT IN TEST INSTRUCTIONS
CORRECT 10EA TO COMPUTE CORRECT ADDRESS IF JUST LOCAL INDEXING
IS USED.
CORRECT INTERRUPT BUG IN DMUL
CORRECT COMMENTS HALT STATUS BLOCK
CORRECT PROBLEM WHERE CST MODIFIED BIT GETS SET BY MISTAKE.
RDINT INSTRUCTION DOES NOT WORK AT ALL. IT STORES RANDOM 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
HANDLEO. THIS CAUSES THE OPERATING SYSTEM TO LOSE TRACK OF THE
PASSAGE OF TIME.

Page 7

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

5

J

;122
,

;123

,

;124

11:45 11-AUG-1984
07:10 27-uULY-1984

MICRO 31(254)

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

KS10 MICROCODE V124, 27-uUL-84
REVISION HISTORY
GET WRONG
TO FIX PROBLEM
ADDRESS FOR
UPDATE.
TO/FROM ILDB FORM.
SPACE FOR BLTUB/BU.

Page 7-1

~
\
)
T10KI.MCR[10,l141]
KS10.MIC[ 10,1141]
187
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

.TOC

11:45 11-AUG-1984
07:10 27-vULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-vUL-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 "D" IS SPECIFIED AS THE DEFAULT MECHANISM,
AND IN THAT CASE, GIVES THE DEFAULT VALUE OF THE FIELD IN OCTAL.
WHEN "F" IS
SPECIFIEO AS THE DEFAULT MECHANISM, (v) IS THE NAME OF A FIELD WHICH CONTAINS
THE DEFAULT VALUE FOR THIS FIELD. .
.
THE PARAMETER (L) GIVES THE BIT POSITION OF THE LEFTMOST 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 NUMBERED 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 "D", "F", "T", "P", OR
"+11.

"0" MEANS (v) 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 VALUJ OF
DEPENDS ON THE TIME PARAMETERS SELECTED FOR OTHER FIELDS.
USED IN THE KS10.

THE FIELD
"T" IS NOT

UP" IS USED ON THE PARITY FIELD TO SPECIFY THAT THE VALUE OF
SHOULD DEFAULT SUCH THAT PARITY OF THE ENTIRE WORD IS DOD.
USED ON THE KS10.

THE FIELD
uP" IS NOT

"+" IS USED ON THE vUMP 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 PO THE SET OF BITS WHICH PROVIDE
FOR MIXERS OR DECODERS, OR CONTROLS FOR ALU'S.

SELECT

INPUTS

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

I
&

I
4:

238
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
27!S
.276
277
278
279
280
281
282
283
284
285
286
287

11:45 11-AUG-1984
07:10 27-vULY-1984

MICRO 31(254)

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

Page 9

2.0 VALUE DEFINITIONS
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 ADORESS OF THE MICROINSTRUCTION BECOMES THE
VALUE OF THE SYMBOL IN THE FIELD NAMED "J".
EXAMPLE:
FOO:

v/FOO

THIS IS A MICROINSTRUCTION WHOSE "v" 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 OIGIT STRING, OR A DECIMAL DIGIT STRING (DISTINGUISHED BY THE FACT THAT IT
CONTAINS "8" AND/OR "9" 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 CONTI NUA TI ON
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

T 10K I . MCR [ 10, 1141 1
KS10.MIC[ 10,1141]

11:45 11-AUG-1984
07:10 27-JULY-1984

288
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

THE FOLLOWING LINE.
REAO [ARl,
SKIP DP18,
SC_SHIFT-1,

MICRO 31(254)

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

Page 10

EXAMPLE:

LOAD FE,
INST DISP

;LOOK AT EFFECTIVE ADDRESS
;SEE 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 fl.

THE

FOR EXAMPLE,

[l [l "AD/A,A/.2.DEST/AO,B/.1"
THE .1 GETS REPLACED BY WHAT IS WRITTEN IN THE FIRST SET
REPLACED BY WHAT IS WRITTEN IN THE SECOND SET OF fl. THUS

OF

[]

AND

.2

IS

[AR] [ARX]

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

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 FOR 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

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

J

It

344
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
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
HOW TO ~EAD THE MICROCODE

Page 11

9.0 LOCATION CONTROL
A MICROINSTRUCTION "LABELLED" WITH A NUMBER IS ASSIGNED TO THAT ADDRESS.
THE CHARACTER "=" AT THE BEGINNING OF A LINE, FOLLOWED BY A STRING OF 0'5, 1'5,
AND/OR
*'5,
SPECIFIES
A CONSTRAINT
ON
THE
ADDRESS
OF
FOLLOWING
MICROINSTRUCTIONS. THE NUMBER OF CHARACTERS IN THE CONSTRAINT STRING (EXCLUDING
THE Om") 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 0'5 IN THE CONSTRAINT STRING AND 1 BITS WHERE THE
CONSTRAINT HAS 1 'S. ASTERISKS DENOTE "DON'T CARE" BIT POSITIONS.
IF THERE ARE ANY 0'5 IN THE CONSTRAINT STRING, THE CONSTRAINT IMPLIES A BLOCK OF
<2**N> MICROWORDS, WHERE N IS THE NUMBER OF 0'5 IN THE STRING. ALL LOCATIONS IN
THE BLOCK WILL HAVE 1'S IN THE ADDRESS BITS CORRESPONDING TO 1'5 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 O'S IN THIS CONSTRAINT, THE ASSEMBLER FINDS ONLY ONE LOCATION
MEETING THE CONSTRAINT.
=0*****
THIS SPECIFIES AN ADDRESS IN WHICH 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 ABOVE.

/\

/

I""'.
,

J

/

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

,
;
;

;
;
;

392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
; 416
; 417
418
419
420
421
422
423
;424
;425
426
427
428
429
430
431
432
433
434
435
436
437

. TOC

11:45 11-AUG-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 12
CONDITIONAL ASSEMBLY DEFINITIONS

"CONDITIONAL ASSEMBLY DEFINITIONS"

.DEFAULT/SIM=O

;O=RUN ON REAL HARDWA~E
;1=RUN UNDER SIMULATOR

.DEFAULT/FULL=1

;O=INCLUDE ONLY BASIC INSTRUCTIONS
;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 0 AND 107 EVER
; GET LOADED INTO THE CRAM. OTHER FIELDS
; ARE USED FOR DEFAULTING PROCESS.

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

T10KI.MCR[10.1141]
KS10.MIC[10.1141]

!

a

~

:K

l!!

;;
If

i

II:

•

~

oj

I

;;;

I
IE

I

)
g

I
.t

438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473

.TOC

·;0:
·; 1 :

11:45 11-AUG-1984
07:10 27-vULY-1984

MICRO 31(254)

KS10 MICROCODE V124. 27-vUL-84
2901 REGISTER USAGE

"2901 REGISTER USAGE"

1=========================================================================!

!

MAG (ONES IN BITS 1-36. REST ZERO)

!

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

1

PC (ADDRESS OF CURRENT INSTRUCTION + 1)

!

;4 :

!-------------------------------------------------------------------------1
1
HR (CURRENT INSTRUCTION)
!------------------------------------------------------------------------!
AR (TEMP -- MEM OP AT INST START)
!------------------------------------------------------------------------!
ARX (TEMP -- LOW ORDER HALF OF DOUBLE PREC)

;5:

!

·
·
·
·
·

;2:

;3:

;6:

·;7:
·; 10:
·; 11 :

·

; 12:

·; 13:
·; 14:
,
; 15:

·;16:
·; 17:

1-----------------------------------------------.--------~-----------------

BR (TEMP)

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

!

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

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

!

ONE (THE CONSTANT 1)

!

EBR (EXEC BASE REGISTER)

!

!

UBR (USER BASE REGISTER)

1

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

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

!-------------------------------------------------------------------------!
!
MASK (ONES IN BITS 0-35. ZERO IN -1. -2. 36 AND 37)
1
!-------------------------------------------------------------------------1
1

FLG (FLAG BITS)

!

PAGE FAIL CODE

!

!-------------------------------------------------------------------------!
!
PI (PI SYSTEM STATUS REGISTER [RDPI])
!

1-------------------------------------------------------------------------!
!
XWD 1 (1 IN EACH HALF WORD)
!
!-------------------------------------------------------------------------1
TO (TEMP)

!

!-------------------------------------------------------------------------!
!
T1 (TEMP)
1
1=========================================================================!

Page 13

~
'T10KI.MCR[10,1141]
/

KS 10. MI C [ 10, 1141 ]
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
5Q3
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521

.TOC

11:45 11-AUG-1984
07: 10 27-JULY-1984

MICRO 31 (254)

KS10 MICROCOOE V124, 27-JUL-84 Page 14
MICROCODE FIELDS -- LISTING FORMAT

"MICROCODE FIELDS -- LISTING FORMAT"
3633
3634
3635
3636

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

[--]

I!!
[][] !!![-][][-J[]!!!!
[----]
!!!!!!!!
II!
!
I!!
I!!!
I!!
+---!! !
!!! !
!! !
! !+------------!!! !
!! !
!!
!!! !
!! !
!+-------------!!! !
!! !
!!!
!!!!
!. +--------------!!! !
! !!
!
!!! !
!! !
!!! !
!! !
!!!
! !! !
!!!!
!!!!
+------------------!!ll
!!!!
!
!!!!
!!!!
+---------------------!!!!
!!!!!
!!!!
IJ!!
+-----------------------!!!!
!!ll
!!!!
!! !+----------------------~---!!!!
!!!
!!!!
! !+---------------------------!!!!
!!
I!!!
!+----------------------------!!! !
! !! !
! !! !
!
! !!!
+-----------------~--------------!!! !
! ! !!
!! I!
I!!+------------------------------------I! 1
! !+-------------------------------------!1
!+---------------------------------------

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

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

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

#

+--------------------------------------------LOCATION OF THIS MICRO WORD

[AR] AC-[AR],
AD FLAGS, 3T,
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
DISP
SPEC
CLOCKS & PARITY (CLKR, GENR, CHKR, CLKL, GENL, CHKL)
DBM
DBUS
RAM ADDRESS

B
A
DEST
RSRC
LSRC

1

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

1561:
SUB:

- AD
ALU
J

Tl0KI.MCR[10,l141]
KS10.MIC[ 10,1141]

~

E
...z
0

~

~

~
dO

~
.!
~

@

;

."
~
~

E
~

J
~

I
~

522
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

.TOC

11:45 l1-AUG-1984
07: 10 27-JULY-1984

MICRO 31(254)

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

"MICROCODE FIELDS -- DATAPATH CHIP"

J/=+

;CRAl
;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. NORMALY THE RIGHT HALF SRC CODE IS THE SAME AS
; THE LEFT HALF.
AD/=<12:17>D,44
;DPE1 & DPE2
A+Q=OO
A+B=Ol
0+Q=02
0+B=03
0+A=04
D+A=05
D+Q=06
0+0=07
Q-A-.25=10
B-A-.25=11
Q-.25=12
B-.25=13
A-.25=14
A-D-.25=15
Q-D-.25=16
-0-.25=17
A-Q-.25=20
A-B-.25=21
-Q-.25=22

-B-.25=23
-A-.25=24
D-A-.25=25
D-Q-.25=26
0-.25=27
A.OR.Q=30
A.OR.B=31
Q=32
B=33
A=34
D.DR.A=35
D.OR.Q=36
0=37
A.AND.Q=40
A.AND.B=41

o

T10KI.MCR(10,1141]
KS10.MIC(10,1141]

!

a
if

I0

•i
~

a:

~

i

!
.1

~

g

,
j

E

]

I'"
g

I

569
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

11:45 11-AUG-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
D.XOR.A=65
D.XOR.Q=66
D=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 USED 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=O
;A Q
AB=1
;A B
OQ=2
;0 Q
OB=3
;0 B
OA=4
;0 A
DA=5
;D A
DQ=6
;D Q
DO=7
;0 0

KS10 MICROCODE V124. 27-JUL-84 Page 16
MLCROCODE FIELDS -- DATAPATH CHIP

T10KI.MCR[10,1141]
KS10.MIC[ 10,1141 J

~
~

~

i

~
i

i

!

i

w

e

';

.li

•

~
~

)

•

II

~

Ii:

,

620
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

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

;DESTINATION CONTROL
;SEE DPE1 AND DPE2 (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
AD=1
;REG FILE IS NOT LOADED
o AD=2
;AD OUTPUT IS CHIP OUTPUT
PASS=3
; '0 AND REG FILE LEFT ALONE
;ALSO REG FILE GETS AD*2
o 0*2=4
;AND 0 IS LEFT ALONE
AD*2=5
;ALSO REG FILE GETS AD*.5
o 0*.5=6
;AND 0 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,O
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

~

T10KI.MCR[10,1141]
KS10.MIC[ 10,1141]
674
675
676
677
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

.TOC

11:45 11-AUG-1984
07: 10 27-JULY-1984

MICRO 31(254)

"MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS"

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

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

KS10 MICROCODE V124, 27-JUL-84 Page 18
MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS

T10KI.MCR[10.1141]
KS10.MIC[10,1141]
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730

!

J

i
w

. !E
I

f

.TOC

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

"MICROCODE FIELDS -- PARITY GENERATION & HAL~ WORD CONTROL"

AD PARITY

OK/~<108>D,O

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

CLKL/~<45:45>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,l

GENR/~<49:49>F,AD

CHKR/=<50:50>

;DPE5
;CLOCK THE RIGHT HALF OF THE MACHINE
PARITY OK ;DPE4 FROM CRM2 PARITY EN RIGHT H
STORE PARITY FOR 2901 RIGHT
DPE4 FROM CRM2 PARITY CHK RIGHT H
CHECK RIGHT HALF DBUS PARITY

~
---)
'\

T 10K I . MC R [ 10, 1 14 1 ]
KS10.MIC[ 10,1141]
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783

.TOC

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

"MICROCODE FIELDS -- SPEC"

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

!=========================================================================!
! S!
IP!
!E!
ICI

EFFECT
ON SHIFT
PATHS
(SEE DPE1)

!

CRA6 SPEC
EN 40
E102 ON DPE5

!

I

I

CRA6 SPEC
EN 20
E101 ON DPE5
E411 ON DPMA

I

CRA6 SPEC
EN 10
E410 ON DPMA
E113 ON CRA2

1

!=========================================================================1

!O!
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
ASH TEST
SET SWEEP
PAGE WRITE
I
!-------------------------------------------------------------------------1
! 5!
LSHC
!
EXP TEST
!
APR EN
!
NICOND
!

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

!6!
OIV
!
PC FLAGS
!
PXCT OFF
!
PXCT EN
!
!-------------------------------------------------------------------------!
!7!
ROTC
! AC BLOCKS EN!
MEM CLR
!
MEM WAIT
!

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

THE DPM BOARD USES THE SPEC FIELD TO CONTROL THE
DBM MIXER, AS FOLLOWS:

!=====================================!
S

I

P
E
C

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

!=====================================!
! O!
ALL
!
NONE
!
!-------------------------------------!
7-35

0-6!

-------------------------------------!
2

!0-6 AND 14-35 !

7-13

3

!0-13 AND 21-35!

14-20

!

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

-------------------------------------!
4
!0-20 AND 28-35!
21-27
!

-------------------------------------!
5
! 0-27 AND 35
28-34
!-------------------------------------!

!

6

!

SAME AS ZERO

!

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

!

7

SAME AS ZERO

!

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

Page 20

T10KI.MCR[10,1141]
KS10.MIC[10.1141]

~

a
Ii

I0

i

~

i
J
It

u

g

~

·1

.ii

g

~

f

I
g

j
It

784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833

11:45 11-AUG-1984
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.
SPEC/=<51:56>D.0
#=10
CLRCLK=11
CLR 10 LA TCH= 12
CLR 10 BUSY=13
LDPAGE=14
NICOND=15
LDPXCT=16
WAIT= 17
PREV=20
LOADXR=21
APR FLAGS=23
CLRCSH=24
APR EN=25
MEMCLR=27
SWEEP=34
PXCT OFF=36
INHCRY18=40
LDADIR=41
LDPI=43
ASHOV=44
EXPTST=45
FLAGS=46
LDACBLK=47
LDINST=61

;DPEl & DPE5 & DPMl & DPMA
;DECODE # BITS
;CLEAR 1MS NICOND FLAG
;CLEAR 10 LATCH
; CLEAR 10 BUSY
;WRITE PAGE TABLE
;DOING NICOND DISPATCH
;LOAD PXCT FLAGS
;MEM WAIT
;FoRCE PREVIOUS CONTEXT
;LoAD XR #, USES PXCT FIELD TO SELECT
; CORRECT AC BLOCK
:LoAD APR FLAGS
;CLEAR CACHE
: SET APR ENABLES
;CLEAR PAGE FAULT CONDITION
;SET SWEEP
;TURN OFF THE EFFECT OF PXCT
;INHIBIT CARRY INTO LEFT HALF
:LOAD THE IR
:LoAD PI SYSTEM
:TEST RESULT OF ASH
;TEST RESULT OF FLOATING POINT
:CHANGE PC FLAGS
:LOAD AC BLOCK NUMBERS
:LOAD INSTRUCTION

;THE SPEC FIELD IS REDEFINED WHEN USED FOR BYTE MODE STUFF
BYTE/=<54:56>
;DPMl (SPEC SEL)
BYTE 1 = 1
BYTE2=2
BYTE3=3
BYTE4=4
BYTE5=5
;THE SPEC FIELD IS REDEFINED 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=l
:SHIFT IN ONES
ONES=2
; ROTATE
ROT=3
;ASHC
ASHC=4
;LSHC
LSHC=5
:SPECIAL DIVIDE
DIV=6
: ROTATE DOUBLE
ROTC=7

Page 21

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

.TOC

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

"MICROCODE FIELDS -- DISPATCH"
!=======================================================!
! 0 !
CRA 1
!
CRA 1
!
OPEl.
! I !
DISP
DISP
DISP
! S !
10
20
40
! P! !
!
!=======================================================!
! O!
DIAG ADR
!
DIAG ADR!
0
!
!-------------------------------------------~-----------I

! 1!

RETURN

RETURN!

DP 18-21

!-------------------------------------------------------I
! 2!
MU LTI PLY!
J
!
J
!-------------------------------------------------------I
! 3!
PAGE FAIL
!
AREAD
!
AREAD
!
!-------------------------------------------------------I
! 4 !
NICOND
!
NOT USABLE!
NORM
!
!------------------------~------------------------------I

! 5 !

BYTE

!

NOT USABLE

!

DP 32-35

!

!-------------------------------------------------------I
! 6!
EA MODE
NOT USABLE
DROM A
!-------------------------------------------------------I
! 7 !
SCAD
NOT USABLE!
DROM B
,
;NOTE:

!=======================================================!
DISP EN 40 &-DISP 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 BOTH 20 & 40 OR 20 & 10 MUST BE ENABLED.

DISP/=<5J:62>D,70
CONSOLE=OO
DROM=12
AREAD=13
DP LEFT=31
NORM=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 A~DRESS MODE
;J!2 IF SCAD BIT 0 = 1

Page 22

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

~

~
~0

~
~
~

;t

:
'i
~

~
w

.,il
oil

g

~
~
11

I
I
~

B7B
B79
BBO
BBl
BB2
BB3
BB4
B85
886
887
B88
BB9
890
B91
892
893
894
B95
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

.TOC

11:45 ll-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

"MICROCODE FIELDS -- SKIP"
!=======================================================!
! S !
CRA2
!
OPE A
!
DPEA
!
! K !
SKIP
SKIP
SKIP
! I !
10
20
40
! P !
!
!=======================================================!
! 0 !
0
!
0
0

!-------------------------------------------------------I
! 1!
TRAP CYCLE!
CRY 02
!
CARRY OUT
!-------------------------------------------------------I
! 2 !
AD=O
!
ADL SIGN
!
ADL=O
!
!-------------------------------------------------------I
! 3!
SC SIGN
!
ADR SIGN
ADR=O

!-------------------------------------------------------I
! 4!
EXECUTE
USER IDT
-USER
!-------------------------------------------------------I
! 5!

-BUS 10 BUSY

!

JFCL SKIP

!

FPD FLAG

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

! 6!

-CONTINUE

!

CRY 01

!

AC # IS ZERO

!

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

! 7!

-1 MSEC

!

TXXX

.!

INTERRUPT REQ

!

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

SKIP/=<63:68>D,70
IOLGL=04
LLE=12
CRYO=31
ADLEQO=32
ADREQO=33
KERNEL=34
FPO=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 10T)!(CONSOLE EXECUTE MODE)
;AO 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)
;AO CRY 02
;AD SIGN
; AD BIT 18
;USER lOT
;JFCL SKIP
;AD CRY 1
;TEST INSTRUCTION ~HOULO 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

~

t-

T10KI.MCR[10,1141]
KS10.MIC[ 10,1141]
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948

.TOC

11:45 11-AUG-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=0
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
;FDUR TICKS
; FIVE TICKS

T10KI.MCR[10,l141]
KS10.MIC[ 10.1141]
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970

.TOC

11:45 ll-AUG-1984
07: 10 27-JULY-1984

MICRO 31(254)

KS10 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 110 CYCLE UNDER
; CONTROL OF THE NUMBER FIELD.
;DPE5
;THIS MICROINSTRUCTION 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

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

E

az
.
"

~
~

i
!
I:

'I

!"

I

I•
:;;

I
..g
~

I

971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
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

.TOC

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

"MICROCODE FIELDS -- NUMBER F[ELD"

;HERE IS THE GENERAL FIELD
#/=<90:107>
;MANY PLACES
;# REDEFINED WHEN USED AS SCAD CONTROL:
SCAD/=<90:92>
;DPM3'
A*2=0
A.OR.B=1
A-B-1=2
A-B=3
A+B=4
A.AND.B=5
A-1=6
A=7
;DPM3
SCADA/=<93:95>
SC=O
S#=1
PTR44=2 ;44 AND BIT 6 (SEE DPM3)
BYTE1=3
BYTE2=4
BYTE3=5
BYTE4=6
BYTE5=7
;DPM3
SCADB/=<96:97>
FE=O
EXP=1
SHIFT=2
SIZE=3
S#/=<98: 107>
;DPM3
I

;# REDEFINED WHEN USED AS STATE REGISTER CONT~OL:
;NOT USED BY HAROWARE
STATE/=<90: 107>
;SIMPLE INSTRUCTIONS
SIMPLE=O
;BLT IN PROGRESS
BLT=1
;MAP IN PROGRESS
MAP =400002
;MOVE STRING SOURCE IN PROGRESS
SRC=3
;MOVE STRING FILL IN PROGRESS
DST=4
;MOVE STRING DEST IN PROGRESS
SRC+DST=5
;FILLING DEST
DSTF=6
;CONVERT DEC TO BIN
CVTDB=7
;COMPARE DEST
COMP-DST=10
; EDIT SOURCE
EDIT - SRC= 11
; EDIT DEST
EDIT-DST=12
;BOTH SRC AND DST POINTERS
EDIT-S+D=13

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

T10KI.MCR[10,1141]
KS10.MIC[ 10,1141]
1017
1018
1019
1020
1021
1022
1023
1024
1025
102~

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

11:4511-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

;# REDEFINED WHEN USED AS WORSPACE ADDRESS

;OPE6
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
TIME1=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

~
\

J

Tl0KI.MCR[10,l141]
KS10.MIC[10,l141]
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076

11:45 11-AUG-1984
07: 10 27-vULY-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)

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

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

T10KI .MCR{ 10.11411
KS10.MIC[10.11411

~

~

•i..
~

it

~
i

!
I

l.;
~

~

"5

i..
Ii

!
!
it

MICRO 31(254)

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

1077 ;# REDEFINED WHEN USED AS PC FLAG CONTROL (ALL ON DPE9)
1078
1079 SETOV/=<90>
;DPE9
1080
;SET ARITHMETIC OVERFLOW
1081 SETFOV/=<91>
;SET FLOATING OVERFLOW
1082 SETNDV/=<92>
; SET NO DIVIDE
10Q3
1084 ._-------------------------------------------------------------------·1085
1086 CLRFPO/=<93>
;CLEAR FIRST PART DONE
1087 SETFPO/=<94>
;SET FIRST PART DONE
1088 HOLD USER/=<95>
;WHEN THIS BIT IS SET IT:
1089
; 1. PREVENTS SETTING USER lOT IN USER MODE
1090
; 2. PREVENTS CLEARING USER IN USER MODE
1091
1092 ---------------------------------------------------------------------1093
<96>
;SPARE
1094 ;
;SET TRAP 2
1095 TRAP2/=<97>
1096 TRAP1/=<98>
;SET TRAP 1
1097
1098 ._-------------------------------------------------------------------;' 1099
;LOAD PCU FROM USER
1100 LD PCU/=<99>
<100>
1101
;SPARE
<101>
1102
;SPARE
1103
1104 ~----------------------------------------------------- --------------"-1105
<102>
1106
;SPARE
<103>
1107 ;
;SPARE
1108 JFCLFLG/=<104>
;00 A JFCL INSTRUCTION
1109
1110 ---------------------------------------------------------------------1111
1112 LD "FLAGS/=<105>
;LOAO FLAGS FROM DP
<106>
1113 ;
1114 ADFLGS/=<107>
;UPDATE CARRY FLAGS
1115

·

a

11:45 11-AUG-1984
07:10 27-JULY-1984

·

.

·

·

·

~
\

'

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

11:45 11-AUG-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
;00 NOT LOOK IN CACHE
;00 NOT INVOKE PAGING HARDWARE

,~----------------------------------------------------- ---------------PXCT /=<99: 101 >
CURRENT=O

;WHICH PXCT BITS TO LOOK AT

E 1= 1

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

,._-------------------------------------------------------------------AREAD/=<102>
DP FUNC/=<103>
LDVMA/=<104>

EXT ADR/=<105>
WAIT/=<106>
BWRITE/=<107>

;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

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

T10KI.MCR[10,1141]
KS10.MIC[10,1141]
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

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

;PREVIOUS
;THIS IS AN I/O CYCLE
;WHO ARE YOU CYCLE

,----------------------------------------------------------------------

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

;READ INTERRUPT VECTOR
;BYTE CYCLE

!

-,

~..
T10KI.MCR[10.1141]
KS10.MIC[10.1141]
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184

~
~

z

I;

~
0

If

i

t

)

..

I
;;;

!

iI

~
~

I
0(

I

11

!t

11~5

118S
·1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
; 1200
, 1201
1202
1203
1204
1205

..

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

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

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

.
~

a

~

i
i

~

.t

]
·i..
i

1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
,. 1230

11:45 11-AUG-1984
07:10 27-vVLY-1984

MICRO 31(254)

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

;N REDEFINED WHEN USED AS AC CONTROL
iTHIS FIELD CONTROLS THE INPUT TO A 74LS181 ON DPE6. THE NUMBER
FIELD HAS THIS FORMAT IN <98:107>:
!--~--!-----r-----!-----!-----!-----!-----!-----!-----!-----!

!CARRY! S8 ! S4! S2 ! S1! MODE! B8 ! B4 ! B2! B1 !
iN !
FUNCTION
DATA INPUTS
!-----!-----------------------!-----!-----------------------!
ACALU/=<98: 103>
B=25
AC+N=62
ACN/=<104: 107>
SRCLEN=O
SRCP=1
DLEN=3
DSTP=4
MARK=3
BINO=3
BIN1=4

;AC NAMES FOR STRING INSTRUCTIONS
iSOURCE LENGTH
iSOURCE POINTER
iDEST LENGTH
;DEST POINTER
;POINTER TO MARK
;HIGH WORD OF BINARY
;LOW WORD OF BINARY

!~
I

E

I
iI

1I

g

J

It

/\

~. .

(

\.

~.

\.

!

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

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

;# FIELD REDEFINED WHEN USE AS APRID DATA
MICROCOOE 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
.IFNOT/INHCST
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/NONSTO
OPT=O
.ENDIF/NONSTO
MICROCODE OPTION(UBABLT)/=<93>
.IF/UBABLT
OPT=1
. I FNOT /UBABL T
OPT=O
.ENDIF/UBABLT
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=124

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

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

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

;# FIELD REDEFINED WHEN USED AS A HALT CODE

HALT/=<90: 107>
POWER=O
HALT=1
CSL=2
IOPF= 100
ILL! 1= 101
I LL!NT= 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
;CDDES 100 TO 777 ARE SOFTWARE ERRORS
;1/0 PAGE FAIL
;ILLEGAL INTERRUPT INSTRUCTION
;BAD POINTER TO UNIBUS INTERRUPT VECTOR
;CODES 1000 TO 1777 A~E HARDWARE 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

T10KI.MCR[10,1141]
KSlO.MIC[ 10.1141]
1309
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

.TOC

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

"DISPATCH ROM DEFINITIONS"

;ALL ON DPEA
.DCDDE
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

;OPERAND FETCH MODE
;RfAD
;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 THE RESULT
ROUND/=<8>
;SEPARATE ADD/SUB & MUL/DIV ETC.
MODE/=<9>
;STORE RESULTS AS
FL-B/=<10:11>
;AC
AC=1
;MEMORY
MEM=2
;BOTH
BOTH=3
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,1
WRITE/=<30>
.UCODE

Page 36

T10KI.MCR(10.1141]
KS10.MIC[10.1141]

;

~
~

z

I-

0

~
~

i

.t

5

."5
~

Iii

·i

.;:

g

~
~

£

1
«

I
.t

1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
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
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405

.TOC

11:45 11-AUG-1984
07: 10 27-JULY-1984

MICRO 31(254)

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:
[AR] (AR]+(BR]
THE SYMBOL
IS PRONOUNCED "GETS".
THE AR· 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:

NOT

2901

REGISTERS.

1.

AC -- THE AC SELECTED BY THE CURRENT INSTRUCTION.

SEE DPEA

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 BYTE POINTER.

11.

TIME -- THE 1MS.

12.

VMA -- THE VMA.

13.

XR -- INDEX REGISTER

SAME IDEA AS EXP.

TIMER
WHEN READ IT INCLUDES THE VMA FLAGS

HALF

~..

!~
\

/

T10KI .MCR[ 10,1141]
KS10.MIC[ 10,1141 J
1406
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

11:45 11-AUG-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 IS
SHIFTED. THIS SAYS NOTHING ABOUT HOW THE SHIFT PATHS ARE CONNECTED UP.

2.0

FOR

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

T10KI.MCR[10,1141]
KS10.MIC[10,1141]
1455
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
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505

11:45 11-AUG-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.

4.

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

5.

S# -- THE SMALL NUMBER.
MIXER.

THE 10

NUMBER.

~IT

Page 39

FOR EXAMPLE FE_EXP LOADS

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
;LOAO APR ENABLES FROM DP
SET NO DIVIDE
;SET NO DIVIDE PC FLAG

6.0

SKIPS

ALL SKIPS CAUSE THE NEXT MICRO 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

THERE ARE PLACES WHERE ONE MICRO INSTRUCTION IS USED IN MANY PLACES.
FOR
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
INSTR~CTION.
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

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

11 :45 11-AUG-1984
07:10 27-JULY-1984

1506
1507
1508
1509
1510
1511
1512
1513

SUPER MACROS ARE:
PAGE FAIL TRAP
DONE
HALT []

MICRO 31(254)

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

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

Page 40

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

i

az
b

m
~

t

it

3
.~

~

ili

!

.ii
~

~
~

I
IG.

1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566

.TOC

11:45 11-AUG-1984
07: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"

. NOT. [ 1
[J+[]
[ ]-[]
[] -#

[]. AND. #
[].AND.Q
[ ] . AND. [ ]
[l.AND.NOT.[]
[ ] . OR. [ ]
[] .XOR. #
[ ] . XOR. [ ]

"AD/.NOT.A,A/@1"
"AD/A+B,A/@1,B/@2"
"AD/A~B-.25,A/@1,B/@2,ADD .25"
"AD/A-D-.25,DBUS/DBM,OBM/#,A/@1,ADD .25"
"AD/D.AND.~,DBUS/DBM,DBM/#,A/@1"

"AD/A.AND.Q,A/@1,DEST/PASS"
"AD/A.AND.B,A/@2,B/@1,DEST/PASS"
"AD/.NOT.A.AND.B,A/@2,B/@1,OEST/PASS"
"AD/A.OR.B,A/@2,B/@1,DEST/PASS"
"AD/D.XOR.A,DBUS/DBM,DBM/#,A/@1"
"AD/A.XOR.B,A/@2,B/@1,DEST/PASS"
"AD/D-A-.25,DEST/AD,A/@2,B/@1,DBUS/DBM,DBM/#,ADD .25"
[] #-[]
"AD/D,DBUS/DBM,DBM/#,DEST/AD,B/@1"
[C#
[ ]--1
"AD/-A-.25,A/ONE,DEST/AD,B/@1,ADD .25"
"AD/-A-.25,DEST/AD*2,A/ONE,B/@1,ADD .25"
[]--2
[]--Q
"AD/-Q-.25,DEST/AD,B/@1,ADD .25"
"AD/-Q-.25,DEST/AD*2,B/@1,ADD .25"
[]--Q*2
"AD/-Q-.25,DEST/AD*.5,B/@1,ADD .25"
[]--Q*. 5
"AD/-A-.25,A/@2,DEST/AD,B/@1,ADD .25"
[]--[]
"AD/-A-.25,A/@2,DEST/AD,B/@1"
[] -[]-.25
"AD/-A-.25,A/@2,DEST/AD*2,B/@1,ADD .25"
[]--[]*2
"AD/.NOT.D,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1"
[C.NOT .AC
"AD/.NOT.D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,DT/3T"
[]-.NOT .AC[]
"AD/.NOT.Q,DEST/AD,B/@1"
[C.NOT .Q
"AD/,NOT.A,A/@2,DEST/AD,B/@1"
[]-.NOT.[]
[ ]-0
"AD/ZERO,DEST/AD,B/@1"
"AD/ZERO,DEST/Q Q*.5,B/@1"
[]-0*.5 LONG
"AD/47,DEST/AD,i3/@1,DBM/#,DBUS/DBM,#/@2,RSRC/DA,A/MASK"
[J-O XWD []
"AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,AD PARITY"
[ ]-AC
"AD/-D-.25,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,ADD .25"
[ C-AC
"AD/-D-.25,OBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,ADD .25,DT/3T"
[]--AC[]
"AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD*.5,B/@1,DT/3T"
[]-AC*.5
"AD/D,DBUS/RAM,RAMADR/AC#,DEST/Q Q*.5,B/@1,DT/3T"
[ ]-AC*. 5 LONG
"AD/D,DBUS/RAM,RAMADR/AC#,DEST/A5*2,B/@1,DT/3T"
[]-AC*2
"AD/D+A,DBUS/RAM,RAMADR/AC#,A/ONE,DEST/AD,B/@1"
[]-AC+1
"AD/D+A,DBUS/RAM,RAMADR/AC#,A/XWD1,DEST/AD,B/@1"
[ ]-AC+1000001
"AD/D+A,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,DT/3T"
[]-AC+[)
"AD/D-A-.25,DBUS/RAM,RAMADR/AC#,A/ONE,DEST/AD,B/@1,ADD .25"
[]-AC-1
"AD/D-A-.25,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,ADD .25"
[]-AC-[]
"AD/D-A-.25,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1"
[J-AC-[]-.25
"AD/D-A-.25,A/@3,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD.B/@1,ADD .25,DT/3T"
[]-AC[]-[]
"AD/D-A-.25,A/ONE,DBUS/RAM,RAMADR/AC*#.ACALU/AC+N,ACN/@2,DEST/AD,B/@1,ADD .25,DT/3T"
[]-AC[]-1
"AD/D.AND.A,A/@3,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,DT/3T"
[]-AC[] .AND. []
•
[]-AC.AND.MASK "AD/D.AND.A,A/MASK,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,AD PARITY"
"AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,AD PARITY,DT/3T"
[J-AC[ ]
"AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD*2,B/@1,AD PARITY,DT/3T"
[]-AC[]*2
"AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD*.5,B/@1,AD PARITY,DT/3T"
[J-AC[]*.5
"AD/D,DBUS/DBM,DBM/APR FLAGS,DEST/AD,B/@1,DT/3T"
[ ]-APR
[]-CURRENT AC [] "AD/D,DBUS/RAM,RAMADR/#,ACALU/B,ACN/@2.DEST/AD,B/@1,AD PARITY,DT/3T"
"AD/57,RSRC/OA,A/@2,DEST/AD,B/@1"
[eEA FROM []

T10K! .MCR[ 10,1'141]
KS10.MIC[ 10,1141]
1567
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
1610
1611
1612
1613
1614
1615
1616
1617
1618

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE 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/@l,DEST/A,SCAD/A+B,SCADA/S#,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#/0,SCADB/FE,BYTE/BYTE5"
[]-FLAGS
"AD/D.AND.A,DBUS/PC FLAGS,A/MASK,DEST/AD,B/@1,RSRC/OQ"
[]-P
"AD/D,DEST/A,A/@1,B/@1,DBUS/DBM,DBM/DP,BYTE/BYTE1,SCAD/A+B,SCADA/S#,S#/O,SCADB/FE"
[]-PC WITH FLAGS "AD/D,DBUS/PC FLAGS,RSRC/OA,A/PC,DEST/AD,B/@l"
[]-O
"AD/Q,DEST/AD,B/@l"'
[]-0*.5
"AD/0,DEST/AD*.5,B/@1"
[]-0*2
"AD/0,DEST/AD*2,B/@1"
[]-0*2 LONG
"AD/O,DEST/O 0*2,B/@1"
[]-0+1
"AD/A+O,A/ONl,DEST/AD,B/@1"
[]-RAM
"AD/D,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@l,AD PARITY"
[]-TIME
"AD/44,RSRC/DA,A/MASK,DBUS/DBM,DBM/EXP,DEST/AD,B/@1"
[]-VMA
"AD/D,DEST/AD,B/@1,DBUS/DBM,DBM/VMA"
[]-XR
"AD/D,DBUS/RAM,RAMADR/XR#,DEST/AD,B/@1"
[]:[]
"AD/A,A/@2,DEST/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,DE~T/A5*2,B/@1"
[]-[]*2 LONG
"AD/A,A/@2,DEST/0 0*2,B/@1"
[]-[1*4
"AD/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/O+A,A/@2,DEST/AD,B/@1"
[]-[]+1
"AD/A+B,A/ONE,B/@1,B/@2,DEST/AD"
"AD/D+A, A/@2,DBUS/DBM,DBM/#, #/1, DEST / AD, B/@l"
[ ]-[ ]+ 1000001
[]-[]+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"
[]:[]+O
"AD/A+0,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/@1,B/@2,DEST/AD, ADD .25"
[]-[)-#
"AD/A-D-.25.DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@1, ADD .25~
[]-[]-1
"AD/B-A-.25,B/@1,A/ONE,DEST/AD,ADD .25"
[C[] -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/@l,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/00,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"
[]-(Q+1)*.5
"AD/A+Q,A/ONE,DEST/AD*.5,B/@1"
[]-(#-[])*2
"AD/D-A-.25,DEST/AD*~,A/@2,B/@1,DBUS/DBM,DBM/#,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 Q*.5,B/@1"
[]-(-[]-.25)*2 LONG "AD/-A-.25,A/@2,DEST/Qj5*2,B/@1"

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

11:45 ll-AUG-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.OR.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/@l,B/@2,DEST/AD*2"
[)-([]+[)*.5 LONG
"AD/A+B.A/@3.B/@l,B/@2,DEST/Q Q*.5"
[)-([]+[])*2 LONG
"AD/A+B.A/@3.B/@1,B/@2.DEST/Q-Q*2"
[]-([]-[])*.5 LONG
"AD/B-A-.25.A/@3,B/@1.B/@2.DE~T/Q Q*.5, ADD .25"
[]-([]-[J)*2 LONG
"AD/B-A-.25,A/@3.B/@i.B/@2.DEST/Q-Q*2, ADD .25"
[]-([]+[]+.25)*.5 LONG "AD/A+B.A/@3.B/@1.B/@2,DEST/Q Q*.g. ADD .25"
[]-[].AND.AC
"AD/D.AND.A,DBUS/RAM.RAMADR/AC#.A/@2.0EST/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/@3"
[]-[].AND.NOT.AC "AD/.NOT.D.AND.A.DBUS/RAM,RAMADR/AC#,A/@2.DEST/AD.B/@1"
[]-[].AND.Q
"AD/A.AND.Q,A/@2,DEST/AD,B/@1"
[]-[].AND.[]
"AD/A.AND.B,A/@3,B/@l,B/@2.DEST/AD"
[]-[].EQV.AC
"AD/D.EQV.A.DBUS/RAM.RAMADR/AC#,A/@2.DEST/AD.B/@1"
[]-[].EQV.Q
"AD/A.EQV.Q,A/@2.DEST/AD,B/@1"
[]-[].DR.#
"AD/D.OR.A,DBUS/DBM.DBM/#.A/@2.DEST/AD,B/@1"
[]=[).OR.AC
"AD/D.OR.~.DBUS/RAM.RAMADR/AC#,A/@2.DEST/AD.B/@1"
[] [].DR.FLAGS "AD/D.OR.A,DBUS/PC FLAGS,RSRC/OA,A/@1.DEST/AD,B/@1"
[]-[].OR.[]
"AD/A.OR.B,A/@3,B/@2,B/@l,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/@l,DEST/AD,B/@2"
[]-[].XOR.[]
"AD/A.XOR.B.A/@3.B/@1.B/@2.DEST/AD"
[]
[]
[]
[]

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

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

[] +SIGN
"[@1] [@1].AND.#. #/777. HOLD RIGHT"
[]--SIGN
"[@1]-[@l].OR.#. #/777000, HOLD RIGHT"
;THE FOLLOWING 2 MACROS 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/@1 . B/@l ,DEST / AD*. 5, DBUS/DBM. DBM/ #. #/777400. RSRC/OA"
[ ]--SIGN*. 5
"AD/D. OR. A, A/@l ,B/@l • DEST /AD*. 5, DBUS/DBM, DBM/ #, #/777400. RSRC/OA"

o

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

.TOC

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

Page 44

"MACROS -- DATA PATH CHIP -- Q"

Q- []

Q.AND.NOT.[]
Q_[]

Q_[]-[]
Q_[]+[]

Q [J.AND.[]
Q-.NOT.AC[]

"AD/Q-A-.25,A/~1,ADD .25"
"AD/.NOT.A.AND.Q,A/@01,DEST/PASS"
"AD/A,DEST/Q AD,A/@01"
"AD/A-B-.25,l/@1,B/@2,DEST/Q AD,ADD .25"
"AD/A+B,A/@1,B/@2,DEST/Q AD""AD/A.AND.B,A/@1,B/@02,DEST/Q AD"

"AD/.NOT.D,DBUS/RAM,RAMADR/A~*#,ACALU/AC+N,ACN/@1,DEST/Q AD,DT/3T"
"AD/-A-.25,DEST/Q AD,A/@1, ADD .25"
Q--1
"Q -[ONE]"
Q--AC[] "AD/-D-.25-;-DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DEST/Q AD,ADD .25,DT/3T"
Q--Q
"AD/-Q-.25,ADD .25,DEST/Q AD"
Q-AC
"AD/D,DBUS/RAM,RAMADR/AC#-;-DEST/Q AD,CHK PARITY"
"AD/D,DBUS/RAM,RAMADR/AC*#,ACALU7AC+N,ACN/@1,DEST/Q AD,CHK PARITY,DT/3T"
Q-AC[ ]
Q-AC[].AND.MASK "AD/D.AND.A,A/MASK,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DEST/Q AD,CHK PARITY,DT/3T"
"AD/D.AND.A,A/~2,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DEST/Q A5,CHK PARITY,DT/3T"
Q-AC[] .AND. []
"AD/.NOT.Q,DEST/Q AD"
Q=.NOT.Q
"AD/D,DBUS/DBM,DBM/#,DEST7Q AD"
Q #
Q-O
"AD/ZERO,DEST/Q AP"
"AD/47,DEST/Q A5,DBM/#,DBUS/DBM,#/@1,RSRC/DA,A/MASK"
Q-O XWD []
Q-Q+.25
"AD/O+Q,DEST/Q AD,ADD .25"
Q-Q+1
"AD/A+Q,A/ONE,5EST/Q AD"
Q-Q-1
"AD/Q-A-.25,A/ONE,DEST/Q AD, ADD .25"
Q-Q+AC
"AD/D+Q,DBUS/RAM,RAMADR/AC#,DEST/Q AD"
Q-Q*.5
"[MAG] [MASK]*.5 LONG, SHSTYLE!NORM"
Q-Q*2
"[MASK} [MAG]*2 LONG, SHSTYLE/NORM"
Q-Q.OR.#
"AD/D.oi.Q,DBUS/DBM,DBM/H,DEST/Q AD"
Q-Q.AND.#
"AD/D.AND.Q,DBUS/DBM,DBM/H,DEST/Q AD"
Q-Q.AND.[]
"AD/A.AND.Q,A/@1,DEST/Q AD"
Q-Q.AND.NOT.[] "AD/.NOT.A.AND.Q,A/@1,DEST/Q AD"
Q-Q+[]
"AD/A+Q,A/@1,DEST/Q AD"
Q-[] .AND.Q
"AD/A.AND.Q,A/@1,DEST/Q AD"
"AD/A.OR.Q,A/@1,DEST/Q_AD"
Q=[] .OR.Q

Q--[]

T10KI.MCR[10,1141]
KS10.MIC(10,1141]

I
~

~
~

1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719

.ToC

11:45 11-AUG-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 [}O
CLEAR ARXO

"AD/D.AND.A,A/@1,DBUS/DBM,DBM/#,#/377777,DEST/AD,B/@1,HalO RIGHT"
"CLEAR [ARX]O"

;CYClE CHIP REGISTERS THRU AD SO WE CAN TEST BITS
READ XR
"AD/D,DBUS/RAM,RAMADR/XR#"
READ []
"AD/B,B/@1"
READ 0
"AD/O"
;TEST BITS IN REGISTERS (SKIP IF ZERO)
TR []
"AD/D.AND.A,DBUS/DBM,DBM/#,A/@1,SKIP ADR.EQ.0,DT/3T"
Tl []
"AD/D.AND.A,DBUS/DBM,DBM/#,A/@1,SKIP ADl.EO.0,DT/3T"
;CAUSE BITS -2 AND -1 TO MATCH BIT O.
FIX [] SIGN
"AD/D,DEST/A,A/@1,B/@l1,DBUS/DP,HOlD RIGHT"
;GENERATE A MASK IN 0 AND ZERO A 2901 REGISTER
GEN MSK [1--"AD/ZERo,DEST/0_0*2,B/@1.0NES"

!
)

~
w

'ii.

;

I
~

J
I
5

.t

\

\

:~.
T10KI.MCR[10,1141]
KS10.MIC[ 10,1141]

~

a
..z
0

i

~

i
!
It

i

"~

..!

a
8

li

E

I

I
Ii
1

!It

1720
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

.TOC

11:45 11-AUG-1984
07:10 27-uULY-198~

MICRO 31(254)

KS10 MICROCODE V124, 27-uUL-84
MACROS -- STORE IN AC

Page 46

"MACROS -- STORE IN AC"

FM WRITE

"FMWRITE/1"

AC[] [] VIA AD
AC [] VIA AD
ACYl []
AC[]-[] TEST
Ac[]_[]+1
AC[]-[]*2
AC []
AC-[] TEST
AC-[ ]+ 1
AC-[ ]+0
ACYl []+O
AC[]-[]-[]
AC[]-[]+[]
AC []+[]
ACn []. AND. [ ]
AC [ CO. AND. [ ]
AC[C[].EOV.O
AC[]--[]
AC -TJ
AC-[].OR.[]
ACn .NOT. []
AC .NOT. []
ACYl -0
AC 0ACYl 0
AC[ ]-1
AC[CO

"AD/B,DEST/PASS,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE,CHK PARIlY"
"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/@1,DBUS/DP, FM WRITE"
"AD/D,DBUS/DP,DEST/A,B/@2,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP, FM WRITE"
"AD/A+B,DEST/PASS,A/ONE,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,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/@1,RAMADR/AC#,DBUS/DP, FM WRITE"
"AD/D,DBUS/DP,DEST/A,B/@1,A/@1,RAMADR/AC#,DBUS/DP, FM WRITE"
"AD/A+B,DEST/PASS,A/DNE,B/@1,RAMADR/AC#, FM WRITE"
"AD/A+O,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,DEST/PASS,B/@3,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,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/@1,RAMADR/AC#,DBUS/DP,FM WRITE"
"AD/A.AND.B,DEST/PASS,B/@~,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE"
"AD/A.AND.O,DEST/PASS,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE"
"AD/A.EOV.O,DEST/PASS,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE"
"AD/-B-.25,DEST/PASS,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE,ADD .25"
"AD/-A-.25,DEST/PASS,A/@1,RAMADR/AC#,DBUS/DP, ADD .25,FM WRITE"
"AD/A.OR.B,A/@1,B/@2,RAMADR/AC#,DBUS/DP. FM WRITE"
"AD/.NOT.B,DEST/PASS,B/@2,RAMADR/AC*#.ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE"
"AD/.NOT.B,DEST/PASS,B/@1,RAMADR/AC#,DBUS/DP,FM WRITE"
"AD/-0-.25,RAMAOR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE,ADD .25"
"AD/O,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/@1,DBUS/DP,FM WRITE"
"AD/O,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP, FM WRITE"

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

~

a
~

i
i
it

J

i..

~

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

.TOC

11:45 11-AUG-1984
07:10 27-JUlY-1984

MICRO 31(254)

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

Page 47

"MACROS -- MICROCODE WORK SPACE"

WORK[) Q
"AD/Q,DEST/PASS,RAMADR/H,WORK/@1,FM WRITE"
Q WORKT)
"AD/D,DEST/Q AD,RAMADR/H,DBUS/RAM,WORK/@1,DT/3T"
WORK[) 0
"AD/ZERO,DEsr/PASS,RAMADR/H,WORK/@1,FM WRITE"
WORK[ ]-1
"AD/B, DEST /PASS, RAMADR/H, WORK/@1,B/ONE, F.M WRITE"
WORK[] []
"AD/B,DEST/PASS,RAMADR/H,WORK/@1,B/@2,FM WRITE"
WORK[)-[) CLR LH "AD/47,RSRC/AB,DEST/PASS,RAMADR/H,WORK/@1,B/@2,A/MASK,FM WRITE"
WORK[]-[)-1
"AD/A-B-.25,A/@2,B/ONE,DEST/PASS,RAMADR/H,WORK/@1,FM WRITE, ADD .25"
WORK[]-.NDT.[] "AD/.NOT.B,DEST/PASS,RAMADR/H.WDRK/@1,B/@2,FM WRITE"
WORK[ ]-[] .AND. [) "AD/A.AND.B,DEST/PASS,RAMADR/H,WORK/@1,A/@2,B/@3,FM WRITE"
[].AND-:-NDT.WORK[] "AD/.NDT.D.AND.A,A/@1,DBUS/RAM,RAMADR/H.WORK/@2,DT/3T"
[).AND.WORK[)
"AD/D.AND.A,A/@1,DBUS/RAM,RAMADR/H,WORK/@2,DT/3T"
[] [] +WORK [ ]
"AD/D+A, A/@2,DEST/AD, B/@1 ,DBUS/RAM, RAMADR/ H, WORK/@3,DT/3T"
[]-[].AND.WDRK[] "AD/D.AND.A,A/@2,DEST/AD,B/@1,DBUS/RAM,RAMADR/H,WDRK/@3,DT/3T"
[]-[].AND.NOT.WORK[] "AD/.NOT.D.AND.A,A/@2,DEST/AD,B/@1,DBUS/RAM,RAMADR/H,WORK/@3,DT/3T"
[]-[].OR.WORK[] "AD/D.OR.A,A/@2,DEST/AD,B/@1,DBUS/RAM,RAMADR/H,WDRK/@3,DT/3T"
[CWDRK[]
"AD/D ,DEST /AD,B/@1,DBUS/RAM,RAMADR/H,WDRK/@2,DT/3T"
[)-.NDT.WORK[) "AD/.NOT.D,DEST/AD,B/@1,DBUS/RAM,RAMADR/H,WDRK/@2,DT/3T"
[)--WORK[]
"AD/-D-.25,ADD .25,DEST/AD,B/@1.DBUS/RAM,RAMADR/H,WORK/@2.DT/3T"
"AD/D+A, A/ONE, DEST / AD, B/@1 , DBUS/RAM, RAMADR/H. WORK/@2,DT/3T"
[ CWORK[ )+ 1
Q ij-WORK[]
"AD/Q-D-.25,DEST/Q AD,DBUS/RAM,RAMADR/H.WORK/@1,ADD .25,DT/3T"
rC[]-WORK[]
"AD/A-D-.25,DEST/AD,A/@2.B/@1.DBUS/RAM,RAMADR/H,WORK/@3,ADD .25,DT/3T"
"AD/B,DEST/PASS,RAMADR/RAM,B/@1,FM WRITE"

i

I

I

I
I
g

./

\

'\

~
'
,
\

)

/

MICRO 31(254)

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

11:45 11-AUG-1984
07: 10 27-JULY-1984

1779
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
1820
1821
1822
1823
1824
1825
1826
1827
1828

"MACROS -- MEMORY CONTROL"

.TOC
MEM CYCLE

KS10 MICROCOOE V124, 27-JUL-84
MACROS -~ MEMORY CONTROL

Page 48

"MEM/1"

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

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

"PXCT/E1 "
"PXCT/D1"
"PXCT/D1"
"PXCT/E2"
"PXCT/D2"
"PXCT/D2"
"PXCT/D2"
"PXCT/E2"

;THE FOLLOWING MACROS GET MEMORY CYCLES STARTED
"WRITE TEST/l,WAIT/1"
WRITE TEST
"MEM CytLE,READ CYCLE/1,WAIT/1~
START READ
"MEM CYCLE,WRITE TEST,WRITE CYCLE/1,WAIT/1"
START WRITE
"MEM CYCLE,WRITE CYCLE/1,WAIT/1"
START NO TEST WRITE
"START READ,FETCH/1,PXCT/CURRENT,WAIT/1"
FETCH
;THE FOLLOWING MACROS COMPLETE MEMORY CYCLES
"MEM CYCLE,WAIT/1"
MEM WAIT
"MEM WAIT,DBUS/DBM,DBM/MEM"
MEM READ
"MEM WAIT,DT/3T"
MEM WRITE
"SPEC/WAIl,DBUS/DBM,DBM/MEM"
SPEC MEM READ
"SPEC/WAIT,DT/3T"
SPEC MEM WRITE
;THINGS WHICH WRITE MEMORY
MEM []
"AD/B,DEST/PASS,B/@1,DBUS/DP,RAMADR/VMA,CHK PARITY"
MEM=Q
"AD/Q,DBUS/DP,RAMADR/VMA"
;THINGS WHICH READ MEMORY
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD,B/01"
[] 10 DATA
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@1,CHK PARITY"
[CMEM •
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/A,A/PC,B/01,CHK PARITY, FETCH, LOAD VMA"
[] MEM THEN FETCH
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD*.5,B/01,CHK PARITY"
[]-MEM*.5
"AD/D.AND.A,A/MASK,DBUS/DBM,RAMADR/VMA,DEST/AD,B/01,CHK PARITY"
[ ]-MEM. AND. MASK
"AD/D.AND.A,A/@2,DBUS/DBM,RAMADR/VMA,DEST/AD*.5,B/@1,CHK PARITY"
[]-(MEM.AND.[])*.5
"AD/D,DBUS/DBM,RAMADR/VMA,DEST/Q_AD,CHK PARITY"
Q_J';EM

T10~I.MCR[10,1141J

KS10.MIC[10,1141)

~

a

.

z
0

i

~

~

i

)

•
~

i

.,il
.ii
.2
~

i

I
«

I
Ii:

1829
1830
1831
1832
1833
1834
1835
'. 1836
1837
1838
1839
1840
1841
1842
1843
1844
1845

.TOC

"MACROS

11:45 11-AUG-1984
07:10 27-vULY-1984

MICRO 31(254)

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

Page 49

VMA"

VMA []
"AD/A,A/@l,DEST/PASS,LOAD VMA"
VMA-[] WITH FLAGS
"AD/A,A/@1,DEST/PASS,LOAD VMA,WAIT/1, MEM/1, EXT ADR/1, DP FUNC/1, DT/3T"
VMA-[].OR.[] WITH FLAGS "AD/A.OR.B,A/@1,B/@2,DEST/PASS,LOAD VMA,WAIT/l, MEM/1, EXT ADR/1, DP FUNC/1, DT/3T"
VM.C[]+ 1
"AD/A+B,A/ONE,B/@1,DEST/AD,HOLD LEFT,LOAD VMA"
VMA-[]-l
"AD/B-A-.25,A/ONE,B/@1,ADD .25,HOLD LEFT,LOAD VMA"
VMA-[ ]+XR
"AD/D+A,DBUS/RAM,RAMADRj.XR#,A/@1,LOAD VMA"
"AD/A+B,DEST/PASS,A/@1,B/@2,LOAD VMA"
VMA::=r]+ [)
NEXT [] PHYSICAL WRITE "AD/A+B,A/ONE,B/@1,DEST/AD,HOLD LEFT,LOAD VMA, VMA PHYSICAL, START WRITE"
;MACROS TO LOAD
[] VMA FLAGS
[CVMA IO READ
[CVMA 10 WRITE

A 2901 REGISTER WITH VMA FLAG BITS
"AD/45,DEST/AD,B/@1,DBM/#,DBUS/DBM,RSRC/DO,A/MASK"
"[@1) VMA FLAQS,READ CYCLE/l,IO CYCLE/1,WRITE TEST/a, PHYSICAL/1, FORCE EXEC/1, FORCE USER/a"
" [@1 CVMA FLAGS, WR ITE CYCLE/l, 10 CYCLE/1, WR I TE TEST /0, PHYS ICAL/ 1, FORCE EXEC/1, FORCE USER/OR

T10KI.MCR[ 10,1141]
KS10.MIC[10,1141]
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858

.TOC

11:45 11-AUG-1984
07:10 27-uULY-1984

MICRO 31(254)

"MACROS -- TIME CONTROL"

AC
AC[ ]
XR
VMA
WORK[ ]

"RAMADR/ACH"
"RAMAOR/AC*H,ACALU/AC+N,ACN/@1"
"RAMADR/XRH"
"RAMADR/VMA"
"RAMADR/H, WORK/@1"

2T
3T
4T
5T

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

KS10 MICROCODE V124, 27-uUL-84
MACROS -- TIME CONTROL

Page 50

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

~

~

~

0

m
~
~

;t

]
'g

i

iii

5

a
g

it

:;;

I
I
~

1859
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

.TOC

11:45 ll-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE 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#/l, LOAD FE, MULTI SHIFT/I"

SC SC-l
SC-SHIFT
SC-SHIFT-l
SC-SHIFT-2
SC--SHIFT
SC- -SHIFT-l
SC--SHIFT-2
SC-SC-EXP
sc_sc_EXp_l
SC-SC-FE-l
SC-SC-FE
SC-EXP
SC-S#-FE
SC-FE+S#
SC-FE
SC=S#

·SCAD/A-l,SCADA/SC,LOAD SC"
·SCAD/A+B,SCADA/S#,S#/O,SCADB/SHIFT,LOAD SC·
"SCAD/A+B,SCADA/S#,S#/1777,SCADB/SHIFT,LOAD SC·
"SCAD/A+B,SCADA/S#,S#/1776,SCADB/SHIFT,LOAD se·
·SCAD/A-B,SCADA/S#,S#/OOOO,SCADB/SHIFT,LOAD SC·
·SCAD/A-B,SCADA/S#,SCADB/SHIFT,S#/1777,LOAD SC"
·SCAD/A-B,SCADA/S#,SCADB/SHIFT,S#/1776,LOAD SC"
"SCAD/A-B,SCADA/SC,SCADB/EXP,LOAD SC"
"SCAD/A-B-l,SCADA/SC,SCADB/EXP,LOAD SC·
"SCAD/A-B-l,SCADA/SC,SCADB/FE,LOAD SC·
"SCAD/A-B,SCADA/SC,SCADB/FE,LOAD SC"
"SCAD/A+B,SCADA/S#,S#/O,SCADB/EXP,LOAD SC"
·SCAD/A-B,SCADA/S#,SCADB/FE,LOAD SC"
·SCAD/A+B.SCADA/S#,SCADB/FE.LOAD SC"
"SCAD/A.OR.B.SCADA/S#.S#/O.SCADB/FE,LOAD SC"
"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-l1.
SC-9.
SC-8.
SC-7
SC-6
SC-5
SC-4
SC-3
SC-2
SC-l
SC-O
SC--l
SC--2

USC S#,S#/36.·
"SC-S#,S#/35."
"SC-S#,S#/34."
"SC-S#,S#/28. "
-"SC-S#, S#/27. "
"SC-S#,S#/26.·
"SC-S#,S#/24."
"SC-S#,S#/22."
"SC-S#,S#/20.·
"SC-S#,S#/19."
"SC-S#,S#/14."
"SC-S#,S#/11."
"SC-S#,S#/9."
"SC-S#,S#/8.·
"SC=S#,S#/7"
"SC_S#,S#/6"
"SC_S#,S#/5"
"SC_S#,S#/4"
"SC_S#,S#/3·
·SC_S#,S#/2·
"SC_S#,S#/l"
"SC 5#,5#/0.·
"SC-S#,S#/1777"
"SC=S#,S#/1776"

Page 51

T10KI.MCR[10,1141]
KS10.MIC[ 10,1141]
;' 1909
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

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

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

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+SH

"SCAD/A-B,SCADA/SH,SH/O,SCADB/FE,LDAD FE"
"SCAD/A-B,SCADA/SH,SH/1777,SCADB/FE,LOAD FE"
"SCAD/A+B,SCADB/FE,SCADA/SH,SH/1550,LOAD FE"
"SCAD/A-B,SCADA/SH,SCADB/FE,LOAD FE"
"SCAD/A+B,SCADA/SC,SCADB/FE, LOAD FE"
"SCAD/A.AND.B,SCADA/SH,SCADB/FE, LOAD FE"
"SCAD/A,SCADA/BYTE1, LOAD FE"
"SCAD/A+B, SCADA/SH, SH/O ,SCADB/SIZE, LOAD FE"
"SCAD/A+B, SCADA/SH, SH/20, SCADB/SIZE, LOAD FE"
"SCAD/A-B,SCADA/SH,SH/1760,SCADB/SIZE, LOAD FE"
"SCAD/A-B,SCADA/SH,SH/1770,SCADB/SIZE, LOAD FE"
"SCAD/A,SCADA/SH,LOAD FE"
"SCAD/A-B,SCADA/SH,SCADB/FE,LOAD FE"
"FE_SH,SH/1776"
"FE_SH,SH/1764"
"FE_SH,SH/O"
"FE_SH,SH/1777"
"SCAD/A+B,SCADA/SH,SCADB/FE,SH/1,LOAD FE"
"SCAD/A+B,SCADA/SH,SCADB/FE,SH/2,LOAD FE"
"SCAD/A+B,SCADA/SH,SCADB/FE,SH/10,LOAD FE"
"SCAD/A+B,SCADA/SH,SCADB/FE,SH/1777,LOAD FE"
"SCAD/A+B,SCADA/SH,SCADB/FE,SH/4,LOAD FE"
"SCAD/A+B,SCADA/SH,SH/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,SCADB/FE, LOAD FE"
"SCAD/A+B,SCADA/SH,S#/1600,SCADB/FE,LOAD FE"
"SCAD/A-B,SCADA/SH,S#/200,SCADB/FE,LOAD FE"
"SCAD/A+B,SCADA/SH,SCADB/FE,LOAD FE"

GEN 17-FE

"SCAD/A-B,SCADA/SH,SH/210,SCADB/FE"

FE-FE
FE- -FE-1
FE-FE-19
FE- -FE+SH
FE-FE+SC
FE-FE.AND.SH
FE-P
FE-S
FE-S+2
FE--S-20
FE--S-10
FE-SH
FE-SH-FE
FE~-2

Page 52

T 10K I . MC R [ 10, 1 14 1 1
KS10.MIC[ 10,1141 J
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957

.TOC

11:45 11-AUG-1984
07: 10 27-JULY-1984

MICRO 31(254)

"MACROS -- OATA PATH FIELO 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/l"
"CHKL/O,CHKR/O"

INH CRY18

"SPEC/INHCRY18"

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

.~.
T10KI.MCR[10,l141]
KS10.MIC[ 10,1141]
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970

.TOC

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE 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 SHIFT
LSH SHIFT (SAME HARDWARE AS ASH BUT
BITS -2 AND -1 ARE PRESET TO ZERO)

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

Page 54

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

~

a
ii

I0

~

i

j
.;
"g
~

iii

5

.;;

.ii

g

jj

e

l

I.
11

4

.t

1971
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

.TOC

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-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 []
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 IO BUSY
CLR 10 LATCH

"SPEC/LDINST"
"SPEC/LOADXR,PXCT/CURRENT"
"SPEC/LOADXR,PXCT/E2"
"SPEC/LOADXR,PXCT/E1"
"SPEC/LOADXR,PXCT/BIS-SRC-EA"
"SPEC/LOADXR,PXCT/BIS-DST-EA"
"CRY38/1"
;GENERATE CARRY IN"TO BIT 37
"CALL/1,J/@1;
;CALL A S0BROUTINE
;LOAD PXCT FLAGS IF EXEC MODE
"SPEC/LDPXCT"
"SPEC/PXCT OFF"
"SPEC/LDPAGE"
"SPEC/LDACBLK"
"SPEC/SWEEP,PHYSICAL/1"
"SPEC/CLRCSH,PHYSICAL/1"
"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

T10KI.MCR[10,1141j
KS 10. MI C [ 10, 1141 ]

,~

,a

.z
a

'=~

.!!l

;;

~

~

.t

~

I
;;;

.~

~

"E
~

I

,"'

I
.t

2002
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

.Toe

MICRO 31(254)

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

"MACROS -- PC FLAGS"

CHANGE FLAGS
SET
SET
SET
SET

11:45 11-AUG-1984
07:10 27-JULY-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/1, TRAP1/1"
FL NO DIVIDE "SET NO DIVIDE, SETFOV/1"

ASH AROV
SET FPD
CLR FPD

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

SET PDL OV
SET TRAP1

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

LOAD PCU
UPDATE USER
LEAVE USER

"CHANGE FLAGS, LD PCU/1"
"CHANGE FLAGS, HOLD USER/1"
"CHANGE FLAGS, HOLD USER/OR

JFCL FLAGS

"CHANGE FLAGS, HOLD USER/1, JFCLFLG/1 "

LOAD FLAGS
EXP TEST
AD FLAGS

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

NO DIVIDE
FL NO DIVIDE

"SET NO DIVIDE, J/NIDISP"
"SET FL NO DIVIDE, J/NIDISP"

Page 56

T10KI.MCR[10,1141]
KS10.MIC[ 10,1141]
2031
2032
2033
2034
2035
2036
2037
2038

.TOC

11:45 11-AUG-1984
07: 10 27-JULY-~984

MICRO 31(254)

"MACROS -- PAGE FAIL FLAGS"

STATE []
ENO STATE

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

END BLT
END MAP

"END STATE"
"END STATE"

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

Page 57

.~,

~
\_~

~

a

~

"

•i
~
II:

1
'I

!

I
5

~
j

j
~
I

I
II:

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

11:45 11-AUG-1984
07:10 27-JULY-1984

2039 ' .TOC
"MACROS
2040
2041 SKIP IF ACO
2042 SKIP OPO
2043 SKIP DP18
2044 SKIP AD.EQ.O
2045 SKIP AD.LE.O
2046
2047 SKIP AOL. LE.O
2048
2049 SKIP FPD
2050 SKIP KERNEL
2051 SKIP 10 LEGAL
2052 SKIP CRYO
2053 SKIP CRY1
2054 SKIP CRY2
2055 SKIP JFCL
2056 SKIP ADL. EQ.O
2057 SKIP ADR.EQ.O
2058 SKIP IRPT
2059 SKIP -1MS
2060 SKIP AC REF
2061 SKIP EXECUTE
2062 TXXX TEST
2063

-- SINGLE SKIPS"

MICRO 31( 254)

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

;SKIPS IF:
"SKIP/ACO'
;THE AC NUMBER IS ZERO
"SKIP/DPO"
;OP BIT 0-1
"SKIP/DP18"
;DP BIT 18-1
"SKIP/AOEQO,DT/3T" ;ADDER OUTPUT IS ZERO
"SKIP/LE,DT/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 (NOT PC FLAG BIT)
"SKIP/CRY2,OT/3T"
;ADDER BIT CRY2-1
"SKIP/JFCL"
;IF JFCL SHOULD JUMP
"SKIP/ADLEQO"
;ALU BITS -2 TO 17 - 0
;ALU BITS 18-35 - 0
"SKIP/ADREQO"
"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

Page 58

~

a
;;

:;

i

i

~

01:

)
.j

!

I
8

11

E

a

:s

I

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

11:45 11-AUG-1984
07:10 27-JULY-1984

MICRO 31(254)

2064 .TOC
2065
2066 NEXT INST
2067 NEXT INST FETCH
2068 EA MODE DISP
2069 AREAD
2070 B DISP
2071 BWRITE DISP
2072 INST DISP
2073 EXIT
2074 AD FLAGS EXIT
2075 FL-EXIT
2076 TEST DISP
2077 SKIP-COMP DISP
2078 ..lUMP DISP
2079 DONE
2080 uUMPA
2081 UUO
2082 LUUO
2083 PAGE FAIL TRAP
2084 TAKE INTERRUPT
2085 INTERRUPT TRAP
2086 MUL DISP
2087 DIV DISP
2088 BYTE DISP
2089 SCAD DISP
2090 RETURN []
2091 PI DISP
2092 NORM DISP
2093 DISMISS
2094 CALL LOAD PI
2095 HALT []
2096 CLEANUP DISP
2097

"MACROS -- SPECIAL OISPATCH MACROS"

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

"DISP/NICOND,SPEC/NICOND,u/NICOND"

~DISP/NICOND,SPEC/NICOND,u/NICOND-FETCH"

"DISP/EAMODE,RAMADR/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 DISP,SPEC/O, WRITE TEST/1"
"BWRITE DISP, WRITE TEST/O, AD FLAGS"
"WRITE CYCLE/1,WRITE TEST/1,MEM/1,BWRITE/1,B DISP,u/FL-BWRITE"
"B DISP,u/TEST-TABLE"
"B DISP,u/SKIP-COMP-TABLE"
"B DISP,u/~UMP-TABLE"
"VMA [PC],LOAD VMA, FETCH, NEXT INST FETCH"
"[PcT [AR],HOLD LEFT,LOAD VMA,FETCH,NEXT INST FETCH"
"[HR]-;""[HR1.AND.','/777740,HOLD RIGHT,u/UUOGO"
"[AR]-O XWD [40], u/LUU01"
"TL [fLG] , FLG.PI/1, u/PFT"
"[FLG] [FLG].OR.',FLG.PI/1,HOLD RIGHT,u/PI"
"WORK[5V.AR] [AR], u/ITRAP"
"DISP/MUL" "OISP/DIV"
"DISP/BYTE, DT/3T"
"DISP/SCADO"
;SKIP (2'S WEIGHT) IS SCAD IS MINUS
"DISP/RETURN,u/@1"
"DISP/PI"
"PISP/NORM, DT /3T"
"TR [PI), '/077400, CALL [uEN1),DT/3T"
"[TO] [PI] SWAP, CALL [LDPI2]"
"AD/4~,DEST/AD,B/T1,DBM/"DBUS/DBM,HALT/@1,RSRC/DA,A/MASK, u/HALTED"
"READ [FLG], DBUS/DP, DISP/DP, 3T, u/CLEANUP"

:;

I

.01:

\.

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

,
a
~

0

i

~

!
)

-;
!

...
!
I

a
E

I
i

!

5

J
a;

2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
21·13
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139

11:45 11-AUG-1984
07:10 27-uULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-uUL-84
DISPATCH ROM MACROS

"DISPATCH ROM MACROS"

.TOC
.DCODE

;"A FIELD" MACROS SAY HOW TO FETCH ARGUMENTS
I
"1/1"
I-PF
"I/1,VMA/O,READ/1"
R
"A/READ,READ/1"
R-PF
"A/RD-PF,READ/1"
W
"A/WRITE,TEST/1"
RW
"A/READ,TEST/1,READ/1"
IW
"I/1,TEST/1"
;IMMED WHICH STORE IN E. (SETZM, ETC.)
IR
"I/1,READ/1"
; START READ A GO TO EXECUTE CODE
;AR!ARX
E!E+1
DBL R
"A/DREAD,READ/1"
DBL AC "A/DBLAC"
SH
"A/SHIFT,VMA/O,READ/1"
SHC
"A/DSHIFT,VMA/O,READ/1"
FL-R
"A/FP,READ/1"
; FLOATING POINT READ
FL-RW
"A/FP,READ/1,TEST/1"
FL-I
"A/FPI,READ/O"
;FLOATING POINT IMMEDIATE
DBL FL-R "A/DFP,READ/1"
;CHECK FOR 10 LEGAL
lOT
"A/lOT"
;"B FIELD" MACROS SAY HOW TO STORE RESULTS
"B/AC"
"B/MEM,TEST/1,COND FUNC/1"
"B/BOTH,TEST/1,COND FUNC/1"
"B/SELF,TEST/1,COND FUNC/1"
S
"B/DBLAC"
DAC
"B/DBLB, TEST/1,COND FUNC/1"
DBL B
"FL-B/AC"
FL-AC
FL-MEM "FL-B/MEM,TEST/1,COND FUNC/1"
FL-BOTH "FL-B/BOTH,TEST/1,CONO FUNC/1"
"ROUND/1"
ROUND
AC

M
B

;CONTROL BITS
W TEST "TEST/1"
AC DISP "ACDISP/1"
.UCODE

FLOATING
FLOATING
FLOATING
FLOATING

POINT
POINT TO MEMORY
POINT TO BOTH
POINT ROUNDED

Page 60

Tl0KI.MCR[10,1141]
SIMP L E . MI C [ 10, 1 14 1 ]

11:45 l1-AUG-1984
15:31 27-JULY-1984

MICRO 31( 254)

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

2140
214~

U
U
U
U
U

0000,
0002,
0013,
0021,
0026,

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

U 0053, 0003,4751,1207,4374,4007,0700,0010,0000,0001
U 0003, 0061,4751,1203,4374,4007,0700,0000,0037,6000
U 0061, 0071,3333,0003,7174,4007,0700,0400,0000,0227
U 0071, 0100,4221,0011,4364,4277,0700,0200,0000,0010
U 0100, 0106,4221,0010,4174,4477,0700,0000,0000,0000
U 0106, 0110,4221,0013,4174,4257,0700,0000,0000,0000
U 0110, 0125,3333,0013,7174,4007,0700,0400,0000,0230
U 0125, 0135,3333,0013,7174,4007,0700,0400,0000,0300
U 0135, 0136,3333,0013,7174,4007,0700,0400,0000,0301
U
U
U
U

U
U
U
U

0136,
0162,
0212,
0214,
0223,
0225,
0235,
0242,

0162,4223,0000,1174,4007,0700,0400,0000,1443
0212,3333,0007,1174,4007,0700,0400,0000,1444
0214,4221,0003,4174,4007,0700,2000,0071,0023
0223,3333,0007,7174,4007,0700,0400,0000,0344
0225,4223,0000,7174,4007,0700,0400,0000,0373
0235,3771,0002,4374,4007,0700,0000,0000,0344
0242,3771,0006,4374,4007,0700,0000,0000,0373
0010,0111,0706,4174,4007,0700,0200,0000,0010

U 0010, 0560,3771,0004,1276,6007,0701,0010,0000,1444
U 0012, 0244,3333,0005,6174,4007,0700,0400,0000,0000
U 0244, 0311,0111,0702,4174,4007,0700,0200,0000,0010
U 0311, 0260,3333,0004,6174,4007,0630,2400,0060,0000
U 0260, 0242,4443,0000,4174,4007,0700,0000,0000,0000
U 0261, 0140,6553,0500,4374,4007,0321,0000,0033,0656
U 0140, 0104,4751,1217,4374,4007,0700,0000,0000,1005

214-2
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

.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] TMASK]*.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
;RESET STACK (CAN NEVER RETURN
CALL/T
, TO WHERE MR LEFT US)
[AR]_O XWD [376000]
;ADDRESS OF HALT STATUS
, BLOCK
WORK[HSBADR] [AR]
;SAVE FOR HALT LOOP
[UBR]_O, ABORT MEM CYCLE ;CLEAR THE UBR AND RESET
, MEMORY CONTROL LOGIC
[EBRJ_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]
.IF/FULL
AC[BINO] 0
AC[BINl ]-1
[AR] 0, SC 19.
WORKTDECLOT 1
WORK[DECHI]-O
[HR] #, WORK/DECLO
[BRXT #, WORK/DECHI
TENLP:
[BRX]-[BRX]+l, LOAD VMA
[ARX]-AC[BIN1],
=0*
CALL TDBSLOW]
RAM [BR]
[HRT [HR]+l, LOAD VMA
RAM_TARX], STEP SC

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

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

T10KI .MCR[ 10,1141 J
SIMP LE . MI C [ 10, 1 14 1 J

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0141, 3507,4221,0014,4174,4007.0700,0010.0000,0000

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

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

2193
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

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

[PIJ_O, CALL [LOADPI]

.IFNOT/FULL
[ARXl
[BRl (5
[BRXT
.ENDIF/FULL [T11_0 XWD [1201

°
°

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 [T11, START READ
;READ THE WORD
MEM-READ, [PC1_MEM, HOLD LEFT, J/START
;GO FIRE UP SIMULATOR AT THE
; PROGRAMS STARTING ADDRESS
.IFNOT/SIM
;CLEAR LH·OF PC
[PCl 0,
LEAVE USER,
;ENTER EXEC MODE
LOAD FLAGS
;CLEAR TRAP FLAGS
[T11 #, HALT/POWER,
;LOAD T1 WITH POWER UP CODE
J/PWRON
;ENTER HALT LOOP. DO NOT STORE
; HALT STATUS BLOCK
.ENDIF/SIM

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

11:45 11-AUG-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 0372, 0110,0111,0701,4170,4156,4700,0200,0014,0012
U 0373, 0110,3443,0100,4174,4156,4700.0200,0014,0012

U 0101, 3377,4751,1203,4374,4367,0700,0000,0000,0423
,U 0102, 3377,4751,1203,4374,4367,0700,0000,0000.0422
U 0103, 3377,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

I

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

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

2223
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

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

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

11 :45 11-AUG-1984
15:31 27-JUlY-1984

MICRO 31(254)

U 0334, 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, 0343,0551,0202,2270,4007,0700,0200,0004,0012

2273
2274
2275
2276
2277
2278
2279
2280
2281

~0001

228~

EACALC:

228-3
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307

U 0207, 0343,3443,0200,4174,4007,0700,0200,0004,0012 .

KS10 MICROCODE V124, 27-JUL-84 Page 64
THE INSTRUCTION LOOP -- START NEXT INSTRUCTION

2308
2309

;HERE WE POINT PC TO NEXT INSTRUCTION WHILE WE WAIT FOR
; EFFECTIVE ADDRESS LOGIC TO SETTLE
INCPC:
VMA [PC]+1,
;ADDRESS OF NEXT INSTRUCTION
FETCH/1,
;INSTRUCTIDN FETCH
;CLEAR EFFECT OF PXCT
TURN OFF PXCT,
EA MODE DISP
;DISPACTH OF INDEXING AND @
;MAIN EFFECTIVE ADDRESS CALCULATION

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
[PC] [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 DO MEM WAIT (FORGET ABOUT JRST)

;CASE 6 -- JRST O,@FOO
VMA [HR],
START READ.
J/FETIND

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

T10KI.MCR[10.1141]
SIMPLE.MIC[10.1141]

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0211, 0213,0551.0202.2270,4007,0700.0000,0000,0000

U 0213. 0600.5741.0203.4174,4001,3700.0200.0000.0342

U 0215, 0343,0551.0202,2270.4007,0700,0200,0004,0112

U 0217, 0343,3443.0200,4174,4007,0700,0200,0004,0112

U 0343, 0346,3771,0002,4361.5217,0700.0200.0000,0102

I
~

I
It

U 0346, 0201.3443,0100,2174,4006,6700,0200,0010.0010

2310
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

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
NOMOD:
[AR] EA,
;PUT O"E IN AR
PXCT-DATA. AREAD
;DO ONE OR MORE OF THE FOLLWING
; ACCORDING TO THE DROM:
;1. LOAD VMA
;2. START REAO 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
LOAD-VMA, PXCT EA,
;PUT ADDRESS IN VMA
START READ, J/FETIND
;START CYCLE AND GO WAIT FOR DATA
;CASE 16 -- JUST INDIRECT
INDRCT: VMA [HRJ,
START READ. PXCT EA
;HERE TO FETCH INDIRECT WORD
FETIND: MEM READ, [HR] MEM,
HOLD LEFT,
LOAD IND EA
XCT2:

VMA [PC],
FETCH/l,
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

a

T10KI.MCR[10,l141)
SIMPLE.MIC[10,1141)

11:45 11-AUG-1984
15:31 27-vULY 1984

MICRO 31(254)

p

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

U 0041, 0000,3771,0003,0276,6001,2700,0000,0000,0000

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

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

2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386

KS10 MICROCODE V124, 27-vUL-84 Page 66
THE INSTRUCTION LOOP -- FETCH ARGUMENTS
.TOC
"THE INSTRUCTION LOOP -- FETCH ARGUMENTS"
;HERE ON AREAD DISP TO HANDLE VARIOUS CASES OF ARGUMENT FETCH
;CASE 0 -- READ (E)
40:
MEM READ,
[AR] MEM,
INST-DISP
;CASE
41:

-- WRITE (E)
[AR] AC,
INST-DISP

;WAIT FOR DATA
;PUT WORD IN AR
;GO TO EXECUTE CODE
;PUT AC IN AR
;GO TO EXECUTE CODE

;CASE 2 -- DOUBLE READ
42:
MEM READ,
[AR) MEM
VMA [HR]+1, PXCT DATA;
START READ
MEM READ,
[ARX] MEM,
INST OISP

;WAIT FOR DATA
;PUT HI WORD IN AR
;POINT TO E+1
;START MEMORY CYCLE
;WAIT FOR DATA
;LOW WORD IN ARX
;GO TO EXECUTE CODE

;CASE 3 -- DOUBLE AC
43:
[AR] AC
[ARx"l AC[l),
INST OISP

;GET HIGH AC
;PUT C(AC+1) IN ARX
;GO TO EXECUTE CODE

;CASE 4 -- SHIFT
44:
SHIFT: READ [AR],
SKIP DP18,
SC SHIFT-1,
LOAD FE,
INST DISP

;LOOK AT EFFECTIVE ADDRESS
;SEE IF LEFT OR RIGHT
;PUT NUMBER OF PLACES TO SHIFT IN
; SC AND FE
;GO DO THE SHIFT

;CASE 5 -- SHIFT COMBINED
45:
0 AC[ 1]
[BR) AC*.5 LONG
[BR]-[BR]*.5 LONG,
v/SHIFT

PUT LOW WORD IN 0
PUT AC IN BR & SHIFT BR!O RIGHT
SHIFT BRIO 1 MORE PLACE RIGHT
GO DO SHIFT SETUP

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

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

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

U 0402, 0434,3333,0003,4174,4007,0520,3010,0041,2000
U 0403, 0000,4221,0004,4174,4001,2700,0000,0000,0000

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

U 0051, 0404,3771,0005,4365,5177,0521,3000,0041,2000
U 0404, 0431,0111,0703,4174,4007,0700,0200,0004,0312
U 0405, 0416,01.11,0703,4174,4007,0700,0200,0004,0312
U 0416, 0432,3551,0505,4374,0007,0700,0000,0077,7000
U 0431, 0432,4551,0505,4374,0007,0700,0000,0000,0777
g

J

U 0432, 0445,4557,0004,4365,5007,0701,0200,0000,0002
U 0445, 0451,3447,0503,4174,4007,0700,0000,0000,0000
U 0451, 0452,3447,0303,4174,4007,0700,2000,0011,0000
U 0452, 0000,3443;0100,4174,4001,2700,0200,0014,0012

KS10 MICROCODE V124. 27-JUL-84 Page 67
THE INSTRUCTION LOOP -- FETCH ARGUMENTS

2387 ;CASE
2388 46:
2389
2390
2391 ;CASE
2392 47:
2393
2394 =0
2395 FPRO:
2396
2397
2398
2399 FPR1 :
2400
2401
2402 ;CASE
2403 50:
2404
2405
2406
2407
2408 ;CASE
2409 51:
2410
2411
2412
2413 =0
2414
2415
2416
2417
2418
2419
2420
2421 DFPR1:
2422 DFPR2:
2423
2424
2425
2426
2427
2428
2429
2430
2431

6 -- FLOATING POINT IMMEDIATE
[AR] [AR] SWAP,
;FLIP BITS TO LEFT HALF
J/FPRO
;JOIN COMMON F.P. CODE
7 -- FLOATING POINT
MEM READ,
[ARLMEM
READ [AR],
SC EXP, FE EXP,
SKIP DPO, CALL [ARSIGN]
[ARX] 0,
INST OISP
10 -- READ THEN PREFETCH
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 READ
; VMA HAS PC+1.
;GO DO IT

11 -- DOUBLE FLOATING READ
SPEC MEM READ,
;WAIT FOR DATA
[BR] MEM,
;HOLD IN BR
SC EXP, FE EXP,
;SAVE EXPONENT
SKIP DPO, 3T
;SEE IF MINUS
[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
[BR]_+SIGN
; SMEAR PLUS SIGN
MEM READ, 3T,
;WAIT FOR MEMORY
[ARX} (MEM.AND.[MAGJ)*.5,
ASH ;SET SHIFT PATHS
[AR] [BR]*.5
;SHIFT AR
[AR]-[AR]*.5,
;COMPLETE SHIFTING
SC FE
;PAGE FAIL MAY HAVE ZAPPED
; THE SC.
VMA [PC], FETCH,
;GET NEXT INST
;00 THIS ONE
INST DISP

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0052, 0414,4443,0000,4174,4007,0040,0000,0000,0000
U 0414, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 0415, 0090,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

2432
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

KS10 MICROCOOE V124, .27-JUL-84 Page 68
THE INSTRUCTION LOOP
FETCH ARGUMENTS
;CASE 12 - - TEST FOR 10 LEGAL
52:
SKIP 10 LEGAL
=0
UUO
INST OISP
;CASE 13
;53:

RESERVED

;CASE 14
;54:

RESERVED

;CASE 15
;55:

RESERVED

;CASE 16
;56:

RESERVED

;CASE 17
;57:

--

IS 10 LEGAL?
NO
YES--DO THE INSTRUCTION

RESERVED

;EXTEND AR SIGN.
;CALL WITH SKIP ON ARO, RETURNS 1 ALWAYS
=0
;EXTEND + SIGN
ARSIGN: [ARL+SIGN, RETURN [1]
; EXTEND - SIGN
[AR] -SIGN, RETURN [1]

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

11:45 11-AUG-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

I
8

"

j

.t

U 1506, 1505,3333,0003,4175,5007,0701,0200,0000,0002

2459
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

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

"THE INSTRUCTION LOOP -- STORE ANSWERS"

;NOTE:

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

1500:
BWRITE:
;CASE 0
; 1500:

;BASE ADDRESS OF BWRITE DISPATCH
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 1 [ARX 1 ,
J/STAC

;STORE AC 1
;GO STORE AC

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

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

11:45 11-AUG-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

I
I

U 1517, 1515,3333,0003,4175,5007,0701,0200,0000,0002

5

U 0454,

1515,3333,0003,4175,5007,0701,0200,0000,0002

U 0455,

1400,3333,0003,4175,5007,0701,0200,0000,0002

2500
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

KS1b MICROCOOE V124, 27-JUL-84 Page 70
THE INSTRUCTION LOOP -- STORE ANSWERS
;CASE 10
;1510:

RESERVED

;CASE 11
; 1!ii 11 :

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:
AC_[AR] ,
STAC:
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 [AR],
J!STAC

;WAIT FOR MEMORY
;STORE AR
;NOW STORE AC

=0
STBTH1 : MEM WRITE,
MEM [AR],
J!STAC
STORE: MEM WRITE,
MEM [AR],
J!DONE

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

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

~

a

~

!

~
~

D
D
D
0

0200,
0201,
0202,
0203,

1015.1515,1100
0015,1515,3000
0116,1404,0700
0004,1504,1700

D
D
D
0

0204,
0205,
0206,
0207,

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

D
D
D
D

0210,
0211,
0212,
0213,

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

0
0
0
0

0214,
0215,
0216,
0217,

1015,1403,1100
0015,1515,3000
0116,1403,0700
0004,1403,1700

11: 45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

'i

!
~

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

.! -

U 1403, 1404,3333,0003,4174;4007,0520,0000,0000,0000

b

¥

w

.li

5

~
~

)
g

I

U 1404,

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

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

2543
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

KS10 MICROCODE V124, 27-JUL-84
MOVE GROUP
.TOC
200:

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

AC,
AC,
M,
5,

MOVE
MOVEI
MOVEM
MOVES

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

5,

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

;MOVS
;MOVSI
;MOVSM
;MOVSS

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

AC,
AC,
M,
S,

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

; MOVN
; MOVNI
;MOVNM
; MOVNS

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

AC,
AC,
M,

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

;MOVM
;MOVMI
; MOVMM
; MOVNS

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

AC,
AC,
M,

210:

214:

204:

Page 71

5,

1402:

MOVS:
1403:

[AR] [AR] SWAP, EXIT

MOVM:

REAO [AR] , SKIP OPO • J/MOVE

1404
MOVE

EXIT

1405

MOVN

[AR]_-[AR],
AO FLAGS, 3T,
J/MOVE

NEGATE NUMBER
UPOATE FLAGS
STORE ANSWER

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0250.0015,1406,1500

U 1406, 0467,3771,0005,0276,6007,0700,0200,0003,0002
U 0467,

1515,3333,0005,4175,5007,0701,0200,0000,0002

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

KS10 MICROCODE V124, 27-uUL-84
EXCH
.TOC

"EXCH"

250:

.DCODE
R,W TEST,
.UCODE

1406:
EXCH:

[BR] AC,
START WRITE
MEM WRITE,
MEM [BR],
J/STAC

AC,

Page 72

J/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

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

a
a
a
D

0500, 1015,1410,1100
0501, 00 15, 14 10 , 3000
0502, 0016,1407,1700
0503, 0004,1404,1700

D 0504, 1015,1411,1100
a 0505, 00 15, 1411 , 3000
0 0506, 0016,1413,1700
D 0507, 0004,1414,1700

~
1:
iii
~

~
~
~

i

0 0510, 1015,1432,1100
0 0511, 0015,1432,3000

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

0514,
0515,
0516,
0517,

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

0
0
0
0

0520,
0521,
0522,
0523,

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

~

.Ii
ii

i

w

..e

~
g

~
~
u

I
I

0 0524, 1015,1425,1100
0 0525, 0015,1425,3000

D 0526, 0116,1425,0700
D 0527, 0004,1425,1700
D 0530,

1015,1430,1100

0 0531, 00 15, 1430, 3000
0 0532, 0116,1430,0700
0 0533, 0004,1430,1700

.l:

0
0
0
0

0534,
0535,
0536,
0537,

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

11: 45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)
2595
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

KS10 MICROCODE V124, 27-JUL-84
HALFWORa GROUP
.TOC

500:

510:

520:

530:

Page 73

"HALFWORD GROUP"
DESTINATION LEFT HALF
.acoaE
R-PF,
I-PF,
RW,
RW,

AC,
AC,
M,
5,

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

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

AC,
AC,
M,
5,

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

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

AC,
AC,
M,
S,

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

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

AC,
AC,
M,
5,

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

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

AC,
AC,
M,
5,

J/HLLO
J/HLLD
J/HLLO
J/HLLO

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

AC,
AC,
M,
5,

J/HRLO
J/HRLO
J/HRLO
J/HRLO

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

AC,
AC,
M,
5,

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

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

AC,
AC,
M,
5,

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

;HLLM
;HLLS

HRR EXCEPT FOR STORE
MOVES

T10KI.MCR[10,1141]
SIMP LE . MI C [ 10, 1 14 1 ]

D
D
D
D

0540, 1015,1407,1100
0541,0015,1407,3000
0542, 0016,1410,1700
0543,0004,1404,1700

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

0550, 1015,1420,1100
0551, 0015,1420,3000
0552,0116,1420,0700
0553,0004,1420,1700

D0554,1015,1426,1100
D 0555,0015,1426,3000
D 0556, 0116,1426,0700
D 0557, 0004,1426,1700
D
D
D
D

0560, 1015,1421,1100
0561, 0015,1421,3000
0562,0116,1421,0700
0563,0004,1421,1700

D
D
D
D

0564,1015,1427,1100
0565, 0015,1427,3000
0566, 0116,1427,0700
0567, 0004,1427,1700

D
D
D
D

0570,
0571,
0572,
0573,

D
D
D
D

0574, 1015,1423,1100
0575,0015,1423,3000
0576, 0116,1423,0700
0577, 0004,1423,1700

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)
2639
264'0
,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

KS10 MICROCODE V124, 27-JUL-84
HALFWORD GROUP

Page 74

DESTINATION RIGHT HALF
540:

550:

560:

570:

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

AC,
AC.
M,

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

AC,
AC,

M,

R-PF,
I-PF,

AC,
AC,

S,

S,

W,

M,

RW,

S,

R-PF,
I-PF,

AC,
AC,

W,

M,

RW,

S,

R-PF,
I-PF,

AC,
AC,

W,

M,

RW,

S.

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

AC,
AC,

M,

R-PF,
I-PF,
W,

AC,
AC,
M,

RW,

S,

R-PF,
I-PF,

W,

AC,
AC,
M.

RW,

S,

,UCODE

S,

J/HRR
J/HRR
J/HLL
J/MOVE
J/HLR
J/HLR
J/HLRM
J/HLRS
J/HRRZ
J/HRRZ
J/HRRZ
J/HRRZ
J/HLRZ
J/HLRZ
J/HLRZ
J/HLRZ
J/HRRO
J/HRRO
J/HRRO
J/HRRO
J/HLRO
J/HLRO
J/HLRO
J/HLRO
J/HRRE
J/HRRE
J/HRRE
J/HRRE
J/HLRE
J/HLRE
J/HLRE
J/HLRE

;HRRM
;HRRS

HLL EXCEPT FOR STORE
MOVES

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

11: 45 11-AUG-1984
15:31 27-JULY-1984

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

~

az

:;

~
~
~

i.

!..
g

!
!

';;

~
g

~
~

j
~

I
.t

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

2683
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
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730

KS10 MICROCODE V124, 27-JUL-84
HALFWORD GROUP

Page 75

;FIRST THE GUYS THAT LEAVE THE OTHER HALF ALONE
;THE AR CONTAINS THE
; AC INTO AR TO DO A
1407:
HRR:
[AR ]_AC, HOLD
1410:
HLL:
[AR]_AC,HOLD

MEMORY OPERAND. SO WE WANT TO PUT THE LH OF
HRR. OBVIOUS THING FOR HLL.
RIGHT, EXIT
LEFT,EXIT

;HRL FLOW:
;AT HRL AR CONTAINS:

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

1

.;AR_AR

I------------------!------------------I

SWAP GIVES:

I------------------!------------------I

!

RH OF (E)

LH OF (E)

1

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

,
;AT HLL, AR_AC,HOLD LEFT GIVES:

!------------------!------------------!
1
RH OF (E)
1
RH OF AC
!
I------------------I------------------!

,
;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:

[AR] [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
[AR]=AC,HOLD RIGHT,J/MOVS
[AR] (AR] SWAP,HOLD LEFT,EXIT

..........

~}
\

T10KI.MCR[10,1141]
SIMPLE. MI C [ 10, 114 1 ]

11:45 11-AUG-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,0000,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,3333,0003,4174,4007,0520,0000,0000,0000

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

2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
4754
2755
2756
2757
2758
2759
2760
2761

KS10 MICROCODE V124, 27-JUl-84
HAlFWORD GROUP

Page 76

;NOW THE HAlFWORD OPS WHICH CONTROL THE "OTHER" HALF.
; ENTER WITH 0, ,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:
HllD:

READ [AR],SKIP DP18
[AR] lEFT_O, EXIT
[AR] lEFT_-1, EXIT
READ [ARj,SKIP DPla
[AR]_#,#/O,HOlD RIGHT,J/MOVS
[AR]_#,#/777777,HOlD RIGHT,J/MOVS
READ [ARj,SKIP DPO
[AR]_#,#/O,HOlD lEFT,J/MOVS
[AR]_#,#/777777,HDlD lEFT,J/MDVS
READ [AR].SKIP DPO
[AR] RIGHT_O, EXIT
[AR] RIGHT_-l, EXIT

T10KI.MCR[10,1141]
SIMPlE.MIC[10,1141]

11:45 11-AUG-·1984
15:31 27-JULY-1984

MICRO 31(254)

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

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

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

.

U 1567, 0511,0113,0207,4174,4007,0700,0200,0003,0312
U 0511, 0512,3333,0004,4175,5007,0701,0200,0000,0002

I
!

.lI
i

I
I
8

I
It

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

2762
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

KS10 MICROCODE V124, 27-JUL-84
DMOVE, DMOVN, DMOVEM, DMOVNM

Page 77

.TOC

"DMOVE, DMOVN, DMOVEM, DMOVNM"

120:

.DCODE
DBL R,
DBl R,
.UCODE

1434:
DMOVN:
1436:

CHAR ARXO, CALL [DBLNGA]
AC[ 1] [ARX] , J/STAC

124:

.DCODE
'oBL AC,

W,

DAC,
AC,

J/DAC
J/DMOVN

J/DMOVN1
J/DMOVNM

.UCODE
1565:
DMOVNM: [ARX]_AC[1],CALL [DBLNEG]
1567:
;GET E+1
DMOVN1 : [HR]+[ONE],
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
LOAD VMA,
;SAVE IN VMA
I
PXCT DATA,
;OPERAND STORE
!
START WRITE,
;START MEM CYCLE
J/STORE
;GO STORE AR

./

~
\

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

0
0
0
0

0400,
0401,
0402,
0403,

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

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

U 1441, 1500,4221,0003,4174,4003,7700,0200,0003,0001
0 0404, 1015,1442,1100
0 0405, 0015,1442,3000

o

0-

0406. 0016,1442,1700
0407, 0017,1442,1700

U 1442, 1500,4551,0303,0274,4003,7700.0200,0003,0001
0
0
0
0

0410,
0411,
0412.
0413,

1015.1443,1100
0015,1443,3000
0016,1443,1700
0017,1443,1700

U 1443, 1500,5551,0303,0274,4003,7700,0200,0003,0001
0 0414, 1015, 1404, 1 100
0 0415, 0015,1404,3000

D 0416, 0016,1404,1700
0 0417, 0017,1404,1700

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

0 0420,

U 1444, 1442,7441,0303,4174,4007,0700,0000,0000,0000
D 0424,
0 0425,
0 0426,
D 0427,

0000,1400,1100
0000, 1400, 2 100
0116,1404,0700
0116,1404,0700

2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
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

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

1441:
SETZ:
404:

1442:
AND:
410:

1443:
ANOCA:
414:

420:

1444:
ANOCM:
424:

Page 78

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

AC,
AC,
M,
B,

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

[AR]_O, EXIT
.OCOOE
R-PF,
I-PF,
RW,
RW.
.UCOOE

AC,
AC,
M.
B,

J/ANO
J/ANO
J/ANO
J/ANO

[AR] [ARJ.ANO.AC,EXIT
.OCOOE
R-PF,
I-PF,
RW,
RW,
.UCOOE

AC,
AC,
M,
B,

J/ANOCA
J/ANOCA
J/ANOCA
J/ANOCA

[AR] [AR].ANO.NOT.AC,EXIT
.OCOOE
R-PF,
I-PF,
RW,
RW,
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
B,

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

AC,
AC,
M,
B,

J/ANDCM
J/ANDCM
J/ANOCM
J/ANOCM

M,

;SETM
;SETMM
;SETMB

= MOVE
=

NOP THAT WRITES MEMORY
MOVE THAT WRITES MEMORY

[AR] .NOT. [AR], J/ANO
.OCODE
R,
I,
W,
W,
.UCODE

M,
M,

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

;SETAM = MOVEM
;SETAB, TOO

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

11: 45 11-AUG-1984
1.5:31 27-JULY-1984

MICRO 31(254)

0430, 1015,1445,1100
0431, 0015,1445,3000
0432, 0016,1445,1700
0433, 0017,1445,1700

U 1445, 1500,6551,0303,0274,4003,7700,0200,0003,0001

~

D
D
D
D

0434,
0435,
0436,
0437,

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

E
~

0

~
~

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

~

D
D
D
D

;t

~
'g
~
w

·i31

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

U 1447,

1443,7441,0303,4174,4007,0700,0000,0000,0000

~

~
j
II

I
<:

I
.t

D
D
D
D

0444, 1015,1450,1100
0445. 0015,1450,3000
0446, 0016,1450,1700
0447, 0017,1450,1700

2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
c; 2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882

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

1445:
XOR:
434:

1446:
lOR:
440:

1447:
ANDCB:
444:

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

AC,
AC,
M,
B,

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

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

AC,
AC,
M,
B,

J/IOR
J/IOR

J/IOR
J/IOR

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

AC,
AC,
M,
B,

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

[AR] .NOT.[AR],J/ANDCA
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

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

28~3

U 1450, 1500,7551,0303,0274,4003,7700,0200,0003,0001
D
D
D
D

0450,
0451,
0452,
0453,

U 1451,

0015,1451,3000
0015,1451,3000
0016,1451,2700
0017,1451,2700

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

2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896

1450:

EQV:
450:

1451 :
SETCA:

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

AC,
AC,
M,
B,

J/SETCA
J/SETCA
J/SETCA
J/SETCA

[AR] . NOT. AC, EXIT

Page 79

~

~

~
\

T 10K I . MCR [ 10, 1141 ]
SIMPLE.MIC[10,1141]
0
0
0
0

11: 45 ll-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

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

U 1452, 0531,7771,0005,0274,4007,0700,0000,0000,0000
U 0531, 1500,3111,0503,4174,4003,7700,0200,0003,0001
0
0
0
0

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

U 1453, 1500,7441,0303,4174,4003,7700,0200,0003,0001
0
0
0
0

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

U 1454, 1446,7441,0303,4174,4007,0700,0000,0000,0000
0 0470, 1015,1455,1100
0 0471, 0015,1455,3000
0

0472, 0016,1455,1700

0 0473, 0017,1455,1700

U 1455, 1453,4551,0303,0274,4007,0700,0000,0000,0000
0
0
0
0

0474,
0475,
0476,
0477,

U 1456,

0015,1456,3000
0015,1456,3000
0016,1456,2700
0017,1456,2700

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

2897
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
294,4
2945
; 2946
2947

KSlO MICROCOD'E V124, 27-JUL-84
BOOLEAN GROUP
454:

1452:
ORCA:

460:

1453:
SETCM:
464:

1454:
ORCM:
470:

1455:
ORCB:
474:

1456:
SETa:

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

AC,
AC,
M,
B,

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

[BRL·NOT.AC
[AR] [ARj.OR.[BRj,EXIT
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

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

[ARj .NOT.[ARj,EXIT
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCDDE

AC,
AC,
M,
B,

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

[ARj . NOT. [AR j, J/IOR
.DCODE
R-PF,
I-PF,
RW,
RW,
.UCODE

AC,
AC,
M,
B,

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

/

[ARj [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

[ARj -[ONE] , EXIT

Page 80

T10KI.MCR[10,1141]
SIMPLE.MIC[10.1141]

D
D
D
D
D
D
D

0240.
0241.
0242.
0243,
0244.
0245.
0246.

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

0400.1622.1000
0400.1632.1000
0400.1612.1000
0000,1462,2100
0000.1466,3000
0500,1470,1000
0500.1464.1000

U 1612, 0532,3771.0003.0276.6007.0700,1000,0031,1777
U 1613, 0552,4551,1203,0276.6007,0700,1000,0041,0001
U 0532, 1515,3445.0303,4174,4007,0700,1020,0041,0001

2948
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

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

245:

"ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO·
.DCODE
SH,
SH,
SH.
I"
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:
LSH:
[AR] AC.
;PICK UP AC
FE -FE-1.
;NEGATIVE SHIFT
J/[SHL
;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

T10KI.MCR[10,1141J
SIMPLE.MIC[10,1141]

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1622, 0564,4222,OOOO,41J4,4007,0700,OOOO,0000,OOOO
U 1623, 0552,3771,0003,0276,6007,0700,1000,0041,0001
U 0552,

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

U 0564, 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

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

KS10 MICROCOOE 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:

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

Q 0, J/ASHLO
CARJ AC,
FE FE+1
[ARJ_[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:

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

11:45 11-AUG-1984
15:31 27-0ULY-1984

MICRO 31(254)

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

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

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

[AR] [AR]*.5
[AR]-[AR1*2,
ROT,-SHIFT,
0/ASHXX

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

T 10K I . MC R [ 10, 1 14 1 ]
SIMP L E . MI C { 10, 1 14 1 ]

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

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

U 0514, 0652,3441,0301,4174,4007,0700,0200,0014,0012
U 0515, 1400,4223,0000,1174,4007,0700,0400,0000,1441
U 0652, 0534,4443,0000,4174,4007,0700,1000,0071,1764

U
U
U
U

0534,
0535,
0701,
0706,

0534,3445,0505,4174,4007,0520,1000,0041,0004
0701,3777,0003,4334,4057,0700,0000,0041,0000
0706,4251,0303,4374,4007,0700,0000,0000,0077
0100,3440,0303,1174,4156,4700,0400,0000,1441

3014
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

KS10 MICROCODE V124, 27-JUL-84 Page 84
ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO
1462:
cJFFO:
=0

cJFFO 1 :

=0
JFFOL:

[BR] AC.AND.MASK, 4T,
SKIP-AD.EQ.O
[PC] [AR],
LOAD-VMA, FETCH,
J/JFF01
AC[lLO, J/DONE

;GET AC WITH NO SIGN
; EXTENSION. SKIP IF
; ZERO.
;NOT ZERO--JUMP
;GET NEXT INST
;ENTER LOOP
;ZERO--DONE
;WHY -12.? 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 P~ACE
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[1T [AR], NEXT INST
;STORE AND EXIT

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

11:45 11-AUG-1984
15:3127-JULY-1984

MICRO 31(254)

U 1464, 0554,4443,0000,4174,4007,0630,2000,0060,0000

U 1465, 0747,3333,0003,4174,4007,0700,2000,0031,5777
U 0747, 0544,4443,0000,4174,4007,0630,2000,0060,0000

U 0544, 0544,3446,0505,4174,4057,0630,2000,0060,0000
U 0545, 0767,3444,0505,4174,4007,0700,0000,0000,0000

U 0554, 0554,3444,0505,4174,4057,0630,2000,0060,0000
U 0555, 0767,3444,0505,4174,4007,0700,0000,0000,0000
U 0767, 1002,3444,0505,4174,4007,0700,0000,0000,0000
U 1002, 1026,3440,0505,0174,4007,0700,0400,6000,0000

3044
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

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_[BR], J/ASHCQ1

RAM FILE

Q-REGISTER

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1466, 0602,3333,0003,4174,4007,0330,3000,0041.4000
U 0602, 1007,3772,0000,1275,5007,0701.0000.0000,1441
U 0603. 0100,4443.0000,4174,4156.4700.0000,0000,0000
U 1007. 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,

1023,3444,0505,4174,4047,0700,0000,0000,0000

U 0634, 0634,3444,0505,4174,4447,0630,2000,0060,0000
U 0635, 1023,3444,0505,4174,4447,0700,0000,0000,0000
U 1023, 0642,0113,0505,0174,4007,0521,0400,0000,0000
U 0642, 1026,4662,0000,4374,0007,0700,0000,0037,7777
U 0643, 1026,3662,0000,4374,0007,0700,0000,0040,0000
U 1026, 0100,3223,0000,1174,4156,4700.0400,0000,1441

3079
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
3111
3112
3113
3114
3115
3116
3117

KS10 MICROCOOE 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
=0
Q AC [1] ,
J7ASHCl
NIDI SP: 'NEXT INST
ASHC1:
[BR]_AC*.5 LONG,
=0

=0
ASHCR:

=0
ASHCL:

SKIP/SC
[BR] [BR]*.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
[BR] [BR]*2 LONG,
ASHC-;- J/ASHCX

[BR] [BR]*2 LONG,
ASHC-;- ASH AROV,
STEP SC, J/ASHCL
[BR] [BR]*2 LONG,
ASHC-;- ASH AROV
ASHCX: AC [BR]+[BR], 3T,
SKIP DPO
=0
Q Q.ANO.#, #/377777.
HOLD RIGHT, J/ASHCQl
Q Q.OR.#, #/400000,
HOLD RIGHT
ASHCQ1: AC[1]_Q, NEXT INST

;PUT AR ON OP
;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 OPEl)
;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

T1QKI .MCR[ 10,1141]
SIMP LE . MI C [ 10, 1 14 1 ]

11:45 11-AUG-1984'
15:31 27-JULY-1984

MICRO 31(254)

U 1470, 0742,4443,0000,4174,4007,0630,2000,0060,0000
U 1471, 1033,3333,0003,4174,4007,0700,2000,0031,5777
U 1033, 0644,4443,0000,4174,4007,0630,2000,0060,0000
U 0644, 0644,3446,0505,4174,4077,0630,2000,0060,0000
U 0645, 0767,3444,0505,4174,4007,0700,0000,0000,0000

U 0742, 0742,3444,0505,4174,4077,0630,2000,0060,0000
U 0743, 0767,3444,0505,4174,4007,0700,0000,0000,0000

3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
313.6
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149

KS10 MICROCODE V124, 27-JUL-84 Page 87
ROTATES AND LOGICAL SHIFTS -- ROTC
.TOC

"ROTATES AND LOGICAL SHIFTS -- ROTC"

;SHIFT.CONNECTIONS WHEN THE SPECIAL FUNCTION "ROTC" IS DONE:

!----!-----------------------------------HIGH ORDER 36 BITS
1----1------------------------------------

. . . . . >!OOOOI

: 1----1-----------------------------------LOW ORDER 36 BITS
!----!------------------------------------

.. 10000!

.
...................................
_ .............. .
.
1470:
ROTC:
1471 :

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 LDNG,J/LSHCX

=0

ROTCL:

[BR] [BR]*2 LONG,ROTC,STEP SC,J/ROTCL
[BR]-[BR]*2 LONG,
J/LSHCX

RAM FILE

Q-REGISTER

; T10KI.MCR[10,1141]
; SIMPLE.MIC[10,1141]

!

az
t

i

~

i
!..

I:

!I

iii

I
~E

•

!

I
~

8

I
I:

D
D
D
D
D
D
D
D

0600,
0601,
0602,
0603,
0604,
0605,
0606,
0607,

0000,1400,2100
0000,1400,2100
0000,1475,2100
0000,1474,2100
0000,1473,2100
0000,1472,2100
0004,1475,2100
0004,1474,2100

D
D
D
D
D
D
o
D

0610.
0611.
0612,
0613,
0614.
0615,
0616,
0617,

0000,1400,2100
0000.1400,2100
0000,1475,1100
0000,1474,1100
0000,1473,1100
0000,1472,1100
0004,1475.1100
0004,1474,1100

D
o
o
o
o
o
o
o

0620,
0621,
0622,
0623,
0624,
0625,
0626,
0627,

0005,1473,2100
0005,1472,2100
0001,1475,2100
0001,1474,2100
0001,1473,2100
0001,1472,2100
0005,1475,2100
0005, 1474, 2 100

11:45 11-AUG-1984
15:31 27-~ULY-1984

MICRO 31(254)
3150
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

KS10 MICROCODE V124,
TEST GROUP
. T,OC

27-~UL-84

Page 88

"TEST GROUP"
.OCODE

;SPECIAL MACROS USED DNLY IN B-FIELD OF TEST INSTRUCTIONS
"B/4"
TN"B/O"
TNE
"B/10" ;USED IN TIOE
WORD-TNE
"B/O"
TNA
"B/4"
TNN
"B/14" ;USED IN TION
WORD-TNN
"B/5"
TZ"B/1
TZE
"B/1
TZA
"B/5
TZN
"B/6
TC"B/2
TCE
"B/2
TCA
"B/6
TCN
"B/7
TO"B/3
TOE
"B/3"
TOA
"B/7"
TON
600:

610:

620:

I,
I,
I,
I,
I,
I,
I.
I,

~/DONE
~/DONE
~/TDXX
~/TSXX
~/TDX
~/TSX
~/TDXX

TNE,
TNE,
TNA,
TNA,
TNN.
TNN,

J/TSXX

I,
I,
R,
R,
R,
R,
R,
R,

TNE,
TNE,
TNA,
TNA,
TNN,
TNN,

~/DONE
~/DONE
~/TDXX
~/TSXX
~/TDX
~/TSX
~/TDXX
~/Tsxx

I,
I,
I,
I,
I,
I,
I,
I,

TZ-.
TZ-,
TlE,
TZE.
TZA,
TZA,
TZN,
TZN,

~/TDX
~/TSX

J/TDXX
~/TSXX
~/TDX

J/TSX
U/TDXX
~/TSXX

;TRN- IS NOP
;SO IS TLN-

;TDN- IS A Nap
;TSN- ALSO

T10KI.MCR[10,1141]
SIMP L E . MI C [ 10, 114 1 ]
0
0
0
0
0

0

D
0

0630,
0631,
0632,
0633,
0634,
0635,
0636,
0637,

0005,1473,1100
0005,1472,1100
0001,1475,1100
0001,1474,1100
0001,1473,1100
0001,1472,1100
0005,1475,1100
0005, 1474, 1100

0 0640, 0006,1473,2100
0 0641, 0006,1472,2100
0 0642, 0002,1475,2100

~

a
~

!

~
~

;t

;

1
w

e

.;;

.il

g

i

~
~

I

I
It

D 0643.
0 0644,
D 0645,
D 0646,
D 0647,

0002,1474,2100
0002,1473,2100
0002,1472,2100
0006,1475,2100
0006 , 1474 , 2 100

0 0650, 0006,1473,1100

D 0651, 0006.1472,1100
D 0652, 0002,1475,1100
D 0653, 0002,1474,1100
0 0654, 0002,1473,1100
0 0655, 0002,1472,1100
0 0656, 0006,1475,1100
D 0657. 0006.1474,1100
0 0660, 0007,1473,2100
0 0661, 0007,1472,2100
D 0662, 0003,1475,2100
D 0663, 0003,1474,2100
0 0664, 0003,1473,2100
D 0665, 0003,1472,2100
D 0666, 0007,1475,2100
D 0667, 0007,1474,2100
D 0670, 0007,1473,1100
D 0671, 0007,1472,1100
0 0672, 0003,1475,1100
D 0673, 0003,1474,1100
0 0674, 0003,1473,1100
0 0675, 0003,1472,1100
D 0676, 0007,1475,1100
D 0677, 0007,1474,1100

11: 45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31( 254)
3201
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
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244

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,
I,

TC-,
TC- ,
TCE,
TCE,
TCA,
TCA,
TCN,
TCN,

J/TDX
J!TSX
J/TDXX
J!TSXX
J!TDX
J/TSX
J!TDXX
J/TSXX

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

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,

650:

660:

R,
R,
R,
R,
R,
R,
R,
R,
I,
I,
I,
I,
I,

I,
1..
I,
670:

R,
R,

R,
R,
R,
R,
R,
R,

Page 89

T10KI.MCR[10,1141]
SIMPLE.MIC[10,1141j

11:45 11-AUG-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

3245
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
327.1
3272
3273
3274
3275
3276
3277

KS10 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
COMPLEMENT
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
, DF 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:
1474
TSXX
1475
TDXX

[AR] [AR] SWAP

;TSXX AND TLXX

[BR]_O,TEST DISP

;

[AR] [AR] SWAP

;TSXE, TSXN, TLXE, TLXN

[BR]_[AR].AND.AC,
TEST DISP

;TDXE, TDXN, TRXE, TRXN

ALWAYS AND NEVER SKIP CASES

T10KI.MCR[10,1141]
SIMP LE . MI C [ 10, 1 14 1 J

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0014,

1400,3333,0005,4174,4007,0571,0000,0000,0000

U 0015,

1036,7441,0303,4174,4007,0700,0000,0000,0000

U 0016,

1043,6551,0303,0274,4007,0700,0000,0000,0000

U 0017,

1043,3551,0303,0274,4007,0700,0000,0000,0000

U 1036, 1043,4551,0303,0274,4007,0700,0000,0000,0000
U 1043, 0014,3440,0303,0174,4007,0700,0400,0000,0000

KS10 MICROCODE V124, 27-JUL-84
TEST GROUP

Page 91

3278 ;TEST DISP DOES AN 8 WAY BRANCH BASED ON THE B-FIELD OF DROM
3279 '
3280 =1100
3281 TEST-TABLE:
3282
3283 ;CASE 0 & 4
TXNX
READ [BRJ, TXXX TEST, 3T, J/DONE
3284 TXXX:
3285
& 5 -- TXZ AND TXZX
3286 ;CASE
[ARJ .NOT.[AR],J/TXZX
3287
3288
3289 ;CASE 2 & 6 -- TXC AND TXCX
3290
[ARJ [AR].XOR.AC,J/TDDNE
3291
3292 ;CASE 3 & 7 -- TXO AND TXOX
3293
[AR] [AR].OR.AC,J/TDONE
3294
3295 ;THE SPECIAL FUNCTION TXXX TEST CAUSES A MICROCODE SKIP IF
3296 ; AD.EQ.O AND DROM B IS 0-3 OR AD.NE.O AND DROM B IS 4-7.
3297
3298 TXZX:
[ARJ [ARJ.AND.AC
AC [AR],J/TXXX
3299 TDONE:
3300
READ BR,TXXX TEST,J/DONE
3301

.~.
T10KI.MCR[10,1141]
SIMPLE.MIC[10,1141]

11:45 11-AUG-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, 0372,3333,0003,4174,4007,0520,0000,0000,0000
U 0256, 0372,3333,0003,4174,4007,0621,0000,0000,0000
U 0257, 0372,3333,0003,4174,4007,0421,0000,0000,0000

3302
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
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347

KS10 MICROCOOE V124, 27-JUL-84
COMPARE -- CAl, CAM
.TOC

"COMPARE

Page 92

CAl, CAM"

.OCODE
;SPECIAL B-FIELD ENCODING USED BY SKIP-JUMP-COMPARE CLASS
; INSTRUCTIONS:
SJCSJCL
SJCE
SJCLE
SJCA
SJCGE
SJCN
SJCG

"B/O"
"B/1"
"B/2"
"B/3"
"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 [ARJ , SKIP DPO,J/DONE

;CASE 2 -- EQUAL
SKIPE:
READ [AR], 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 -- .NDT EQUAL
READ [AR], SKIP AD.EQ.O,J/SKIP
;CASE 7 -- GREATER
READ [ARl, SKIP AD.LE.O,J/SKIP

T10KI.MCR[10,1141]
SIMPLE.MIC[10,1141)
0300.
0301,
0302,
0303,
0304,
0305,
0306,
D 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

0310,
0311,
0312,
0313,
0314,
0315,
0316,
03'17,

0000,1476,1100
0001,1476,1100
0002,1476,1100
0003,1476,1100
0004, 1476, 1100
0005,1476,1100
0006,1476,1100
0007,1476,1100

0
0
0
0
0
0
0

0
0
0
0
0
0
0
0

11: 45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1476, 0250,2551,0303,0274,4003,7701,4000,0000,0000

3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370

KS10 MICROCOOE V124, 27-JUL-84
COMPARE -- CAl, CAM
300:

.DCODE
I,
I,
I,
I ,

i:,
I,

I,
I,
310:

1476:
CAlM:

R,
R,
R,
R,
R,
R.
R,
R,
.UCODE

Page 93

SJC-,
SJCL,
SJCE,
SJCLE ,
SJCA,
SJCGE,
SJCN,
SJCG,

J/DONE
J/CAIM
J/CAIM
J/CAIM
J/CAIM
J/CAIM
J/CAIM
J/CAIM

;CAI

SJC- ,
SJCL,
SJCE,
SJCLE,
SJCA,
SJCGE,
SJCN,
SJCG,

J/CAIM
J/CAIM
J/CAIM
J/CAIM
J/CAIM
J/CAIM
J/CAIM
J/CAIM

;CAM

[AR]_AC- [AR), 3T, SKIP-COMP DISP

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

11: 45 11-AUG-1984
15:31 27-oJULY-1984

MICRO 31(254)

D 0330, 0000,1477,1100
D 0331, 0001,1477,1100
0 0332, 0002,1477,1100
0 0333, 0003,1477,1100
D 0334, 0004,1477,1100
0 0335, 0005,1477,1100
D 0336, 0006,1477,1100
D 0337, 0007,1477,1100

i

a

!

Ii
l!!

U 1477, 0744,3770,0303,4174,0007,0360,0000,0000,0000
U 0744, 0250,3440,0303,0174,4003,7700,0400,0000,0000
U 0745, 0250,4443,0000,4174,4003,7700,0000,0000,0000

(;

If

~

it

3

.,i
!

E
.;
!i

D
0
D
D
D
0
D
0

0350,
0351,
0352,
0353,
0354,
0355,
0356,
0357,

0000,1431,1500
0001,1431,1500
0002,1431,1500
0003,1431,1500
0004,1431,1500
0005,1431,1500
0006,1431,1500
0007,1431,1500

j
11

E

~

I
:!

U 1431, 1046,0111,0703,4174,4467,0701,0000,0001,0001
U 1046, 1053,4443,0000,4174,4007,0700,0200,0003,0002
U 1053, 1477,3333,0003,4175,5007,0701,0200,0000,0002

5
J

iit

0 0370, 0000,1437,1500
0 0371, 0001,1437,1500

D
D
D
o
D·
o

0372,
0373,
0374,
0375,
0376,
0377;

~

.~

(j

0002,1437,1500
0003,1437,1500
0004,1437,1500
0005,1437,1500
0006,1437,1500
0007,1437,1500

U 1437, 1046,1111,0703,4174,4467,0701,4000,0001,0001

3371
3372
3373
3374
3375
3376
3377
3378
3379
3380·
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
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

KS10 MICROCOOE V124, 27-oJUL-84 Page 94
ARITHMETIC SKIPS -- AOS, SOS, SKIP
"ARITHMETIC SKIPS -- AOS, SOS, SKIP"
.TOC
; ENTER WITH (E) IN AR
'330:

1477:
SKIPS:
=0

350:

1431:
AOS:
XOS:

370:

1437:
SOS:

.DCODE
R,
R,
R,
R,
R,
R,
R,
R,
.UCODE

SoJC- ,
SoJCL,
SoJCE,
SoJCLE,
SoJCA,
SoJCGE,
SoJCN,
SJCG,

oJ/SKIPS ;NOT A NOP IF AC .NE. 0
oJ/SKIPS
oJ/SKIPS
oJ/SKIPS
oJ/SKIPS
oJ/SKIPS
oJ/SKIPS
oJ/SKIPS

FIX [AR] SIGN,
SKIP IF ACO
AC_[AR],SKIP-COMP OISP
SKIP-COMP DISP
.DCODE
RW,
RW,
RW,
RW,
RW,
RW,
RW,
RW,
.UCODE

SoJC- ,
SJCL,
SoJCE,
SoJCLE,
SJCA,
SoJCGE,
SoJCN,
SoJCG,

oJ/AOS
J/AOS
oJ/AOS
oJ/AOS
oJ/AOS
oJ/AOS
oJ/AOS
oJ/AOS

[ARL[AR]+1, 3T, AD FLAGS
START WRITE
MEM WRITE,MEM_[AR],u/SKIPS
.DCODE
RW,
RW,
RW,
RW,
RW,
RW,
RW,
RW,
.UCODE

SoJC- ,
SoJCL,
SoJCE,
SoJCLE,
SoJCA,
SoJCGE,
SJCN,
SoJCG,

oJ/SOS
oJ/50S
oJ/SOS
oJ/SOS
oJ/SOS
oJ/SOS
oJ/SOS
oJ/SOS

[AR] [AR]-1, 3T, AD FLAGS, oJ/XOS

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

11: 45 11-AUG-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,0174,4007,0520,0400,0000,0000
U 0272, 0762,3770,0505,0174,4007,0621,0400,0000,0000

i

a

U 0273, 0762,3770,0505,0174,4007,0421,0400,0000,0000

~

U 0274, 0764,3440,0505,0174,4007,0700,0400,0000,0000

~
~

i

"

U 0275, 0764,3770,0505,0174,4007,0520,0400,0000,0000

i

U 0276, 0764,3770,0505,0174,4007,0621,0400,0000,0000

~

!
I..

.!
I

a

U 0277, 0764,3770,0505,0174,4007,0421,0400,0000,0000

E

U 0762, 0110,3443,0100,4174,4156,4700,0200,0014,0012
U 0763, 0110,3441,0301,4170,4156,4700,0200,0014,0012

~

I
g

i
11
IL

U 0764, 0110,3441,0301,4170,4156,4700,0200,0014,0012
U 0765, 0110,3443,0100,4174,4156,4700,0200,0014,0012

3421
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

KS10 MICROCODE V124, 27-JUL-84 Page 95
CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ
.TDC
"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/vUMP-

;CASE 2

- - EQUAL
AC_[BR] TEST, SKIP AD.EQ.O, v!UUMP-

;CASE 3

- - LESS THAN OR EQUAL
AC_[BR] TEST, SKIP AD.LE.O, v/JUMP-

;CASE 4 -- ALWAYS
AC_[BR], v/vUMPA
vMPA:
;CASE 5 -- GREATER THAN OR EQUAL TO
AC_[BR] TEST, SKIP DPO, J/vUMPA
;CASE 6 -- NOT EQUAL
AC_[BR] TEST., SKIP AD.EQ.O, J/JUMPA
;CASE 7 -- GREATER
AC_[BR] TEST, SKIP AD. LE.O, J/JUMPA
=0
JUMP- :
=0
JUMPA:

DONE
vUMPA
JUMPA
DONE

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

o
o
o
o
o
o
o
o

0320,
0321,
0322,
0323,
0324,
0325,
0326,
0327,

11:45 11-AUG-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,2100
0007,1440,2100

U 1440, 0270,3771,0005,0276,6003,7700,0000,0000,0000

o
o
o
o
o
o

o
o

0340,
0341,
0342,
0343,
0344,
0345,
0346.
0347,

0000,1611,3000
0001,1611,2100
0002,1611,2100
0003,1611,2100
0004,1611,2100
0005,1611,2100
0006.1611,2100
0007,1611,2100

U 1611, 0270,0551,0705,0274,4463,7702,0000,0001,0001

o
o
o
o
o
o
o
o

0360,
0361,
0362,
0363,
0364,
0365,
0366,
0367,

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

o
o

0252, 0005,1547,2100
0253, 0001,1547,2100

U 1547, 0270,0551,1505,0274,4403,7701,0000,0000,0000

3460
3461
3462
3463
'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
3503
3504
3505
3506
3507
3508
3509
3510
3511

KS10 MICROCODE V124, 27-JUL-84 Page 96
CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ
320:

.DCODE
I,
I,
I,
I,
I,
I,
I,
I,
.UCODE

SJC-,
SJCL,
SJCE,
SJCLE,
SJCA,
SJCGE,
SJCN,
SJCG,

J/OONE
J/JUMP
J/JUMP
J/JUMP
J/JRST
J/JUMP
J/JUMP
J/JUMP

1440:
JUMP:

[BR]_AC,JUMP DISP

340:

.DCODE
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:

[BR]_AC+1, AD FLAGS, 4T, JUMP OISP

360:

.OCODE
I-PF,
I,
I ,
I,

I,
I ,
I ,
I ,

SJC- ,
SJCL,
SJCE,
SJCLE,
SJCA,
SJCGE,
SJCN,
SJCG,

J/SOJ
J/SOJ
J/SOJ
J/SOJ
J/SOJ
J/SOJ
J/SOJ
J/SOJ

.UCODE
1542:
SOJ:

[BR]_AC-1, AD FLAGS, 4T, JUMP DISP

252:

.OCOOE
I,
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

T 10K I . MC R [ 10, 1 14 1 ]
SIMPLE.MIC[10,1141]

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0254,0000,1520,6000
D 0255, 0000,1540,2100

U 1520, 0110,3441,0301,4170,4156,4700,0200,0014,0012

U 1521, 0110,3441,0301,4170,4156,4700,0200,0014,0012

~
~

..

z

a

~
~

i
"i
]
.~

i

iii

~

';

.ll
~

~
~

)
g

I
c

U 1522, 0150,1113,0701,4170,4007,0700,4200,0004,0012
U 1523, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1524, 1010,4443,0000,4174,4007,0340,0000,0000,0000
U 1525, 2215,3443,0300,4174,4007,0700,0200,0004,0012
U 1526, 0320,4443,0000,4174,4007,0340,0000,0000,0000

U 1527, 1024,4443,0000,4174,4007,0340,0000,0000,0000
U 1530, 1014,1113,0701,4170,4007,0040,4200,0004,0012
U 1531, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1532, 0300,1113,0701,4170,4007,0040,4200,0004,0012
U 1533, 2621,4551,0202,4374,0007,0700,0000,0077,7740

U 1534, 1034,4443,0000,4174,4007,0340,0000,0000,0000
U 1535, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1536, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1537, 2621,4551,0202,4374,0007,0700,0000,0077,7740

3512
3513
3514
3515
3516
3517
3518
3519
3520
352'1
., 3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545

KS10 MICROCODE V124, 27-JUL-84
AC DECODE JUMPS -- JRST! JFCL

Page 97

.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
;JRST DISPATCHES TO ONE OF 16 LOC'NS ON AC BITS
=0000
1520:
JRST:
1521 :
1522:

JUMPA
; (0)
JUMPA
;(1)
VMA [PC ]-1 , START READ, ;(2)
J/JRSTF
UUO
; (3)
SKIP KERNEL, J/HALT
; (4)

JRST 0,
PORTAL IS SAME AS JRST
JRSTF

1523:
1524:
HALT
1525:
XJRSTFO: VMA [AR], START READ, ;(5) XJRSTF
J/XJRSTF
1526:
SKIP KERNEL, J/XJEN
;(6) XJEN
1527:
SKIP KERNEL, J/XPCW
;(7) XPCW
1530:
VMA [PC]-l, 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
UUO
; ( 13)
SKIP KERNEL, J/SFM
; ( 14) SFM
1534
1535
UUO
; ( 15)
1536
UUO
; ( 16)
; ( 17 )
1537
UUO

TlOKI .MCR[ 10,1141]
SIMPLE.M~C[10.1141]

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0150. 1064.3771,0002,4365,5217,0700,0210,0000,0002
U 0152, 0110,3441,0301.4170,4156,4700,0200,0014,0012
U 1064, 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,

1117,0551,0202,2270,4007,0700,0200,0004,0012

U 0036,

1117,3443,0200,4174,4007,0700,0200,0004,0112

U 1117,

1064,3771,0002,4365,5217.0700,0200.0000,0002

'. 3546
" 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

KS10 MICROCOOE V124, 27-JUL-84
AC DECODE JUMPS -- JRST, JFCL
=0*
JRSTF:

JRSTO:
=100*

JRST 1 :

Page 98

MEM READ,
[HR] MEM,
LOAD-INST EA.
CALL [JRSTOJ
JUMP A

;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.
UPDATE 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 @ AND XR
;LOOP BACK

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

11:45 l1-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1010, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1011, 2211,3441,0301,4174,4007,0700,0000,0000,0000
U 2211, 0104,4751,1217,4374,4007,0700,0000,0000,0001
U 1014, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1015, 030.3,4443,0000,4174,4007,0700,0000,0000,0000
U 0300, 2621,4551,0202,4374,0007,0700,0000,0077,7740

U 0301, 1064,3771,0002,4365,5217,0700,0210,0000,0002
U 0303, 2416,4553,1400,4374,4007.0331,0010,0007,7400
U 0307, 3510,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

/

3576
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

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,
[HRLMEM,
LOAD INST EA,
CALL [JRSTO]
=0011
JEN2:
DISMISS
CALL LOAD PI
=0111
JUMPA
= 1111
1540:
JFCL:

JFCL FLAGS,
SKIP JFCL,
3T,
J!JUMP-

Page 99

;USER MODE
;EXEC MODE--CHANGE PC
;HALT INSTRUCTION

;DISMISS INTERRUPT
;

FLAGS
GET INST
LOAD XR 8< @>
COMPUTE FLAGS
DISMISS INTERRUPT
RELOAD PI HARDWARE
GO JUMP

ALL DONE IN HARDWARE
SEE IF SKIPS
ALLOW TIME
JUMP IF WE SHOULD

T 10K I . MCR [ 10. 1 14 1 ]
SIMPLE.MIC[10,1141]

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0320, 2621.4551,0202,4374,0007,0700,0000,0077,7740
U 0321, 2416,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 2215, 2511,3771,0005,4365,5007,0700,0200,0000,0002
U 2511, 2513,0111,0703,4174,4007,0700,0200,0004,0012
U 2513, 2567,3771,0001,4361,5007,0700,0200,0000,0002
U 2567, 2576,3333,0005,4174,4467,0700,0000,0001,0004
U 2576, 0305,5551,1313,4374,4007,0700,0000,0001,0000

U 1024, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1025, 0020,4521,1205,4074,4007,0700,0000,0000,0000
U 0020, 3571,3443,0300,4174,4007,0700,0210,0003,0012
U 0024, 3572,0111 ,0703.4170,4007,0700,0210,0003,0012
U 0025, 2215,0111,0703,4174,4007,0700,0200,0004,0002

U 1034, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1035, 2577,3443,0300,4174,4007,0700,0200,0003,0012
U 2577 , 0455,4521,1203,4074,4007,0700,0000,0000,0000

3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
361"9
;. 3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642

KS10 MICROCODE V124, 27-JUL-84 Page 100
EXTENDED ADDRESSING INSTRUCTIONS
.TOC
=0000
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.PI/1, J/PIEXIT

=0
XPCW:

UUO
[BRLFLAGS

=0*0
PIXPCW: VMA [AR], START WRITE,
CALL [STOBR]
VMA [AR]+1, LOAD VMA,
=1*0
START WRITE,
CALL [STOPC]
[AR] [AR]+1,
START READ, J/XJRSTF
=0
SFM:

UUO
VMA [AR], START WRITE
[AR] 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

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0256, 0000,1541,1100

U 1541, 1120,4443,0000,4174,4007,0340,0000,0000,0000

U 1120, 2600,3441,0302,4174,4617,0700,0000,0000,0100

U 1121, 1120,3333,0002,4174,4167,0700,0000,0000,0000
U 2600, 0346,4713,1202,7174,4007,0700,0400,0000,0422

3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664

KS10 MICROCODE V124, 27-JUL-84
XCT
.TOC

"XCT"

256:

R,

Page 101

.DCODE
J/XCT

;OPERAND FETCHED AS DATA

.UCODE
1541 :
XCT:

SKIP KERNEL

;SEE IF MAY BE PXCT

[HR] [AR),
DBUs7DP,
LOAO 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 [HR),
LOAD PXCT,
J/XCT1A

;LOAO PXCT FLAGS

=0

XCT1A:

XCT1 :

;CONTINUE WITH NORMAL FLOW

WORK[YSAVE] [HR] CLR LH, ;SAVE FOR 10 INSTRUCTIONS
J/XCT2
;GO EXECUTE IT

(j
T10KI.MCR[10,1141)
SIMPLE.MIC[10,1141)

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)
~665

o
o
o
o

0260,
0261,
0262,
0263,

0000,1544,2100
0002,1543,3100
0002,1545,2100
0000,1546,2100

U 1543, 2601,3771,0005,4365,5007,0700,0200,0000,0002

U 2601, 1122,0551,1504,0274,4407,0311,0200,0003,0712

U 1544, 2601,3741,0105,4074,4467,0700,0000,0005,0000

U 1122, 0220,3333,0005,4175,5003,7701,0200,0000,0002

J
g

U 1123, 2602,3333,0005,4175,5007,0701,0200,0000,0002

I

U 2602, 0220,4443,0000,4174,4463,7700,0000,0001,2000

U 0220, 0221,3441,0301,4174,4007,0700,0200,0014,0012
U 0221, 0100,3440,0404,0174,4156,4700,0400,0000,0000
U 0222, 1400,3440,0404,0174,4007,0700,0400,0000,0000

.; 3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
36,79
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

KS10 MICROCODE V124, 27-JUL-84 Page 102
STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ
.TOC

"STACK INSTRUCTIONS -- PUSHJ, PUSH; POP, POPJ"

260:

I,

.DCODE
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:
[BR) MEM
[ARX] AC+1000001,
PUSH1 :
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:

. ;WAIT FOR MEMORY
MEM WRITE,
;STORE BR ON STACK
MEM [BRl,
;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]
;OVERFLOW
SETPDL: SET-POL OV,
;SEE IF PUSH OR PUSHJ
B DISP,
;BELOW
J/JSTAC
"00
JSTAC:

[PC] [AR].
LOAD-VMA,
FETCH
JSTAC1: AC [ARX),
NEXT INST
AC [ARX],
J/OONE

;PUSHJ--LOAD PC
;LOAD ADDRESS
;GET NEXT INST
;STORE BACK STACK PTR
;00 NEXT INST
;UPDATE STACK POINTER
;00 NEXT INST

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1545, 2603,3771,0004,0276,6007,0701,0200,0004,0712
U 2603, 2604,3771,0005,4365,5007,0700,0200,0000,0002

U 2604, 1124,0551,0404,4374,4407,0311,0000,0077,7777

U 1124, 2606,3443,0300,4174,4007,0700,0200,0003,0312

U 1125, 2605,3443,0300,4174,4007,0700,0200,0003,0312

.

I

U 2605, 0220,3333,0005,4175,5003,7701,0200,0000,0002

·1

.ii

U 2606, 2602,3333,0005,4175,5007,0701,0200,0000,0002

J
i

I

U 1546, 2607,3771,0004,0276,6007,0701,0200,0004,0712

it

U 2607, 1126,0551,0404,4374,4407,0311,0000,0077,7777
U 1126, 1127,4443,0000,4174,4467,0700,0000,0001,2000
U 1127, 0221,3771,0001,4361,5007,0700,0200,0000,0002

3715
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

KS10 MICROCODE V124, 27-JUL-84 Page 103
STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ
1545:
POP:

=0

[ARXj AC,
LOAD VMA,
START READ, 3T,
PXCT STACK WORD

;GET POINTER
;ADDRESS OF STACK WORD
;START CYCLE
;FOR PXCT

MEM READ,
[BR.J_MEM

;LOAD BR (QUIT IF PAGE FAIL)
;STACK WORD TO BR

[ARxj [ARX]+#,
#/777777,
INH CRY18, 3T,
SKIP CRYO

;UPDATE POINTER
;-1 IN EACH HALF
;BUT NO CARRY
;SEE IF OVERFLOW

VMA [AR],
PXCT DATA,
START WRITE,
J/POPX1

;EFFECTIVE ADDRESS
;FOR PXCT
;WHERE TO STORE RESULT
;OVERFLOW

VMA [AR],
PXCT DATA,
START WRITE

;EFFECTIVE ADDRESS
;FOR PXCT
;WHERE TO SrORE RESULT

MEM WRITE,
MI;M [BR],
J/JSTAC

; WA IT 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 VMA,
PXCT STACK WORD, 3T,
START READ
[ARX] [ARX]+#,
#/777777,
INH CRY18, 3T,
SKIP CRYO
SET POL OV
MEM READ, [PC]_MEM,
HOLD LEFT,
!
J/JSTAC1

;GET POINTER
;POINT TO STACK WORD
;FOR PXCT
;START READ
;UPDATE POINTER
;-1 IN BOTH HALFS
;INHIBIT CARRY 18
;SEE IF OVERFLOW
; SET OVERFLOW
;STICK DATA IN PC
;NO FLAGS
;STORE POINTER

B DIsp,

POPX 1 :

1546:
POPJ:

=0

r'l
'-- ,/1

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

o 0105, 0000,1551,3000

U 1551, 2610,3770,0303,4344,0007,0700,0000,0000,0000
U 2610, 1130,3771,0005,0276,6007,0521,0000,0000,0000

U 1130, 1132,0113,0503,0174,4407,0521,0400,0000,0000

U 1131, 1134,0113,0503,0174,4407,0521,0400,0000,0000
U 1132, 0100,4443,0000,4174,4156.4700,0000,0000,0000,
U 1133, 0603,4443,0000,4174,4467,0700.0000,0001,2000

U 1134, 0603,4443,0000,4174,4467,0700,0000.0001.2000
U 1135, 0100.4443,0000,4174,4156,4700,0000.0000.0000

I

3762
3763
3764
3765
3766
3767
S768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794

KS10 MICROCODE V124, 27-JUL-84
STACK INSTRUCTIONS -- AOJSP
.TOC

"STACK INSTRUCTIONS

105:

.OCOOE
I-PF,
.UCODE

1551:
ADJSP:

=0

B/O,

[AR] [AR] SWAP,
HOLD-RIGHT
[BR]'AC,
3T, SKIP OPO
AC [BR]+[AR],
INH CRY18,
SKIP OPO,
3T,
J/AOJSP1
AC [BR]+[AR],
INH CRY18,
SKIP OPO,
3T,
J/AOJSP2

Page 104
AOJSP"
J/ADJSP

;MAKE 2 COPIES OF RH
;REAO AC, SEE IF MINUS
;UPOATE AC
;NO CARRY
;SEE IF STILL OK
;ALLOW TIME
;TEST FOR OFLO
;UPOATE AC
;NO CARRY
;SEE IF STILL MINUS
;ALLOW TIME FOR SKIP
;CONTINUE BELOW

=0
AOJSP1: NEXT INST
SET PDL OV,
J/NIDISP

NO OVERFLOW
SET POL OV
GO DO NICONO DISP

=0
AOJSP2: SET POL OV,
J/NIDISP
NEXT INST

SET PDL OV
GO DO NICOND DISP
NO OVERFLOW

T10KI.MCR[10,1141]
SIMPLE. MI C [ 10, 114 1 ]

D
D
D
D

11:45 11-AUG-1984
15:31 27-0ULY-1984

MICRO 31(254)

0264,0000.1552,2100
0265,0000,1550,2100
0266, 0000.1554,2100
0267, 0000,1555,2100

U 1550. 2611,3741,0105,4074,4007,0700.0000,0000,0000
U 2611, 0764,3440,0505,0174,4467,0700,0400,0005,0000

U 1552, 2612,3741,0105,4074,4467,0700,0000,0005,0000
U 2612, 2613,3443,0300,4174,4007,0700,0200,0003,0012
U 2613, 2614,3333,0005,4175,5007,0701,0200,0000,0002

U 2614, 0107,0551,0301,4370,4007,0701,0000,0000,0001

U 1554, 2615,3441,0305,4174,4007,0700,0200,0003,0002
U 2615, 0060,3770,0304,4344,4007,0700,0000,0000,0000
U 0060, 2757,3771,0003,0276,6007,0700,0010,0000,0000

I

U 0064, 3573,3441,0104,4170,4007,0700,0010,0000,0000

o!:

U 0065, 0107,0551,0501,4370,4007,0701,0000,0000,0001

U 1555, 2616,3771,0005,0276,6007,0700,0000,0000,0000
U 2616, 2617,3770,0505,4344,4007,0700,0000,0000,0000
U 2617, 2620,3443,0500,4174,4007,0700,0200,0004,0012
U 2620, 0274,3771,0005,4365,5007,0700,0200,0000,0002

3795
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

KS10 MICROCODE V124, 27-0UL-84 Page 105
SUBROUTINE CALL/RETURN -- 0SR, 0SP, 0SA, 0RA
.TOC

·SUBROUTINE CALL/RETURN -- 0SR, JSP, 0SA, JRA"

264:

I,

.DCODE
I,
I ,
I,

J/JSR
J/0SP
J/0SA
0/JRA

.UCODE
1550:
0SP:

1552:
0SR:

1554:
0SA:
=0*0
=1*0
=1*1

1555:
0RA:

[BR] PC WITH FLAGS
CLR FPD,
AC [BR],
0/J"UMPA

;GET PC WITH FLAGS
;CLEAR FIRST-PART-DONE
;STORE FLAGS
;GO 0UMP

[BR] PC WITH FLAGS.
CLR FPD
VMA [AR],
START WRITE
MEM WRITE,
MEM [BR]
[PC] [AR]+1000001,
HOLD-LEFT,
3T,
J/START

;GET PC WITH FLAGS
;CLEAR FIRST-PART-DONE
;EFFECTIVE ADDRESS
;STORE OLD PC WORD
;WAIT FOR MEMORY
;STORE
;PC
E+1
;NO JUNK IN LEFT
;ALLOW TIME FOR DBM
;START AT E+1

[BR] [AR],
START WRITE
[ARX] [AR] SWAP
[AR] AC,
CALL-[IBPX]
[ARX] [PC],
HOLD LEFT,
CALL [AC ARX]
[PC] [BR]+1000001,
3T,
HOLD LEFT,
J/START

;GO PUT ARX IN AC
;NEW PC
;ALLOW TIME
;NO JUNK IN PC LEFT
;START AT E+1

[BR] AC
[BR]-[BR] SWAP
VMA [BR],
START READ
MEM READ,
[BR] MEM,
J/JMPA'

;GET AC
;OLD E IN BR RIGHT
;LOAD VMA
; FETCH SAVED AC
;WAIT FOR MEMORY
;LOAD BR WITH SAVE AC
;GO JUMP

;SAVE E

;START 'to StORE
;ARX LEFT
E
;GET OLD AC
;SAVE AR IN MEMORY
;ARX NOW HAS E"PC

~.

~

~,

!

T10KI.MCR[10,1141]
SIMP L E . MI C [ 10, 114 1 ]

D
D
D
D
D
D
D
D

0030,
0031,
0032,
0033,
0034,
0035,
0036,
0037,

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

D
D
D
D
D
0

D
0

D
D
D
D
D
D
D
0

D
D
D
D
D
D
D
D
D
D
D
D
0
0

D

D
D
D
D

0041,
0042,
0043,
0044,
0045,
0046,
0047,
0050,
0051,
0052,
0053,
0054,
0055,
0056,
0057,
0060,
0061,
0062,
0063,
0064,
0065,
0066,
0067,
0070,
0071,
0072,
0073,
0074,
0075,
0076,
0077,

0100,
0101,
0102,
0103,

0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100
0000,1556,2100

0000,1556,2100
0000.1661,2100
0000,1662,2100
0000,1663,2100

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)
3847
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

KS10 MICROCOOE V124, 27-JUL-84
ILLEGAL INSTRUCTIONS AND UUO'S

Page 106

"ILLEGAL INSTRUCTIONS AND UUO'S"
.TOC
;LUUO'S TRAP TO CURRENT CONTEXT
030:

.DCODE
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,
'1 ,

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/MUUD
J/MUUO
J/MUUO
J/MUUQ
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO
J/MUUO

;CALL
; INIT

;CALLI
;OPEN
; TTCALL

;RENAME
; IN
;OUT
;SETSTS
;STATO
;GETSTS
;STATZ
; INBUF
;OUTBUF
; INPUT
;OUTPUT
;CLOSE
;RELEAS
;MTAPE
;UGETF
; USETI
;USETD
; LOOKUP
; ENTER

; EXPANSION OPCODES
100:

I,
I,
I .

I,

J/UUO
J/UU0101
,U/UUO 102
J/UU0103

;UJEN
;GFAD
;GFSB

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

0
0
0
0
0
0
0
0
0
0
0

0000,
0104,
0106,
0107,
0130,
0131,
0141,
0151,
0161,
0171,
0247,

11: 45 ll-AUG-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,2100
0003,1660,2100.
0004,1660,2100
0005,1660,2100
0000,1665,2100

U 1661, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1662, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1663, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1664, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1666, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1667, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1660, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1665, 2621,4551,0202,4374,0007,0700,0000,0077,7740

3902
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

KS10 MICROCOOE V124, 27-JUL-84
ILLEGAL INSTRUCTIONS AND UUO'S

Page 107

;RESERVED OPCOOES
000:
104:
106:
130:
141 :
151 :
161 :
171 :
247:

I,
I,
I ,
I,
I,
I,
I,
I,
I,
I,
I ,
.UCODE

1661:
UUO 101: UUO
1662:
UU0102: UUO
1663:
UU0103: UUO
1664:
JSYS:
UUO
1666:
UU0106: UUO
1667:
UU0107: UUO
1660:
FP-LONG:UUO
1665:
UU0247: 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-LONG
J/FP-LONG
J/FP-LONG
J/UU0247

;JSYS
;GFMP
;GFDV
;UFA
;DFN
;FADL
;FSBL
;FMPL
;FDVL
;RESERVED

~
\_)
T10KI.MCR[10,1141]
SIMPLE.MIC[10,1141]

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1556, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 2621, 1136,4751,1204,4374,4007,0700,0000,0000,0424
U 1136, 3670,0111,1104,4174,4007,0700,0010,0000,0000

ED

U 1137, 0310,3333,0004,41.74,4007,0700,0200,0021,1016

".

J

U 0022, 3443,3333,0002,4175,5007,0701,0210,0600,0002
U 0023, 3571,0111.0704,4170,4007,0700,0210,0023,1016

3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
; 3946
; ;3947
; ;3948
; ;3949
; ;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

KS10 MICROCODE V124, 27-JUL-84
ILLEGAL INSTRUCTIONS AND UUO'S
;HERE FOR UUO'S WHICH TRAP TO
1556:
;THIS TAG IS USED FOR
UUO:
;THIS TAG IS USED FOR
MUUO:
[HR] [HR].AND.#,
#/777740,
HOLD RIGHT
;THE UUO MACRO DOES THE ABOVE
UUOGO: [ARX]_O XWD [424]
[ARX] [ARX]+[UBR],
CALL [ABORT]
.IF/KIPAGE
.IF/KLPAGE
READ [EBR],

=0

Page 108
EXEC
ILLEGAL THINGS WHICH DO UUO TRAPS
MONITOR CALL INSTRUCTIONS
;MASK OUT @I AND XR
;MASK
;KEEP RIGHT
INSTRUCTION AND GOES TO UUOGO
;HERE FROM UUO MACRO
;GET OFFSET TO UPT
;ADDRESS OF MUUO WORD
;STOP MEMORY

SKIP DPO
=0
.ENDIF/KLPAGE
READ [ARX],
LOAD VMA.
VMA PHYSICAL WRITE,
J/KIMUUO
.ENOIF/KIPAGE
.IF/KLPAGE
[AR] [HR] SWAP
=0
[AR]-FLAGS,
HOLD-RIGHT,
CALL" [UUDFLG]
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

;IF BOTH POSSIBLE, SEE WHICH IS ENAB
;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
;WAIT FOR MEMORY
;STORE
;WAIT 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

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0027, 2622,4751,1205,4374,4007,0700,0000,0000,0430
U 2622, 2623,0111,1105,4174,4007,0700,0000,0000,0000
U 2623, 2624,4521,1203,4074,4007,0700,0000,0000,0000
·U 2624, 1140,4553,0300,4374,4007,0321,0000,0000,0600
U 1140, 1141,3551,0505,4370,4007,0700,0000,0000,0001
U 1141, 1142,4553,0300,4374,4007,0321,0000,0001,0000
U 1142, 1143,3551,0505,4370,4007,0700,0000,0000,0004

U 1143, 2625,3333,0005,4174,4007,0700,0200,0024,1016
U 2625, 2626,3771,0003,4365,5007,0700,0200,0000,0002

U 2626, 0764,3333,0003,4174,4467,0700,0000,0000,0404·

U 0310, 2630,3333,0002,4175,5007,0701,02.10,0000,0002
U 0312, 2627,3741,0103,4074,4007,0700,0010,0000,0000
U 0313, 0022,3333,0003,4175,5007,0701,0200,0000,0002

U 2627, 0001,5551,0303,4374,0004,1700,0000,0000,0600
U 2630, 0002,0111,0704,4170,4004,1700,0200,0023,1016

3981
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

KS10 MICROCODE V124, 27-JUL-84
ILLEGAL INSTRUCTIONS AND UUO'S

Page 109

;NOW WE MUST PICK ONE OF 8 NEW PC WORDS BASED ON PC FLAGS
=111
[BR]_O XWD [430]
;OFFSET INTO UPT
[BR] [BR]+[UBR]
[AR]-FLAGS
TL [AR],
#/600
=0
[BR ] [BR ] . OR . # ,
#/1,HOLD LEFT
TL [AR],
#/10000
=0
[BR] [BR] .OR.#,
#/4,
HOLD LEFT
READ [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
;LODK AT DATA
:LOAD NEW FLAGS
;ALLOW USER TO LOAD
:SET PCU FROM USER
: JUMP

.IF/KIPAGE
;HERE FOR TOPS-10 STYLE PAGING
=00
KIMUUO: MEM WRITE,
MEM [HR], CALL [NEXT]
=10
[ART PC WITH FLAGS,
CALL-[UUOFLG]
=11
MEM WRITE,
MEM [ARJ,
J/UUOPCW
.ENDIF/KIPAGE
UUOFLG: [AR] [AR].AND.NOT.#,
#/600, HOLD RIGHT,
RETURN [1J
NEXT:

:STORE INSTRUCTION
; IN MEMORY
:GET PC WORD
;CLEAR TRAP FLAGS
;StORE PC WORD
;GO STORE PROCESS CONTEXT
;CLEAR TRAP FLAGS
; IN WORD TO SAVE
; BACK TO CALLER

NEXT [ARX] PHYSICAL WRITE,
RETURN [2]

;POINT TO NEXT WORD

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1557, 0400,4751,1203,4374,4007,0700,0000,0000,0040

U 0400, 2631,3333,0003,4174,4007,0700,0200,0003,0012
U 2631, 2632,4551,0202,4374,0007,0700,0000,0077,7740
U 2632, 2633,3333,0002,4175,5007,0701,0200,0000,0002

U 2633, 2465,0111,0703,4170,4007,0700,0200,0004,0012

4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045

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
LUU01:
READ [AR],
;LOAD 40 INTO
LOAD VMA,
; THE VMA AND
START WRITE
; PREPARE TO STORE
[HR] [HR].AND.#,
;C~EAR OUT INDEX AND @
#/777740,
HOLD RIGHT
MEM WRITE,
;STORE LUUO IN 40
MEM [HR]
VMA-[AR]+1,
POINT TO 41
PUT 41 IN VMA
LOAD VMA,
START FETCH
START READ.
GO EXECUTE THE INSTRUCTION
J/CONT1

T10KI.MCR[10,1141J
SIMPLE.MIC[10,1141J

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)
4046

"

o

0270,
0,0271,
o 0272,
o 0273,

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

U 1560, 1500,0551,0303,0274,4463,7701,0200,0001,0001

o

o

o
o

0274, 1015,1561,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

KS10 MICROCOOE V124, 27-JUL-84
ARITHMETIC -- ADD, SUB
.TOC
270:

1560:
ADD:

274:

1561 :
SUB:

"ARITHMETIC
.OCODE
R-PF,
I-PF,
RW,
RW,
.UCDOE

AC,
AC,
M,
B,

ADD, SUB"
J/AOD
J/AOO
J/AOO
J/AOO

[ARL[ARJ+AC,
AD FLAGS EXIT, 3T

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

AC,
AC,
M,
B,

Page 111

DO THE ADD
UPDATE CARRY FLAGS
STORE ANSWER
MISSES 3-TICKS BY 3 NS.

J/SUB
J/SUB
J/SUB
J/SUB

[ARJ_AC- [AR], '
AD FLAGS EXIT, 3T

DO THE SUBTRACT
UPDATE PC CARRY FLAGS
ALL DONE
MISSES 3-TICKS BY 3 NS.

T10KI.MCR[10,1141]
SIMP LE . MI C [ 10, 1 14 1 ]

11:45 l1-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0114,0205,1457,1100
D 0115,0205,1615,1100

U 1457, 1144,0551,0404,1274,4007,0562,0000,0000,1441

U 1144, 2635,0551,0303,0274,4467,0702,4000,0001,0001
U 1145, 2634,7441,1205,4174,4007,0700,0000,0000,0000
U 2634, 1144,3111,0503,4170,4007,0700,0000,0000,0000

U 1615, 1146,2551,0404,1274,4007,0562,4000,0000,1441
U 1146, 2635,2551,0303,0274,4467,0702,0000,0001,0001
U 1147, 2635,2551,0303,0274,4467,0702,4000,0001,0001
U 2635, 1150,3770,0303,4174,0007,0520,0000,0000,0000
U 1150, 1404,4551,0404,4374,0007,0700,0000,0037,7777
U 1151 , 1404,3551,0404,4374,0007,0700,0000,0040,0000

4075
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

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DADD, DSUB
.TOC

"ARITHMETIC

114:

.DCODE
DBL R,
DBL R,
.UCODE

1457:
DADD:
=0
DADD1:

1615:
DSUB:
=0

DAC,
DAC,

Page 112

DADD, DSUB"
J/DADD
J/DSUB

[ARX] [ARX]+AC[l], 4T,
SKIP CRYl

;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/DADDl

;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
[AR] AC-[AR]-.25,
AD FLAGS, 4T,
J/CPYSGN
·[AR] AC-[AR], 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

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

11:45 11-AUG-1984
15:31 27-0ULY-1984

MICRO 31(254)

D 0220, 1015,1641,1100
o 0221,0015,1641,3000
o 0222,0016,1641,1700
o 0223,0017,1641,1700
U 1641, 2636,3441,0306,0174,4007,0700,0000,0000,0000
U 2636, 0031,3772,0000,0275,5007,0700,2000,0071,0043
U
U
U
U

0031,
0035,
1152,
1153,

2662,3446,0606,4174,4007,0700,0010,0000,0000
1152,3333,0004,4174,4007,0621,0000,0000,0000
2637,3445,0404,4174,4007,0700,0000,0000,0000
1500,3221,0003,4174,4003,7700,0200,0003,0001

U 2637, 1154,5113,0412,4174,4007,0621,0000,0000,0000
U 1154, 1156,3770,0404,4174,0007,0520,0000,0000,0000
U 1155, 1500,7001,0003,4174,4003,7700,0200,0003,0001
U 1156, 1404,3221,0003,4174,4467,0700,0000,0041,1000
U 1157, 1404,7001,0003,4174,4467,0700,0000,0041,1000

o
o
o
o

0224, 1005,1571,1100
0225, 0005,1571:3000
0226,0016,1571,1700
0227. 0006,1571,1700

U 1571, 2640,3442,0300,0174,4007,0700,0000,0000,0000
U 2640, 2641,3441,0316,4174,4007,0700,0000,0000,0000
U 2641, 0171,3771,0006,0276,6007,0700,2000,0071,0043
U 0171, 2662,3446,0606,4174,4007,0700,0010,0000,0000
U 0175, 2642,3445,0403,4174,4007,0700,0000,0000,0000
U 2642, 1160,3770,0303,4174,0007,0520,0000,0000,0000
U 1160, 1500,4001,0004,4174,4003,7700,0200,0003,0001
U 1161, 1162,4113,0616,4174,4007,0520,0000,0000,0000
U 1162, 1500,7001,0004,4174,4003,7700,0200,0003,0001
U 1163, 1404,7001,0004,4174,4467,0700,0000,0041,1000

4108
4109
4110
4111
4112
4113
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
414.2
4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158

KS10 MICROCODE V124, 27-0UL-84
ARITHMETIC -- MUL, IMUL
. TOC
220:

1641 :
IMUL:
=0**
=0
IMUL 1:
IMUL2:
=0
=0
IMUL3:

224:

1571:
MUL:
=0**

=0
=0

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

AC,
AC,
M,
B,

Page 113

MUL, IMUL"
0/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 TMULSUB]
;MULTIPLY
REAO [ARX], SKIP AO.EQ.O ;SEE IF FITS
[ARX] [ARX]*2, 0/IMUL2 ;NOT ZERO--SHIFT LEFT
[AR]_Q, EXIT
;POSITIVE
[MASK].AND.NOT.[ARX],
SKIP AO.EQ.O
FIX [ARX] SIGN,
SKIP OPO, 0/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, 0/MOVE
.DCODE
R-PF,
I -PF,
RW,
RW;
.UCODE

DAC,
DAC,
M,

DBL B,

0/MUL
J/MUL
0/MUL
0/MUL

;COPY C(E)
Q [AR], AC
;SAVE FOR OVERFLOW TEST
[TO] [AR]
;GET THE AC
[BRX)AC, SC 35.
;SHIFT OVER
[BRX]-[BRX]*~5 LONG,
;MULTIPLY
CALL TMULSUB]
;SHIFT OVER
[AR] [ARX]*2
FIX TAR] SIGN, SKIP OPO ;SEE IF NEGATIVE
;POSITIVE
[ARX] [MAG] .AND.Q,
EXIT
[TO].AND.[BRX], SKIP DPO ;TRIEO TO SQUARE 1BO?
[ARX] [MAGJ.EQV.O, EXIT ;NO
[ARX]-[MAG].EQV.O,
;YES
SET AROV, 0/MOVE

Tl0KI.MCR[10,l141)
SIMPLE .MIC[ 10,1141]

.

11:45 ll-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0116, 0205,1566,1100

U 1566, 2643,3447,0303,4174,4007,0700,0000,0000,0000
U 2643, 2644,4117,0004,4174,4007,0700,0000,0000,0000
U 2644, 0120,3441,0405,4174,.4007,0350,0000,0000,0000

U 0120, 2656,4557,0006,1274,4007,0701,0010,0000,1441
U 0121, 2646,4557,0004,1274,4007,0701,0000,0000,1442
U 0124, 0543,3223,0000,1174,4007,0700,0400,0000,1443

4159
4160
4161
4162
4163
4164
4165
4166
4167
; 4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
A181

U 0543, 0623,3442,0300,4174,4007,0700,2010,0071,0043
U 0547, 2645,3441,0416,4174,4007,0700,0000,0000,0000
U 2645, 0130,3227,0004,1174,4007,0700,0400,0000,1442
U 2646, 0130,3777,0016,1276,6007,0701,0000,0000,1441

U 0130, 2657,3777,0006,0274,4007,0701,0010,0000,0000
U 0131, 2661,0113,1616,1174,4007,0701,0400,0000,1441
U 0134, 2647,3223,0000,1174,4007,0700,0400,0000,1442
U 2647, 0563,0111,1604,4174,4007,0700,0000,0000,0000

U 0563, 0623,3442,0300,4174,4007,0700,2010,0071,0043
U 0567, 2650,3445,0404,4174,4467,0700,0000,0005,0000

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

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DMUL
.TOC

"ARITHMETIC

116:

.DCODE
DBL R,
.UCODE

Page 114

DMUL"
J/DMUL

DAC,

.IF/FULL
1566:
[AR] [AR]*.5
;SHIFT MEM OPERAND RIGHT
DMUL:
[ARX] ([ARX].AND.[MAG])*.5
[BR] IARX],
;COPY LOW WORD
SKIP-FPD
;SEE IF FIRST PART DONE
BRX * BR ==> C(E+l) * C(AC+l)
,
=000
[BRX] (AC[1].AND.[MAG])*.5, 3T, ;GET LOW AC
CALL IDMULGO]
;START MULTIPLY
[ARX] (AC[2].AND.[MAG])*.5, 3T, ;FIRST PART DONE
J/DMUL1
;GO DO SECOND PART
=100
AC[3]_0
;SALT AWAY 1 WORD OF PROOUCT
BRX * 0 ==> C(E) * C(AC+1)
=0**

Q [AR], SC 35.,
CALL [OMULT]
[TO) [ARX)
AC[2] 0, [ARX) 0*.5,
J/DMUL2
[TO)_AC[l)*.5

DMUL1:
=0*0
,
; BRX * BR ==> C(AC)
C(E+l)
,
DMUL2:
[BRX] AC*.5,
CALL IDBLMUL]
AC[l] [TO]*2, 3T,
J/DMLTNT
AC[2)_0

;GO MULT NEXT HUNK
;SAVE PRODUCT
;SAVE PRODUCT
;GO DO HIGH HALF
;RESTORE TO

*

[ARX]_[ARX]+[TO]
BRX * 0 ==> C(AC) * C(E)
,
o [ARl, SC 35.,
=0**
CALL [OMULT]
[ARX] [ARX]*2,
CLR FPD

;PREPARE TO DO HIGH HALF
, GO DO IT
;INTERRUPT, SAVE TO
;SET FPD AND INTERRUPT
;SAVE PRODUCT
;PREPARE FOR LAST MUL

DO THE LAST MULTIPLY
GO DO IT
SHIFT BACK
CLEAR FPD

T10KI.MCR[10,1141]
SIMPLE.MIC[10,1141]
U
U
U
U
U
U
U

2650,
1164,
1165,
2651,
2652,
2653,
2654,

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

1164,3770,0404,0174,4007,0520,0400,0000,0000
2655,3223,0000,1174,4007,0700,0400,0000,1441
2651,7003,0000,1174,4007,0700,0400,0000,1441
2652,3772,0000,1275,5007,0701,0000,0000,1442
2653,7003,0000,1174,4007,0700,0400,0000,1442
2654,3772,0000,1275,5007,0701,0000,0000,1443
2655,7003,0000,1174,4007,0700,0400,0000,1443

U 2655, 1166,3741,0103,4074,4007,0520,0000,0000,0000
U 1166, 0110,3443,0100,4174,4156,4700,0200,0014,0012
U 1167, 1400,4443,0000,4174,4467,0700,0000,0041,1000

U 2656, 2657,4221,0004,4174,4007,0700,0000,0000,0000
U 2657, 2660,3442,0500,4174,4007,0700,2000,0071,0043
U 2660, 0623,3447,0606,4174,4007,0700,0000,0000,0000
U 0623, 2664,3446,1200,4174,4007,0700,0010,0000,0000
U 0627, 0004,0113,0404,4174,4464,1701,0000,0001,0001
U 2661, 2565,4443,0000,4174,4467,0700;0000,0003,0000

o

I
It

4208
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

KS10 MICROCODE V124, 27-JUl-84
ARITHMETIC -- DMUL

Page 115

AC [ARX] TEST, SKIP DPO ;PUT BACK INTO AC
ACY1] Q, J/DMTRAP
; POSITIVE
AC[1]-[MAG).EQV.Q
;NEGATIVE
Q AC[2]
AC[2] [MAG).EQV.Q
Q AC[3]
AC[3] [MAG).EQV.Q
OMTRAP: [AR] PC WITH FLAGS,
;LOOK AT FLAGS
SKIP-DPO
;SEE IF AROV SET?
OONE
;NO--ALL DONE
=0
SET AROV, J/DONE
;YES--FORCE TRAP 1 ALSO
=0

;WAYS TO CALL MULTIPLY
DMULGO: [ARX] 0
DBLMUL: Q [BRT, SC 35.
[BRX] [BRXT *.5
=0**
QMULT: Q Q*.5,
CALL [MULTIPLY]
[ARX]+[ARX], AD FLAGS,
3T, RETURN [4]
OMLINT: SET FPO, J/FIXPC
.IFNOT/FULL
1566:
DMUL:
UUO
.ENDIF/FULL

;CLEAR ARX

;TEST FOR OVERFLOW
;ANO RETURN
;SET FPD, BACKUP PC
; INTERRUPT

.~

,

\

,

//

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 2662, 2663,3446,0606,4174,4007,0700,0000,0000,0000
U 2663, 0122,4226,0004,4174,4007,0630,2000,0060,0000

U 2664, 0122,3446,1200,4174,4007,0630,2000,0060,0000

4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DMUL

Page 116

;MULTIPLY SUBROUTINE
; ENTERED WITH:
MULTIPLIER IN Q
MULTIPLICAND IN BRX
;
;RETURNS 4 WITH PRODUCT IN ARX!Q
MUL STEP
MUL FINAL

"A/BRX,B/ARX,DEST/Q Q*.5,ASHC,STEP SC,MUL DISP"
"A/BRX,B/ARX,DEST/Q=Q*2"

MULSUB: [BRX] [BRX]*.5 LONG
MULSB1: [ARX]-0*.5 LONG,
STEP SC,
J/MUL+

;CLEAR ARX AND SHIFT Q
;COUNT FIRST STEP
;ENTER LOOP

;MULTIPLY SUBROUTINE
; ENTERED WITH:
MULTIPLIER IN Q
MULTIPLICAND IN BRX
;
PARTIAL PRODUCT IN ARX
;RETURNS 4 WITH Q*BRX+ARX IN ARX!Q
MULTIPLY:
Q Q*.5,
STEP SC,
J/MUL+

SHIFT Q
COUNT FIRST STEP
ENTER LOOP

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

11:45 11-AUG-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,4900 ,0000,0000

~

~

U 0142, 0122,0116,0604,4174,4046,2630,2000,0060,0000

5
U 0143, 0004,0114,0604,4174,4004,1700,0000,0000,0000

U 0146, 0142,3336,0604,4174,4046,2630,2000,0060,0000
,

U 0147, 0004,3334,0604,4174,4004,1700,0000,0000,0000

i

/

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DMUL

4264 ;HERE FOR POSITIVE
4265 =010
AD/B,
4266 MUL+:
MUL STEP,
4267
J/MUL+
4268
4269 =011
AD/B,
4270
MUL FINAL,
4271
RETURN [4]
4272
4273 = 110
AD/B-A-.25,
4274
MUL STEP,
4275
J/MUL4276
4277 = 111
AD/B-A-.25,
4278
MUL FINAL,
4279
RETURN [4]
4280
4281 .
;HERE FOR NEGATIVE
4282
4283 =010
AD/A+B,
4284 MUL-:
MUL STEP,
4285
J/MUL+
4286
4287 =011
AD/A+B,
4288
MUL FINAL,
4289
RETURN [4]
4290
4291
= 110
AD/B,
4292
MUL STEP,
4293
J/MUL4294
4295 = 111
AD/B,
4296
MUL FINAL,
4297
RETURN [4]
4298
4299

STEPS

ADD .25,

ADD .25,

STEPS

Page 117

;0 IN A POSITIVE STEP
;DON'T AOD
;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
;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

~,
\

}

T10KI.MCR[10,1141]
SIMPLE .MIC[ 10,11411

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1600, 2665,3441,0305,0174,4007,0700,0000,0000,0000
U 2665, 1170,3772,0000,0275,5007,0520,0000,0000,0000
U 1170, 0161,4221,0003,4174,4007,0700,0000,0000,0000
U 1171, 0161,2441,0703,4174,4007,0700,4000,0000,0000
U 1601, 2666,3441,0305,4174,4007,0700,0000,0000,0000
U 2666, 2667,3771,0003,0276,6007,0700,0000,0000,0000
U 2667, 2670,3772,0000,1275,5007,0701,0000,0000,1441
U 2670, 0160,3333,0003,4174,4007,0621,0000,0000,0000
U 0160,

1172,7443,0300,4174,4007,0621; 0000,0000,0000

U 0161, 0164,3333,0005,4174,4007,9621 ,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, 1153,3441,0304,4174,4007,0700,0000,0000,0000

U 1172, 2671,3441,0306,4174,4007,0700,0000,0000,0000
U 1173, 0164,3333,0005,4174,4007,0621,0000,0000,0000

4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DIV, IDIV
.TOC
230:

234:

1600:
IDIV:
=0

1601 :
DIV:

"ARITHMETIC
.DCODE
R-PF,
I-PF.
RW,
RW.
R-PF,
I-PF,
RW,
RW.
.UCOOE

=001
DIV1 :
=100
DIV2:
=101
= 110

=0
DIVA:

M,

DBL B.
OAC,
OAC,

M,
DBL B.

DIV. IDIV"
J/IDIV
J/IDIV
J/IDIV
J/IDIV
J/DIV
J/DIV
J/DIV
J/DIV

[BR] [AR]. AC
Q AC-:
SKIP DPO
[ARlO,
J/DIV1
[AR] -1,
J/DIVl

;COPY MEMORY OPERAND
;LOAD Q
;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+l
;TEST FOR NO DIVIDE

Q

=000

DAC.
DAC.

Page 118

AcT 1]

READ [AR].
SKIP AD.EQ.O
.NOT.[AR1.
SKIP AO.EQ.O.
J/DIVA

;SEE IF ALL SIGN BITS IN AR
; CONTI NUE BE LOW

READ [BR].
SKIP AD.EQ.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] [AR1.
J/DIVB
READ [BR],
SKIP AD.EQ.O,
J/DIV2

;HIGH WORD IS NOT SIGNS
;GO TEST FOR NO DIVIDE
;ALL SIGN BITS
;SEE IF ZERO DIVIDE
;BACK TO MAIN FLOW

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 2671, 2672,3221,0004,4174,4007,0700,0000,0000,0000
U 2672, 0330,3333,0003,4174,4007,0520,0000,0000,0000
U 0330,

1174,3333,0005,4174,4007,0520,0000,0000,0000

U 0331, 2753,4551,0404,4374,0007,0700,0010,0037,7777
U 0333,

1174,3333,0005,4174,4007,0520,0000,0000,0000

U 1174, 1176,2113,0305,4174,4007,0521,4000,0000,0000

U 1175, 1176,0113,0305,4174,4007,0521,0000,0000,0000
U 1176, 0603,4443,0000,4174,4467,0700,0000,0051,1000
U 1177, 0161,3441,0603,4174,4007,0700,0000,0000,0000

4351
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

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC --'DIV, IDIV
DIVB:
=00

=11

=0
DIVC:

=0;
NODIV:

[ARX] Q
READ TAR],
SKIP DPO
READ [BR],
SKIP DPO,
J/DIVC
CLEAR [ARX]O,
CALL [DBLNG 1 ]
READ [BR],
SKIP DPO,
J/DIVC
[AR]-[BR] ,
SKIP DPO,
3T,
J/NODIV
[AR]+[BR],
SKIP DPO,
3T,
J/NODIV
NO DIVIDE
[AR] [BRX],
J/DIVl

Page 119
;MAKE ABS VALUES
;SEE IF +
;SEE IF +
;CONTINUE BElOW
;FLUSH DUPLICATE SIGN
; NEGA TE AR! ARX
;SEE IF TOO BIG

;COMPUTE DIFFERENCE
: SEE IF IT GOES
;ALLOW TIME
; TEST
;SAME TEST FOR -VE BR

TOO BIG

FITS
GO BACK AND DIVIDE

.~.

~
\
;I
T 10K I . MCR ( 10, 1141 ]
SIMPLE.MIC(10,1141)

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

D 0117, 0205,1627,1100

U 1627, 2673,4112,0400,4174,4007,0700,0000,0000,0000
U 2673,

1200,3447,0305,4174,4007,0421,0000,0000,0000

U 1200, 1204,3446,0505,4174,4007,0700,0000,0000,0000
U 1201, 1202,3446,0505,4174,4007,0520,0000,0000,0000
U 1202, 1204,4003,0000,4174,4007,0621,0000,0000,0000
U 1203, 2674,4751,1217,4374,4007,0700,0000,0000,0005
U 2674, 2675,3662,0000,4374,0007,0700,0000,0060,0000
U 2675, 2676,2222,0000,4174,4007,0700,4000,0000,0000
U 2676, 2700,2446,0505,4174,4047,0700,0040,0000,0000
U
U
U
U

1204,
1205,
2677,
2700,

2677,3446,0505,4174,4047,0700,0000,0000,0000
0603,4443,0000,4174,4467,0700,0000.0051,1000
2700,4751,1217,4374,4007,0700,0000,0000,0004
2701,3221,0006,0174,4007,0700,0000.0000.0000

U 2701, 0054,3777,0003,0274,4007,0520,0000,0000.0000
U 0054,

1206,4552,0000.1275.5007.0701.0000,0000,1441

U 0055, 2742,6551,1717.4374,4007,0700,0010,0000,0007
U 0075, 0054,3447,0303,4174,4007,0700,0000.0000,0000

U 1206, 2724,3446,0303,4174,4007.0700,0010,0000,0000
U 1207, 1210,2113,0305,4174,4007,0521,4000,0000,0000
U 1210, 1212,2113.0305,4174,4007,0620,4000,0000,0000
U 1211, 2702,322~,0004,4174,4007,0700,0000,0000,0000
U
U
U
U

1212,
1213,
1214,
1215,

0033,3333,0017,4174,4003,5701,0000,0000,0000
1214.1003,0600,4174,4007,0521,4000.0000,0000
0033,3333,0017,4174,4003,5701,0000,0000,0000
2702,3221,0004.4174,4007,0700,0000,0000,0000

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DDIV

Page 120

DOIV"
"ARITHMETIC
4377 .TOC
4378
.DCODE
4379
J/DDIV
DBL R,
DAC,
4380 117:
.UCODE
4381
4382
4383 .IF/FULL
4384 1627:
;COPY LOW WORD
Q (ARX).AND.[MAG)
4385 DDIV:
;COPY MEMORY OPERAND
[SR] (AR]*.5,
4386
;SEE IF POSITIVE
SKIP-AD.LE.O
4387
; POSITIVE
[BR] [BR)*.5 LONG,
4388 =0
;CONTINUE BELOW
J/DDIV1
4389
;NEGATIVE OR ZERO
(BR) [BR)*.5 LONG,
4390
SKIP-DPO
;SEE WHICH?
4391
;SEE IF ALL ZERO
[MAG).AND.Q,
4392 =0
;CONTINUE BELOW
SKIP AD.EQ.O, J/DDIV1
4393
;NEGATE MEM OP
[T1) 0 XWD [5]
4394
;SIGN EXTEND THE LOW
Q Q.OR.#, #/600000,
4395
; WORD
HOLD RIGHT
4396
;MAKE 0 POSITIVE
Q -Q
4397 •
[SR) (-[BR)-.25)*.5 LONG, ;NEGATE HIGH WORD
4398
;USE CARRY FROM LOW WORD
ASHC~ MULTI PREC/1,
4399
;CONTINUE BELOW
J/DDIV3
4400
4401
=0
;SHIFT OVER 1 PLACE
[BR] [BR)*.5 LONG,
4402 . DDIV1:
; CONTINUE BELOW
ASHC~ J/DDIV2
4403
;DIVIDE BY ZERO
NO DIVIDE
4404
;MEM OPERAND IS POSITIVE
[T1] 0 XWD [4]
4405 DDIV2:
;COPY 0
[BRXLQ, AC
4406 DDIV3:
4407
[AR)_AC*.5, 2T, SKIP DPO ;GET AC--SEE IF NEGATIVE
4408
4409 =0*1*0
;POSITIVE (OR ZERO)
4410 DDIV3A: o AC[1].AND.[MAG),
; CONTINUE BELOW
J7DDIV4
4411
;NEGATIVE
[T 1) [T 1 ) . XOR . # ,
4412
;UPDATE SAVED FLAGS
#/7,-CALL [ODNEG]
4413
;SHIFT AR-OVER
[AR] [AR]*.5.
4414 =1*1*1
;GO BACK AND LOAD 0
J/DDIV3A
4415
4416
4417 =0
;SHIFT AR OVER
[AR] [AR)*.5 LONG,
4418 DDIV4:
;SHIFT 1 MORE PLACE
CALL-[DDIVS]
4419
[AR]-[BR), 3T, SKIP DPO ;TEST MAGNITUDE
4420
[AR] - [BR], 2T,
4421
=0
SKIP AD.EO.O, J/DDIV5
4422
; ANSWER FITS
[ARX]_O, J/DDIV5A
4423
4424
4425 =0
READ [T1], 3T, DISP/DP, J/NODDIV
4426 DDIV5:
O-[BRX), 3T, SKIP DPO
4427
READ [T1), 3T, DISP/DP, J/NODDIV
4428 =0
;COPY LOW WORD
[ARXLO
4429
4430

T10KI.MCR[10,1141)
SIMPLE.MIC[10,1141)
U
U
U
U
U
U
U
U

2702,
0314,
0316.
2703,
2704,
1216,
1217,
2705,

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

0314,4552,0000,1275,5007,0701,0000,0000,1442
1240,3446,1200,4174,4007,0700,2010,0071,0042
2703.3224,0016,4174,4007,0700,0000,0000,0000
2704,0002,1600,4174,4007,0700.0000,0000,0000
1216,4003,0000,1174,4007,0700,0400,0000,1440
2724,3442.0400,4174.4007,0700,0010,0000.0000
2705,3221,0004,4174.4007,0700,0000,0000,0000
0354,4552,0000,1275,5007,0701,0000,0000,1443

U 0354, 1240,3446,0316,4174,4007,0520,2010,0071,0042
U 0356, 2706,3224,0016,4174,4007,0700.0000,0000,0000
U 2706, 0056,3333,0017,4174,4003,5701,0000,0000,0000
U 0056, 2711,0001,1616,4174,4007,0700',0000,0000,0000
U 0057, 2707,2225,0016,4174,4007,0700,4000,0000,0000
U
U
U
U

2707,
2710,
1220,
1221,

2710,1772,0000,0274,4007,0701,0040,0000,0000
1220,3223,0000,0174,4007,0621.0400,0000,0000
2712,3440,1616,1174,4007,0700,0400,0000,1441
2714,4223,0000,1174,4007,0700,0400,0000,1441

U 2711, 2714,4113,1600,1174,4007,0700,0400,0000,1441
U 2712, 2713,3551,1616,4374,0007,0700,0000,0040,0000
U 2713, 2714,3440,1616,1174,4007,0700,0400,0000,1441
U 2714,

1222,3333,0003,4174,4007,0520,0000,0000,0000

U 1222, 2720,3442,0400,4174,4007,0700,0000,0000,0000
U 1223, 2715,0112,0406,4174,4007,0700,0000,0000,0000

J

Ii:

U 2715, 2716,0111,0503,4174,4007,0700,0040,0000,0000
U 2716, 2717,0002,0600,4174,4007,0700,0000,0000,0000
U 2717, 2720,0111,0503,4174,4007,0700,0040,0000,0000
U 2720, 0355,3333,0017,4174,4003,5701,0000,0000,0000
U 0355, 2722,3444,0303,4174,4047,0700,0000,0000,0000
U 0357, 2721,2222,0000,4174,4007,0700,4000,0000,0000
U 2721, 2722,2444,0303,4174,4047,0700,0040,0000,0000

4431
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

KS10 MICROCODE V124, 27-JUL-84
ARITHMETIC -- DDIV

Page 121

;HERE WITH EVERYTHING SETUP AND READY TO GO
DDIV5A: Q AC[2].AND.[MAG]
=0*
Q-Q*.5, SC 34., CALL [DBLDIV]
[TO) Q*2 LONG
Q Q+TTO]
;STORE ANSWER
AC[O] Q.AND.[MAG]
;SHIFT OUT EXTRA ZERO BIT
Q [ARX], CALL [DDIVS]
=0
[ARX] Q
Q AC[3].AND.[MAG]
;SHIFT Q, PUT AR ON DP
[TO] [AR]*.5 LONG,
=0*
;LOAD SHIFT COUNT
SC 34.,
;LOOK AT AR SIGN
SKIp DPO,
;GO DIVIDE
CALL [DBLDIV]
[TO] Q*2 LONG
READ-[T1], 3T, DISP/DP ;WHAT SIGN IS QUO
[TO] [TO)+Q,
; POSITIVE QUO
= 1110
J/DDIv5B
;CONTINUE BELOW
[TO) -Q*2
;NEGATIVE QUO
AD/-O-.25, DBUS/RAM, 3T,
RAMADR/AC#, DEST/Q AD,
MULTI PREC/1
AC Q, SKIP AD.Eq.O
ACT1] [TO], J/DDIV5C
=0
AC[1]=0, J/DDIV6
DDIV5B: AC[1] [TO].AND.[MAG], J/DDIV6

;STORE LOW WORD IN + CASE

DDIV5C: [TO] [TO].OR.#, #/400000, HOLD RIGHT
AC[ 1T [TO]
DDIV6:
=0
DDIV7:

DDIV8:
= 1101
DDIV8A:

READ [AR], SKIP DPO

;LOOK AT AR SIGN

Q [ARX], J/DDIV8
Q-[ARX]+[BRX]
[AR] [AR]+[BR],
MULTI PREC/1
Q Q+[BRX]
[AR) [AR]+[BR],
MULTI PREC/1
READ [T1), 3T, DISP/DP
POSITIVE REMAINDER
[AR] [AR]*2 LONG, ASHC,
CONTINUE BELOW
J/DDIv9
NEGATE REMAINDER IN AR!Q
Q -Q
[AR) (-[AR]-.25)*2 LONG,
MULTI PREC/1, ASHC

I

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 2722, 1224,0113,0303,1174,4007,0521,0400,0000,1442
U 1224, 0100,4003,0000,1174,4156,4700,0400,0000,1443
U 1225, 2723,4002,0000,1174,4007,0700,0000,0000,1443
U 2723, 0100,7003,0000,1174,4156,4700,0400,0000,1443

U 0033, 2742,4443,0000,4174,4007,0700,0010,0000,0000
U 0037, 0603,4443,0000,4174,4467,0700,0000,0051,1000
U 2724, 0001,3446,0303,4174,4044,1700,0000,0000,0000

4478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
4497

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]
AE[3] [MAG].EQV.Q,
NEXT INST

;HERE IF WE WANT TO SET NO DIVIDE
=11011
NOODIV: CALL [QDNEG]
;FIXUP AC TO AC+3
NO OIVIDE
;ABORT DIVIDE
DDIVS:
[AR] [AR]*.5 LONG, ASHC, RETURN [1]
.IFNOT/FULL
1627:
DDIV:
UUO
.ENDIF/FULL

T10KI.MCR[10,1141]
SIMPLE.MIC[10.1141]

U
U
U
U
U

0370,
0374,
0375,
0376,
0377,

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

2725,4662,0000,4374,0007,0700,0010,0037,7777
0002,4443,0000,4174,4004,1700,0000,0000,0000
0002,2222,0000,4174,4004,1700,4000,0000,0000
0377,2222,0000,4174,4007,0700,4000,0000,0000
0002,2441,0303,4174,4004,1700,4000,0000,0000

4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
4511
4512
4513
4514
4515
4516
4517
4518

KS10 MIGROCODE V124, 27-JUL-84 .
ARITHMETIC -- DIVIDE SUBROUTINE
.TOC

P~ge

123

"ARITHMETIC -- DIVIDE SUBROUTINE"

;HERE IS THE SUBROUTINE TO DO DIVIDE
; ENTER WITH:
AR!Q = D'END
,
BR = D'SOR
; RETURN 2 WITH:
AR = REMAINDER
,
Q = QUOTIENT
;CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL
,
=1000
DIVSUB: Q Q.ANO.#,
;CLEAR SIGN BIT IN
#7377777,
;MASK
HOLD RIGHT,
;JUST CLEAR BIT 0
CALL [DIVSGN]
;00 REAL DIVIDE
RETURN [2]
;ALL POSITIVE
=1100
;-QUO +REM
=1101 Q -Q, RETURN [2]
Q--Q
= 1110
; ALL NEGATIVE
[AR) -[AR], RETURN [2]
;NEGATIVE REMAINDER
=1111

I

~
"-.. ~"

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

2725,
1226,
1227,
1230,
1231,

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

1226,3333,0003,4174,4007,0520,0000,0000,0000
2727,4221,0004,4174,4007,0700,0000,0000,0000
1230,2222,0000,4174,4007,0621,4000,0000,0000
2726,7441,0303,4174,4007,0700,0000,0000,0000
2726,2441,0303,4174,4007,0700,4000,0000,0000

a

U
U
U
U
U

i

U 2726, 2727,3771,0004,4374,4007,0700,0000,0010,0000
U 2727, 1232,3333,0005,4174,4007,0520,0000,0000,0000

!

~

~

i

it

i

!I

IJ
a
j
I
~

I

U 1232, 2731,3446,0303,4174,4007,0700,0000,0000,0000
U 1233, 2730,2441,0505,4174,4007,0700,4000,0000,0000
U
U
U
U
U

2730,
2731,
2732,
2733,
2734,

1232,3551,0404,4374,4007,0700,0000,0004,0000
2732,3447,0303,4174,4007,0700,0000,0000,0000
2733,3447,0505,4174,4007,0700,0000,0000,0000
2734,3447,0505,4174,4007,0700,0000,0000,0000
1234,1114,0503,4174,4067,0630,6000,0060,0000

U 1234, 1234,0114,0503,4174,4067,0630,2100,0060,0000
U 1235, 2735,3444,1717,4174,4067,0700,0100,0000,0000
U 2735, 1236,3447,0303,4174,4007,0520,0000,0000,0000

g

I
it

U
U
U
U

1236,
1237,
2736,
2737,

2736,3444,0303,4174,4007,0700,0000,0000,0000
1236,0111,0503,4174,4007,0700,0000,0000,0000
2737,3444,0303,4174,4007,0700,0000,0000,0000
2740,4002,1200,4174,4007,0700,0000,0000,0000

U 2740, 0014,3333,0004,4174,4000,1701,0000,0000,0000

4519
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

KS10 MICROCODE V124, 27-JUL-84 Page 124
ARITHMETIC -- DIVIDE SUBROUTINE
;HERE IS THE INNER OIVIDE SUBROUTINE
;SAME SETUP AS DIVSUB
;~ETURNS WITH AR AND Q POSITIVE AND
14 IF ALL POSITIVE
15 IF -QUO
16 IF ALL NEGATIVE
17 IF NEGATIVE REMAINDER
BASIC DIV STEP
DIV STEP
FIRST DIV STEP

"DEST/Q 0*2, DIV, A/BR, B/AR, STEP SC"
"BASIC DIV STEP, AD/A+B, DIVIDE/1"
"BASIC DIV STEP, AD/B-A-.25, ADD .25"

DIVSGN: READ [AR], SKIP DPO
~O
[ARX] 0, J/DVSUB2
Q -O,-SKIP AD.EO.O
~O
[AR] .NOT.[AR], J/DVSUB1
[AR]--[AR]
DVSUB1: [ARX] #, #/100000
DVSUB2: READ fBR], SKIP DPO

;REMAINDER IS POSITIVE
;COMPLEMENT LOW WORD
;COMPLEMENT HI WORO
;TWO'S COMPLEMENT HI WORD SINCE
; LOW WORD WAS ZERO
;REMAINDER IS NEGATIVE
;IS THE DIVISOR NEGATIVE

~O

DVSUB3: [AR] [AR]*.5 LONG,
J/DIVSET
[BR] -[BR]
[ARXT [ARX].OR.#,
#/40000, J/DVSUB3
DIVSET: [AR] [AR]*.5
[BR]-[BR]*.5
[BR]-[BR]*.5
FIRST DIV STEP
;HERE IS THE MAIN DIVIDE LOOP

;START TO PUT IN 9-CHIPS
;JOIN MAIN STREAM
;COMPLEMENT DIVISOR
;ADJUST SIGN OF OUOTIENT
;USE 9 CHIPS

~O

DIVIDE: DIV STEP, J/DIVIDE
[T1] [T1]*2 LONG, DIVIDE/1, DIV
[AR]-[AR]*.5. SKIP DPO
~O

FIX++:

{AR] [AR]*2 LONG, J/FIX1++
(AR]-[AR]+[BR], J/FIX++
FIX1++: [AR]-[AR]*2 LONG
o [MASK].AND.Q
READ [ARXJ, 3T,
RETURN TO 1 OF 4 PLACES
DISP/1,
BASED ON SIGN OF RESULT
J/14
RETURN

T10KI.MCR[10,1141J
SIMPLE. MI C [ 10, 114 1 J

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1240, 2741,1114,0604,4174,4057,0700,4000,0000,0000
U 1241, 2741,0114,0604,4174,4057,0700,0000.0000,0000

U 2741,

1242,0115.0503.4174,4007.0630,2040.0060,0000

U 1242, 2741,0114,0604,4174,4067,0700,0100,0000.0000

U 1243. 0002.4444.0002,4174,4064,1700,0100,0000.0000

4563
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

KS10 MICROCODE V124, 27-JUL-84 Page 125
ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE
. TOC
I! ARITHMETIC
- - DOUBLE DIViDE SUBROUTINE"
.IF/FULL
;CALL WITH:
AR!ARX!Q
3 WORD DV'END
BR!BRX
2 WORD DV'SOR
; RETURN 2 WITH:
AR!ARX
2 WORD REMAINDER
CORRECT IF POSITIVE (Q IS ODD)
WRONG (BY BR!BRX) IF NEGATIVE (Q IS EVEN)
= 1 WORD QUOTIENT
,
Q
;CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL

.;NOTE:

THIS SUBROUTINE ONLY WORKS FOR POSITIVE NUMBERS

=0
;HERE FOR NORMAL STARTUP
DBLDIV: [ARXJ ([ARX]-[BRXJ)*2 LONG, ;SUBTRACT LOW WORD
LSHC.-J/DIVHI
;GO ENTER LOOP
;SKIP ENTRY POINT IF FINAL STEP IN PREVIOUS ENTRY WAS IN ERROR
[ARXJ ([ARX]+[BRX])*2 LONG, ;CORRECTION STEP
LSHC,-J/DIVHI
;GO ENTER LOOP
;HERE IS DOUBLE DIVIDE LOOP
DIVHI:
AD/A+B,
A/BR, B/AR,
DEST/AD*2,
SHSTYLE/NORM,
MULTI PREC/1,
STEP SC
=0
AD/A+B,
A/BRX, B/ARX,
DEST/Q Q*2,
SHSTYLE!DIV,
DIVIDE/1,
J/DIVHI
;HERE WHEN ALL DONE
DEST/Q Q*2, DIV,
DIVIDE71,
B/HR, RETURN [2J

;ADD (HARDWARE MAY OVERRIDE)
;OPERANDS ARE AR AND BR
;SHIFT LEFT
;SET SHIFT PATHS (SEE DPE1)
;INJECT SAVED BITS
;COUNT DOWN LOOP
;ADD (HARDWARE MAY OVERRIDE)
;LOW WORDS
;SHIFT WHOLE MESS LEFT
;SET SHIFT PATHS (SEE DPE1)
;SAVE BITS
;KEEP LOOPING
SHIFT IN LAST Q BIT
GENERATE BIT
ZERO HR AND RETURN

I"'.,
,

;

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 2742, 2743,1772,0000,1274,4007,0701,4000,0000,1443
U 2743,

1244,4003,0000,1174,4007,0621,0400,0000,1443

U 1244, 2746,7772,0000,1274,4007,0701,0000,0000,1442
U 1245, 2744,1772,0000,1274,4007,0701,4000,0000,1442
U 2744,

1246,4003,0000,1174,4007,0621,0400,0000,1442

U 1246, 2747,7772,0000,1274,4007,0701,0000,0000,1441
U 1247, 2745,1772,0000,1274,4007,0701,4000,0000,1441
U 2745,

1250,4003,0000,1174,4007,0621,0400,0000,1441

U 1250, 2750,7771,0003,0274,4007,0700,0000,0000,0000
U 1251, 2750,1771,0003,0274,4007,0701,4000,0000,0000
U 2746, 1246,4003,0000,1174,4007,0700,0400,0000,1442
U 2747, 1250,4003,0000,1174,4007,0700,0400,0000,1441
U 2750, 0024,3440,0303,0174,4004,1700,0400,0000,0000

U 2751, 2752,4551,0404,4374,0007,0700,0000,0037,7777
U 2752,

1252,2441,0404,4174,4007,0621,4000,0000,0000

U 1252, 2202,7441,0303,4174,4467,0700,0000,0001,0001
U 1253, 2202,2441,0303,4174,4467,0701,4000,0001,0001
U 2753, 1254,2441,0404,4174,4007,0621,4000,0000,0000
U 1254, 2202,7441,0303,4174,4007,0700,0000,0000,0000
U 1255, 2202,2441,0303,4174,4007,0700,4000,0000,0000

KS10 MICROCOOE V124, 27-JUL-84 Page 126
ARITHMETIC -- SUBROUTINES FOR ARITHMETIC

4603
4604

.TOC

A605

;QUAD WORD NEGATE
;ARGUMENT IN AC!AC1!AC2!AC3
;LEAVES COpy OF AC!AC1 IN AR!Q
;RETURNS TO CALL!24
QDNEG: ~ -AC[3j
AC[3] Q.AND.[MAG],
SKIP AD.EQ.O
=0
COM2A: Q .NOT.AC[2], J/COM2
Q--AC[2]
AC[2] Q.AND.[MAG],
SKIP AD.EQ.O
=0
COM1A: Q .NOT.AC[1], J/COM1
Q--AC[l]
AC[l] Q.AND.[MAG],
SKIP AD.EQ.O
=0
COMOA;
[AR] .NOT.AC, J/COMO
[AR]=-AC, 3T, J/COMO

4606
4607
4608
4609
4610
4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
463,6
" 4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647

"ARITHMETIC -- SUBROUTINES FOR ARITHMETIC"

;PUT BACK LOW WORD
;SEE IF ANY CARRY
;CARRY--DD 1'S COMPLEMENT
;NEXT WORD
;PUT BACK WORD

COM2:
AC[2] Q.AND.[MAG], J/COM1A
COM1:
AC[1]-Q.AND.[MAG], J/COMOA
COMO:
AC [AR], RETURN [24]
.ENDIF/FULL
;DOUBLE WORD NEGATE
;ARGUMENT IN AR AND ARX
;RETURNS TO CALL!2
DBLNEG: CLEAR ARXO
DBLNGA: [ARX] - [ARX],
SKIP AD.EQ.O
=0
[AR] .NOT.[AR],
AD FLAGS, J/CLARXO
[AR] -[AR],
AD FLAGS, 3T, J/CLARXO

;FLUSH DUPLICATE SIGN
; FLIP LOW WORD
;SEE IF CARRY
;ND CARRY-- 1 COMP
;CLEAR LOW SIGN
;CARRY

;SAME THING BUT DOES NOT SET PC FLAGS
DBLNG1: [ARX] -[ARX], SKIP AD.EQ.O
[AR] ~NOT.[AR], J/CLARXO
=0
[AR]--[AR], J/CLARXO

T10KI.MCR[10,1141]
SIMPLE.MIC[10,1141]
4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666
4667
4668
4669
4670
4671
4672
4613
4674
·4675
4676
4677

.TOC

11:45 11-AUG-1984
15:31 27-JULY-1984

.NOBIN
"BYTE GROUP

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 127
ARITHMETIC -- SUBROUTINES FOR ARITHMETIC

IBP, ILDB, LOB, IDPB, DPB"

;ALL FIVE INSTRUCTIONS OF THIS GROUP ARE CALLED WITH THE BYTE POINTER
;IN THE AR.
ALL INSTRUCTIONS SHARE COMMON SUBROUTINES.
; I BP OR ADJBP
;IBP IF AC#O, ADJBP OTHERWISE
; HERE WITH THE BASE POINTER IN AR
;HERE IS A MACRO TO DO IBP. WHAT HAPPENS IS:
THE AR IS PUT ON THE DP.
THE BR IS LOADED FROM THE DP WITH BITS 0-5 FROM SCAD
THE SCAD COMPUTES P-S
IBPS IS CALLED WITH ~ 4-WAY DISPATCH ON SCADO AND FIRST-PART-DONE
;THE MACRO IS WRITTEN WITH SEVERAL SUB-MACROS BECAUSE OF RESTRICTIONS
; IN THE MICRO ASSEMBLER
IBP DP
IBP SCAD
IBP SPEC
CALL IBP

"AD/D, DEST/A, A/AR, B/BR, DBUS/DBM, DBM/DP, BYTE/BYTE1"
"SCAD/A-B, SCADA/BYTEi, SCADB/SIZE"
"SCAD DISP, SKIP FPD"
"IBP DP, IBP SCAD, IBP SPEC, CALL [IBPS], DT/3T"

SET P TO 36-S

"AD/D,DEST/A,A/BR,B/AR,DBUS/DBM,DBM/DP,SCAD/A-B,SCADB/SIZE,BYTE/BYTE1,SCADA/PTR44"

;THE FOLLOWING MACRO IS USED FOR COUNTING SHIFTS IN THE BYTE ROUTINES. IT
; USES THE FE AND COUNTS BY 8. NOTE: BYTE STEP IS A 2S WEIGHT SKIP NOT is.
BYTE STEP
"SCAD/A+B,SCADA/S#,S#/1770,SCADB/FE,LOAD FE, 3T,SCAD DISP"

.".......
T10KI.MCR[10,1141j
SIMPLE.MIC[10,1141j

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

0 0133, 0015,1610,1100
0 0134, 0000,1620,1500
0 0135, 0000,1624,1100
0 0136, 0000,1630,1500
0 0137, 0000,1634,1100

U 1610, 0240,4443,0000,4174,4007,0360,0000,0000,0000
U 0240, 3011,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, 2761,3333,0003,4174,4217,0701,1010,0073,0500
U 1625, 0411,3443,0100,4174,4007,0700,0200,0014,0012

U 0411, 0340,3333,0003,4174,4006,5701,1010,0051,0770
U 0413, 0603,3440,0303,0174,4467,0700,0400,0005,0000
U 1630, 0350,3770,0305,4334,4016,7351,0010,0033,6000
U 1634, 2754,3775,0004,0274,4007,0701,0000,0000,0000
U 2754, 2755,3443,0400,4174,4007,0701,1000,0077,0000
U 2755, 0264,3771,0004,0276,6007,0700,0000,0000,0000
U 0264, 2761,3333,0003,4174,4217,0700,0010,0000,0500
U 0265, 0360,3333,0003,4174,4006,5701,0010,0000,0000
1400,4443,0000,4174,4467,0700,0000,0005,0000

U 0267,

4678
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
47b8
4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725

KSlO MICROCOOE V124, 27-JUL-84 Page 128
BYTE GROUP -- IBP, ILDB, LOB, IDPB, DPB
.BIN
133:
134:

.DCODE
R,
AC,
R,WTEST,

J/IBP
J/ILDB

R,
R,W TEST,

J/LDB
J/!DPB
J/DPB

R,

;OR ADJBP
;CAN'T USE RPW BECAUSE OF FP

.UCODE
1610:
IBP:
=000
=001
=101
1620:
ILDB:
1624:
LOB:
1625:
=0*

1630
!DPB
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 [LDBl ]
AC [AR], CLR FPD,
J/N!DISP

;LOOK 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 POINTER

[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

T 10K I . MCR [ 10, 1141 ]
SIMPLE.MIC[ 10,1141]

U
U
U
U

0350,
0351,
0352,
0353,

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

2757,3441,0503,4174,4007,0700,0200,0003,0002
0004,4443,0000,4174,4004,1700,0000,0000,0000
2756,3770,0503,4334,4017,0700,0000,0032.6000
0004,4443,0000,4174,4004,1700,0000,0000,0000

U 2756, 2757.0111,0703,4170.4007,0700.0200,0003,0002
U 2757. 0004,3333,0003,4175,5004,1701,0200,0000,0002

U 2760. 0070.4443,0000.2174.4006,6700.0000,0000,0000
U 2761, 0070,4443,0000,2174,4466,6700,0000,0003,0000

U 0070, 2763,0553,0300,2274,4007.0700,0200,0004,0712

U 0072. 2763.3443,0300,4174,4007.0700.0200,0004,0712

U 0074. 2762,0553,0300,2274.4007.0700.0200.0004.0512
U 0076. 2762,3443.0300.4174.4007.0700.0200,0004.0512

U 2762, 2760,3771,0003,4361,5217,0700.0200,0000,0502

U 2763. 0001,4551,1205,4365,5004,1700.0200,0000,0002

KS10 MICROCODE V124, 27-JUL-84 Page 129
BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE

4726 .TOC
"BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE"
4727
4728 =00
4729 IBPS:
[AR] [BR], START WRITE. J/IBPX ;NO OVERFLOW, BR HAS ANSWER
4730
RETURN [4]
;FIRST PART DONE SET
4731
SET P TO 36-S, J/NXTWRD
;WORD OVERFLOW
4732
RETURN (4]
;fPD WAS SET IGNORE OVERFLOW
4733
; AND RETURN
4734
4735 NXTWRD: [AR] [AR]+1, HOLD LEfT, START WRITE
;BUMP Y AND RETURN
4736 IBPX:
MEM WRITE. MEM_[AR], RETURN [4]
4737
4738
4739 .TOC
"BYTE GROUP -- BYTE EFFECTIVE ADDRESS EVALUATOR"
4740
4741
;ENTER WITH POINTER IN AR
4742 ;RETURN1 WITH (EA) IN VMA AND WORD IN BR
4743 BYTEAS: EA MODE DISP,
;HERE TO AVOID fPD
4744
J/BYTEAO
;GO COMPUTE EA
4745 BYTEA:
SET FPD,
;SET fIRST-PART-DONE
4746
EA MODE DISP
;DISPATCH
4747 =100*
4748 BYTEAO; VMA [AR]+XR,
; INDEXING
4749
START READ,
;FETCH DATA WORD
4750
PXCT BYTE DATA,
;FOR PXCT
4751
J/BYTFET
;GO WAIT
4752
VMA [AR],
;PLAIN
4753
START READ,
; ST ART CYCLE
4754
PXCT BYTE DATA,
;fOR PXCT
4755
J/BYTFET
;GO WAIT
4756
VMA [AR]+XR,
;BOTH
4757
START READ,
;START CYCLE
4758
PXCT BYTE PTR EA.
;fOR PXCT
4759
J/BYTIND
;GO DO INDIRECT
4760
VMA [AR],
;JUST @
4761
START READ,
;START READ
4762
PXCT BYTE PTR EA
;FOR PXCT
4763 BYTIND: MEM READ,
;WAIT FOR @ WORD
4764
[AR] MEM,
;PUT IN AR
HOLD-LEfT,
4765
;JUST IN RH (SAVE P & S)
4766
LQAD BYTE EA,
;LOOP BACK
~767
J/BYTEAS
4768
4769 BYTfET; MEM READ,
WAIT fOR BYTE DATA
4770
'[BR] MEM.AND.MASK,
. WORD. UNS I GNED
4771
RETURN [1]
RETURN TO CALLER
4772

/

T10KI.MCR[10,1141]
SIMPLE. MI C [ 10. 114 1 ]

11:45 11-AUG-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,

2764,3770,0505,4334,4057,0700,0000,0073,0000
2764,3770,0505,4334,4057,0700,0000,0074,0000
2764,3770,0505,4334,4057,0700,0000,0075,0000
2764,3770,0505,4334,4057,0700,0000,0076,0000
2764,3770,0505,4334,4057,0700,0000,0077,0000

U 2764, 0002,4257,0503,4374,4004,1701,0000,0000,0376

4773
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

KS10 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
LOB SCAD
"SCAD/A,BYTE/BYTE5"
7-BIT LOB
"AD/D,DBUS/DBM,DBM/DP,DEST/A,A/BR,B/BR, LOB SCAD"
=000
LOBi:

GEN 17-FE, 3T,
SCAD DISP,
J/LOBSWP

;HERE ARE THE
7-BIT
=001
7-BIT
=010
7-BIT
=100
=101
7-BIT
= 111
7-BIT

7-BIT BYTES
LOB, SCAOA/BYTE1,
LOB, SCADA/BYTE2,
LOB, SCADA/BYTE3,
LOB, SCAOA/BYTE4,
LOB, SCADA/BYTE5,

;GO SEE IF ALL THE BITS
; ARE IN THE LEFT HALF
;GO TO LOBSWP & SKIP IF LH
J/LOB7
J/LDB7
J/LOB7
J/LDB7
J/LDB7

;FOR 7-BIT 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.
AO/ZERO,RSRC/OA,
;LH ZERO, RH O.ANO.A
LDB7:
;0 INPUT IS 376
DBUS/OBM,OBM/H,H/376,
A/BR,
;A IS BR
B/AR,
;PUT RESULT IN AR
OEST/AO*.5, 3T,
;SHIFT RESULT 1 PLACE
RETURN [2]
; RETURN TO CALLER

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0410, 2766,4443,0000,4174,4007,0700;1000,0031,0000
U 0412, 2765,3770,0505,4344,4007,0700,0000,0000,0000
U 2765, 2766,4221,0005,4174,0007,0700,1000,0031,0220
U 2766, 2767,3447,0505,4174,4007,0700,1020,0041,0010
2770,3333,0003,4174,4007,0700,1000,0031,7770
U 2770, 2771,4222,0000,4174,4007,0700,0000,0000,0000

U 2767,

U 2771, 2772,4224,0003,4174,4027,0700,1020,0041,0010
U 2772, 2773,4224,0003,4174,4027,0700,0000,0000,0000
U 2773, 0002,4001,0503,4174,4004,1'00,0000,0000,0000

r\

.~. .

KS10 MICROCOOE V124, 27-JUL-84 Page 131
BYTE GROUP -- LOAD BYTE SUBROUTINE

4806
4807
4808
4809
. , 4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822
4823
4824

;HERE FOR NORMAL BYTES
=00
LDBSWP: FE -FE,
J/LDBSH
=10
[BR] [BR] SWAP

LOBSH:

\

[BR] 0, HOLD RIGHT,
FE -FE+S#, S#/220
fBR] [BR]*.5,
FE FE+10,
MULTI SHIFT/1
READ [AR], FE -S-10
Q 0
GEN MSK [AR],
FE FE+10,
MULTI 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]

.~.

T 10K I . MCR [ 10, 1141 ]
SIMPLE.MIC[10,1141]
4825
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

.TOC

11:45 11-AUG-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:
ARX
Q
+------------------!------------------+
!111111111111000000!000000000000111111!
+------------------!------------------+
!<--->!

S BITS
;NOW THE AC IS LOAD INTO THE ARX AND BOTH THE ARX AND Q
ARE SHIFTED LEFT P BITS GIVING:
+------------------!------------------+
!??????BBBBBBOOOOOO!000000111111000000!
+------------------!------------------+
<----><---->

JUNK

BYTE

<----><---->

MASK P BITS

;AT THIS POINT WE ARE ALMOST DONE. WE NEEO 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 GRDUP -- LOAD BYTE SUBROUTINE

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

U
U
U
U
U
U

0360,
0361,
0362,
0364,
0365,
0367,

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

2776,3333,0003,4174,4007,0700,1000,0031,7770
2774,3770,0503,4334,4017,0700,0000,0041,0000
2774,3770,0503,4334,4027,0700,0000,0041,0000
2774,3770,0503,4334,4037,0700,0000,0041,0000
2774,3770,0503,4334,4047,0700,0000,0041,0000
2774,3770,0503,4334,4057,0700,0000,0041,0000

U 2774, 2775,3447,1200,4174,4007,0700,0200,0003,0002
U 2775, 0002,3333,0003,4175,5004,1701,0200,0000,0002
U 2776, 2777,4222,0000,4174,4007,0700,0000,0000,0000
3000,4224,0000,4174,4027,0700,1020,0041,0010
3001,4224,0000,4174,4027,0700,0000,0000,0000
U 3001, 3002,3333,0003,4174,4007,0701,1000,0073,0000
U 3002, 3003,4443,0000,4174,4007,0700,1000,0051,0770
U 2777,
U 3000,

U 3003, 3004,4002,1200,4174,4007,0700,1000,0031,0000
U 3004, 3005,3444,0404,4174,4007,0700,1020,0041,0010

U 3005, 3006,7221,0003,4174,4007,0700,0000,0000,0000
3007,4111,0503,4174,4007,0700,0000,0000,0000
U 3007, 3010,4001,0404,4174,4007,0700,0000,0000,0000

U 3006,

U 3010, 2774,3111,0403,4174,4007,0700,0000,0000,9000

4867
4868
4869
4870
487.1
4872
4873
4874
4875
4876
4877
4878
4879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913

KS10 MICROCODE V124, 27-JUL-84 Page 133
BYTE GROUP -- DEPOSIT BYTE IN MEMORY
.B~N

;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
,
"SCAO/A+B,SCAO«/SH,SCADB/FE,SH/O"
OPB SCAD
"AO/O.DEST/A.A/BR.DBUS/DBM.DBM/OP.B/AR. OPB SCAD"
7-BIT DPB
=000
DPB1 :
=001
=010
=100
= 101
= 111

READ [AR],
7-BIT DPB,
7-BIT DPB.
7-BIT DPB.
7-BIT OPB,
7-BIT OPB.

DPB7:

[MAG] [MASK]*.5, START WRITE
MEM WRITE, MEM_[AR]. RETURN [2]

FE -S-10, J/OPBSLO
BYTE/BYTE1, J/DPB7
BYTE/BYTE2. J/OPB7
BYTE/BYTE3. J/DPB7
BYTE/BYTE4. J/OPB7
BYTE/BYTE5. J/DPB7

OPBSLO: Q 0
GEN MSK [MAG],
FE FE+lO,
MULTI SHI FT 11
GEN MSK [MAG]
READ [AR], 3T. FE P
FE FE.AND.SH, SH/0770
o Q.ANO.[MASK].
FE -FE
[ARX] [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.O
[AR]-[AR].AND.[BR]
[ARXT [ARX].AND.Q
[AR] [AR].OR.[ARX],
J/OPB7

;NOT SPECIAL

;CLEAR 0
;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. TH~ BYTE IS

T 10K I . MC R [ 10, 1 14 1 ]
SIMPLE.MIC[10,1141]

U 3011,

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

1256,3770,0304,4344,4007,0700,2000,0071,0011

U 1256, 1256,3447,0404,4174,4007,0630,2000,0060,0000
U 1257, 3012,4557,0404,4374,4007,0701,0000,0000,0176
U 3012, 3013,3771,0004,4374,0007,0700,0000,0000,0000
U 3013, 3014,3333,0004,7174,4007,0700,0400,0000,0221
U 3014, 3015,4557,0305,4374,4007,0701,0000,0000,7700

U 3015, 3016,3770,0505,4344,4007,0700,2000,0071,0003
U 3016,

1260,4221,0005,4174,0007,0700,0000,0000,0000

4914
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

KS10 MICROCODE V124, 27-JUL-84 Page 134
BytE GROUP -- ADJUST BYTE POINTER
.TOC
"BYTE GROUP -- ADJUST BYTE POINTER"
.IF/FULL
;FIRST THE NUMBER OF BYTES PER WORD ~S COMPUTED FROM THE
FOLLOWING FORMULA:

(

P

BYTES PER WORD = INT(
(

( 36-P
+ INT(

S

(

S

;THIS GIVES 2 BYTES PER WORD FOR THE FOLLOWING 12 BIT BYTE:
!=====================================!
6 !////////////!
12
6!
!=====================================!
P=18 AND S=12
,
;WE GET 3 BYTES/WORD 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
ADJBP:
[ARX] [AR] SWAP,
;MOVE SIZE OVER
SC_9.
;READY TO SHIFT
=0
;SHIFT P OVER
ADJBPO: [ARX]_[ARX]*.5,
STEP SC,
; ·.
J/ADJBPO
; ·.
[ARX] ([ARX].AND.#)*.5, ; SHIFT AND MASK
3T,
;WAIT
#/176
;6 BIT MASK
;CLEAR LH
[ARxl #,
#/0,
; ·.
HOLD RIGHT
; ·.
WORK[ADJP]_[ARX]
;SAVE P
;START ON S
[BRl ([AR1.AND.#)*.5,
3T,
;EXTRACT S
#/007700
; ·.
[BR] [BR] SWAP,
; SHI FT 18 PLACES
; ·.
SC 3
;CLEAR LH
[BRLO,
HOLD RIGHT
; ·.

T 10K I . MCR [ 10, 1141 ]
SIMPLE .MIC[ 10,1141 J

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 1260, 1260,3447,0505,4174,4007,0630,2000,0060,0000
U 1261, 1262,3333,0005,7174,4007,0621,0400,0000,0222
U 1262, 0660,3442,0400,4174,4007,0700,2000,0071,0042
U 1263, 1404,3771,0003,7274,4007,0701,0000,0000,0223

U 0660, 0370,3771,0003,4374,4007,0700,0010,0000,0000
U 0662, 3017,3223,0000,7174,4007,0700,0400,0000,0224
U
U
U
U

3017,
3020,
3021,
3022,

3020,3772,0000,4370,4007,0700,0000,0000,0044
3021,1662,0000,7274,4007,0701,4000,0000,0221
3022,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, 3023,3333,0003,7174,4007,0700,0400,0000,0225
U 3023, 3024,3771,0003,4374,4007,0700,0000,0077,7777

U 3024, 1264,0661,0005,7274,4007,0622,0000,0000,0224

U 1264, 0550,0662,0000,0274,4007,0522,2000,0071,0042
U 1265, 0603,4443,0000,4174,4467,0700,0000,0051,1000

4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
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

KS10 MICROCODE V124, 27-JUl-84 Page 135
BYTE GROUP -- ADJUST BYTE POINTER
=0
;SHIFT S OVER
ADJBP1: [BR] [BR]*.5,
STEP-SC,
J/ADJBP1
;SALT S AWAY
WORK[ADJS] [BR],
;SEE IF ZERO
SKIP AD.EQ-:-O
;DIVIDE P BY S
=0
Q [ARX],
;STEP COUNT
SC 34.;
;SKIP NEXT WORD
J/liDJBP2
;S=O -- SAME AS MOVE
[AR]_WORK[ADJPTR], J/MOVE
=0*
;FILL AR WITH SIGN BITS
ADJBP2: [AR] #,
#/0,; POSITIVE
;GO DIVIDE
CALL [DIVSUB]
; SA VE QUOT! ENT
WORK[ADJQ1] Q
Q #,
;COMPUTE (36-P)/S
#736. ,
;SMALL ANSWER
HOLD LEFT
;SUBTRACT P
Q Q-WORK[ADJP]
; DIVIDE BY S
[BR] WORK[ADJS]
;STEP COUNT
SC 34.
;MORE SIGN BITS
=0*
[AR] #,
#/0,;GO DIVIDE
CALL [DIVSUB)
;SAVE REMAINDER
WORK[ADJR2] [AR)
;ASSUME NEGATIVE ADJ
[AR) #,
;EXTEND SIGN
#/777777
;BR (P/S)+«36-P)/S)
AD/D+Q,
DEST/AD,
B/BR,
RAMADR/#,
DBUS/RAM,
WORK/ ADJQ 1 ,
,
·4T,
;SEE IF ZERO
SKIP AD.EQ.O
;GET ADJUSTMENT
=0
Q Q+AC,
; STEP COUNT
SC 34.,
; GO DO DIVIDE
SKIP DPO,
;WAIT FOR DP
4T,
; BELOW
J/ADJBP3
;0 BYTES/WORD
NO DIVIDE

~
\

,~

,

T10KI.MCR[10,1141]
SIMPLE.MIC[10.1141]

11:45 11-AUG-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, 3025,3772,0000,4374,0007,0700,0000,0000,0000
U 3025, 1266,3333,0003,4174,4007,0421,0000,0000,0000

U 1266, 3027,0661,0005,7274,4407,0701,0000,0000,0223
U 1267, 3026,1002,0700',4170,4007,0700,4000,0000,0000
U 3026,

1266,0551,0303,7274,4007,0701,0000,0000,0226

4999
5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
501.1
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

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
#/0.WORK[ADJBPW] [BR],
;SAVE BYTES/WORD & COMPUTE
CALL [DIVSUBT
; ADJ/(BYTES/WORD)
;WE NOW WANT TO ADJUST THE REMAINDER SO THAT IT IS POSITIVE
= 11
Q #,
;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
o 0-1,
HOLD LEFT
[AR] [AR]+WORK[ADJBPW],
J/AD0BP4

;ALREADY +
;ADD 0 TO POINTER AND STORE
;RESULT TO BR
;PTR IS IN RAM
;JUST RH
; WA IT FOR RAM
;CONTINUE BELOW
;NO--MAKE 0 SMALLER
;MAKE REM BIGGER
;NDW HAVE + REMAINDER

T10KI.MCR[10,1141J
SIMPLE.MIC[10,1141]

11:45 11-AUG-1984'
15:31 27-JULY-1984

MICRO 31(254)

U 3027. 3030,3441,0306,4174,4007,0700,2000,0071,0043
U 3030, 0062,3772,OOOO,7274,~007,0701,OOOO,OOOO,0222
U 0062, 2662,3446,0606,4174,4007,0700,0010,0000,0000

U 0066, 3031,0661,0003,7274,4007,0701,0000,0000,0225
U 3031, 3032,2555,0303,4374,4007,0701,4000,0000,0044
U 3032, 3033,3770,0303,4344,4007,0700,2000,0071,00'11
U 3033,

1270,3771,0003,4370,4007,0700,0000,0000,0000

l!.E
it

!

U 1270, 1270,3445,0303,4174,4007,0630,2000,0060,0000
U 1271, 3034,4551,0505,4374,0007,0700,0000,0000,7777
U 3034,

1400,3113,0305,0174,4007,0700,0400,0000,0000

5037
5038
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
, 5054
5055
5056
5057
5058
5059
5060
5061
506.2
5063
5064
; 5065
; ;5066
; ;'5067
; ;5068
; ;5069
; 5070
; 5071

KS10 MICROCODE V124, 27-JUL-84 Page 137
BYTE GROUP -- ADJUST BYTE POINTER
ADJBP5: [BRX] [AR],
SC 35-:Q WORK[ADJS]
=01*
[~RX] {BRX]*.5 LONG,
CALL TMULSUB]
AD/D+Q,
DEST/AD,
B/AR,
RAMADR/#,
3T,
DBUS/RAM,
WORK/ADJR2
[AR] (#-[ARJ)*2,
3T,
#/36.
[AR] [AR] SWAP,
SC 9-:-

;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

[AR] #,

;CLEAR JUNK FROM RH

[AR] [AR]*2,
STEP-SC,
J/ADJBP6
[BR] [BR] .AND.#,
#/007777,
HOLD RIGHT
AC [AR].OR.[BRl.
J/DONE
.IFNOT/FULL

;LOOP OVER ALL BITS

#/0,HOLD LEFT
=0
ADJBP6:

ADJBP:

UUO

.ENDIF/FULL

;ALL DONE

;NO ADJBP IN SMALL
MICROCODE

~:

~
\_- --/)

T10KI.MCR[10,1141]
SIMPLE.MIC[10,1141]
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087

.TOC

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84 Page 138
BYTE GROUP -- ADJUST BYTE POINTER

.NOBIN
"BLT"

; THI S 'CODE PROVIDES A GUARANTEED RESULT IN AC ON COMPLET ION 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 DESTINATION
BLOCK, IT WILL 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 THE NEXT TRANSFER. IN THIS CASE,
ONLY ONE READ NEED BE PERFORMED, AND THAT DATA MAY BE STORED FOR EACH
TRANSFER. THUS THE COMMON USE OF BLT TO CLEAR CORE IS SPEEDED UP.

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 3035, 1272,3770,0604,4344,4007,0700,0000,0000,0000

U 1272, 3565,3443,0400,4174,4007,0700,0210,0004,0712
U 1273, 3036,4221,0006,4174,0007,0700,0000,0000,0000
U 3036, 3037,2112,0306,4174,4007,0700,4000,0000,0000
U 3037, 3040,0001,0705,4174,4007,0700,0000,0000,0000
U 3040, 3041,3770,0505,4344,0007,0700,0000,0000,0000
U 3041, 3042,0551,0505,0274,4407,0701,0000,0000,0000
U 3042, 0002,3771,0013,4370,4004,1700,0000,0000,0001

o

0251,0000,1640,2100

U 1640, 3035,3771,0006,0276,6007,0700,0010,0000,0000
U 1642, 3564,3440,0505,0174,4007,0700,0410,0000,0000
U 1643, 3043,0551,0405,4370,4007,0701,0000,0000,0001
U 3043,

1274,2113,0506,4174,4007,0331,4000,0000,0000

U 1274, 3046,3443,0600,4174,4007,0700,0200,0003,0312

5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
5111
5112
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127

KS10 MICROCODE V124, 27-JUL-84
BLT

Page 139

.BIN
;HERE TO SETUP FOR A BLT/UBABLT
SETBL T: [ARX] [BRX] SWAP
=0
VMA [ARX],
START READ,
PXCT BLT SRC,
CALL [CLARXL]
[BRX] 0,
HOLD RIGHT
Q [AR]-[BRX]
[BR] Q+1
[BR]-[BR] SWAP,
HOLD-RIGHT
[BR] AC+[BR],
.INH CRY18
STATE [BLT],RETURN [2]

;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
BLTLP1: 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

C

T10KI.MCR[10,1141]
SIMPlE.MIC[10,1141]

11:45 11-AUG-1984
15:31 27-JUlY-1984

MICRO 31( 254)

U 1275, 3044,3443,0600,4174,4007,0700,0209,0003,0312
U 3044, 1276,3223,0000,4174,4007,0671,0200,0000,0002
U 1276, 3047,4443,0000,4174,4007,0700,0000,0000,0000
U 1277, 1300,2113,0603,4174,4007,0521,4000,0000,0000
U 1300, 1400,4221,0013,4170,4007,0700,0000,0000,0000
U 1301, 1302,0111,0704,4174,4007,0370,0000,0000,0000

U 1302, 3Q44,0111,0706,4170,4007,0700,0200,0003,0312

U 1303, 3046,0111,0706,4170,4007,0700,0200,0003,03'12

U 3045, 1274,3772,0000,4365,5007,0700,0200,0000,0002
U 3046, 3047,3223,0000,4174,4007,0701,0200,0000,0002

I

U 3047, 1304,2113,0603,4174,4007,0521,4000,0000,0000

Ia:

U 1304, 1400,4221,0013,4170,4007,0700,0000,0000,0000
U 1305, 3050,0111,0706,4174,4007,0700,0000,0000,0000

5

U 3050, 3045,0111,0704,4170,4007,0700,0200,0004,0712

U 3051, 3052,3770,0303,4344,4007,0700,0000,0000,0000
U 3052, 3053,3771,0003,7270,4007,0701,0000,0000,0214
U 3053, 1100,3440,0303,0174,4007,0700,0400,0000,0000

5128
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
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179

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] ,
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,
J7BlTlP1
BlTGO: MEM WRITE,
MEM Q
BlTGOT: [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

Tl0KI.MCR[10,114l]
SIMPLE.MIC[10,1141]

11:45 ll-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 0670, 3035,3771,0006,0276,6007,0700,0010,0000,0000
U 0672. 3054,3440,0505,0174,4007,0700.0400,0000,0000

U 3054, 0006,3772,0000,4365,5003,7700,0200,0000,0002

5180
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

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:

'"......................................

"
"""
" " "1
;; "BYTE
0 "
;;"BYTE

.................................. '"....
, """"""""""

. .................................................... .

"
",.
" "3" "
""
BYTE
2 ";;" "
BYTE
; "
4"
BITS;
.. . '" .... '" .. '" ... '" '" '" '" '",. '" . '" '" '" . ,. . '" ......
""""""""""""""

;UNIBUS FORMAT:
'"
'"
'"
..... ,. .. . ...... '",. '" .... '",.,. . ,.
'BYTE' O· ; ; , 2'osirs ' ;;,BYTE' 3' ; ; , BYTE' 2' ;
,. '" '"

;; 2 BITS;; BYTE 1
'"

.....

'"

.... '" ............

,. '"

.... '" ..,

"""",.".""""

=0*
BLTX:

'" '"

....

'" '" '" '"

'"

,. '" '" '"

......

"""""

[BRX] AC,
CALL TSETBLT]
AC_[BR]

BLTXLP: MEM READ,
o MEM,
B-DISP
=110
0_0*.5,

'",.

'" '" '" '"

"'"

,.

..

'" '"

'"

'"

'" '"

'" '"

............................ '" .

J"."""",."""

'" '"

....

'"

1"""

;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 (OPCOOE 716) - SHIFT RIGHT 1

IT

U 0006, 3062,3446,1200,4174,4007,0700,0000,0000,0000
U 0007, 0570,4665,0017,4374,4007,0700,0000,0000,0377
U 0570, 3067,4443,0000,4174,4007,0700,1010,0071,1767
U 0571, 3070,4443,0000,4174,4007,0700,1010,0071,1772
U 0573, 3055,4662,0000,4374,4007.0700,0000.0000,1774
U 3055. 3056,3001.1717,4174,4007,0700,0000,0000,0000
U 3056, 3057.5742.1700,4174,4007,0700,0000,0000,0000
U 3057, 3060,3444,0012,4174,4007.0700,0000,0000,0000
U 3060, 3061,3444,0012,4174,4007,0700,0000,0000,0000
U 3061, 3066,4521,1717,4374,4007,0700,0000,0077,7774

5208
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226

J/BLTBUl

=00
=01
=11

;CONTINUE INSTRUCTION

AD/D.AND.O,DBUS/OBM.
;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 [0 RSH]
; OF LOW BYTE.
0_0.AND~#,#/001774
;KEEP ONLY HI BYTES
AO/A.OR.O,A/Tl,OEST/AD,
B/T1
AD/57,RSRC/OA,A/T1,
OEST/O AD
o 0*2 0-0*2
[Tl] [T1].AND.# CLR RH,
#/777774,J/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
;AND INTO FINAL POSITION
;CLEAR ALL BUT HIGH l6-BIT WORD
;FROM T1 AND CONTINUE

~,/
\"

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

11:45 11-AUG-1984
15:31 27-JULY-1984

MICRO 31(254)

U 3062, 3063,3446,1200,4174,4007,0700,0000,0000,0000
U 3063, 3064,3446,1200,4170,4007,0700,0000,0000,0000
U 3064, 3065,3446,1200,4170,4007,0700,0000,0000,0000
U 3065, 0610,4665,0017,4374,4007,0700,0000,0000,0377
ION
U 0610, 3067,4443,0000,4174,4007,0700,1010,0071,1771
U 0611, 3070,4443,0000,4174,4007,0700,1010,0071,1770
U 0613, 3066,4662,0000,4374,4007,0700,0000,0000,0377

U 3066, 3071,3002,1700,4174,4007,0700,0000,0000,0000
U 3067,0001,3445,1717,4174,4004,1700,1020,0041,0001
U 3070, 0002,3446,1200,4174,4004,1700,1020,0041,0001
U
U
U
U
U

3071,
3072,
3073,
1306,
1307,

3072,3443,0600,4174,4007,0700,0200,0003,0312
3073,3223,0000,4174,4007,0701,0200,0000,0002
1306,2113,0603,4174,4007,0521,4000,0000,0000
1400,4221,0013,4170,4007,0700,0000,0000,0000
3074,0111,0706,4174,4007,0700,0000,0000,0000

U 3074, 3054,0111,0704,4170,4007,0700,0200,0004,0712

KS10 MICROCODE V124, 27-JUL-84 Page 142
UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT

5227
5228
5229
5230
5231

BLTBU1 : Q Q*.5
;NOW IN 1/2 WORDS
Q-Q*.5,HOLD LEFT
;INSERT A NULL BIT
Q=Q*.5,HOLD LEFT
;ONE MORE - NOW IN
;BUT NOT SWAPPED.
AD/D.AND.Q,DBUS/DBM,
DBM/#,#/377,DEST/AD*2,B/T1
;TD T1 AND

5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5253
5254
5255

=00

IN RH
HALF WORDS
COPY RIGHT BYTE
SHIFT LEFT 1 POSI

FE S#,S#/1771,
CALL [T1LSH]
FE S#,S#/1770,
CALL [Q RSH]

=11

Q_Q.AND~#,#/377

; -7 BITS MORE
;TO FINAL RESTING PLACE
;-8. LEFT BYTES MOVE RIGHT
;TO FINAL RESTING PLACE
;WANT ONLY THE NEW BYTES

BLTXV:

Q [T1].OR.Q,
J7BLTXW

;MERGE RESULTS
;AND STUFF IN MEMORY

=01

T1LSH:
Q_RSH:
BLTXW:

[T1] [T1]*2,SHIFT,RETURN [1]
[2]

Q_Q*~5,SHIFT,RETURN

VMA [BRX],START WRITE,
:DEST TO VMA
PXCT BLT DEST
MEM WRITE,MEM Q
;STORE
[BRX]-[AR],3T~SKIP DPO
:DONE?
END BLT,J/DONE
:YES
=0
[BRX] [BRX]+1
:NO, INC DEST
\tMA ["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

T10KI.MCR[10.1141]
FLT.MIC[10.1141]

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

o

0140. 0701.1577.1100
o 0142, 0702.1577.1700
o 0143. 0703.1577.1700
00144.0711.1577.1100
o 0145. 0611.1577.0100
o 0146, 0712.1577.1700
00147.0713.1577.1700

o 0150. 0701,1576.1100

o 0152.
o 0153,
00154.
o 0155.

0702.1576.1700
0703,1576.1700
0711.1576.1100
0611.1576.0100
o 0156. 0712.1576.1700
o 0157. 0713.1576.1700

U 1576. 1577.2441.0303,4174.4007.0700,4000.0000.0000
U 1577. 0674,3771,0005.0276.6006.7701.2000.0020.2000

i

U
U
U
U
U
U
U

0674,
0676,
3075.
3076.
3077,
1310.
1311.

1312,3333,0005,4174.4007,0520.0000.0000.0000
3075.3441,0304.4174.4007.0700.0000.0000.0000
3076.3441.0503.4174.4007.0700.2000.0041.2000
3077.3441.0405.4174.4007.0700,2000.0020.0000
1310.3333.0003.4174.4007.0520.1000.0041.2000
3100,4551.0303.4374.0007.0700.0000.0000.0777
3100,3551,0303,4374.0007.0700.0000.0077.7000

Ii

I

U 1312, 3100.4551.0505.4374.0007,0700,0000.0000.0777
U 1313. 3100,3551.0505.4374.0007.0700.0000.0077.7000
U 3100. 1314.4222.0000,4174.4007,0630.2000,0060.0000
U 1314, 1314.3446,0505,4174,4047.0630.2000,0060.0000
U 1315. 0420,0111.0503,4174.4003.4701.0000,0000,0000

5256
5257
-5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289 5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300

KS10 MiCROCODE V124. 27-~UL-84
FLOATING POINT -- FAD. FSB
.TOC
140:
142:

150:
152:

"FLOATING POINT
.DCODE
FL-R.
FL-RW.
FL-RW.
FL-R,
FL-I.
FL-RW,
FL-RW.
FL-R,
FL-RW.
FL-RW.
FL-R,
FL-I.
FL-RW.
FL-RW.
.UCODE

Page 143

FAD. FSB"

FL-AC.
FL-MEM.
FL-BOTH.
FL-AC. ROUND.
FL-AC. ROUND.
FL-MEM, ROUND.
FL-BOTH. ROUND.

~/FAD
~/FAD
~/FAD
~/FAD
~/FAD
~/FAD
~/FAD

FL-AC.
FL-MEM.
FL-BOTH,
FL-AC, ROUND,
FL-AC. ROUND,
FL-MEM. ROUND.
FL-BOTH, ROUND.

~/FSB
~/FSB
~/FSB
~/FSB
~/FSB
~/FSB
~/FSB

;BOTH FAD & FSB ARE ENTERED WITH THE MEMORY OPERAND IN AR
• SIGN SMEARED. THE EXPONENT IN BOTH SC AND FE.
1576:
FSB:
;MAKE MEMOP NEGATIVE
[AR] - [AR]
1577:
FAD:
=0*
'F AS 1 :

=0

[BR]_AC. SC_SC-EXP-1. 3T, SCAD DISP
READ [BR], SKIP DPO. ~/FAS2
;BR .LE. AR
[ARX] [AR]
;SWAP AR AND BR
[AR] TBR]. SC EXP
[BR]-[ARX]. SC SC-FE-1
;NUMBER OF SHIFT STEPS
READ-[AR]. FE ExP. 2T, SKIP OPO
[AR] +SIGN. ~7FAS3
[AR]--SIGN. ~/FAS3

=0
FAS2:

;SIGN SMEAR BR AND UNNORMALIZE
[BR] +SIGN, ~/FAS3
[BR]--SIGN. J/FAS3

FAS3:
=0
FAS4:

0_0. STEP SC
[BR] [BR]*.5 LONG, STEP SC. ASHC. ~/FAS4
[AR]-[AR]+[BR]. NORM DISP. ~/SNORM

T10KI.MCR[10,1141]
FLT.MIC[10,1141]

11 :45 11-AUG-1984
01:46 20-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,
1316,
1317,
3101,

0711,1570,1100
0611,1570,0100
0712,1570,1700
0713,1570,1700

1316,3771,0006,0276,6007,0521,1000,0040,2000
3101,4551,0606,4374,0007,0700,OQOb,OOOO,0777
3101,3551,0606,4374,0007,0700,0000,0077,7000
0163,3442,0300,4174,4007,0700,2000,0071,0033

U 0163, 2662,3446,0606,4174,4007,0700,0010,0000,0000
U 0167, 3102,4662,0000,4370,4007,0700,0000,0077,7000
U 3102, 3103,3441,0403,4174,4007,0700,1000,0041,0002
U 3103, 0420,3446,0303,4174,4003,4701,1000,0041,1600

5301
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

KS10 MICROCODE V124, 27-JUL-84
FLAOTING POINT -- FMP

Page 144

.TOC

"FLAOTING POINT -- FMP"

160:
162:

.DCODE
FL-R,
FL-RW,
FL-RW,

FL-AC,
FL-MEM,
FL-BOTH,

J/FMP
J/FMP
J/FMP

FL-R,
FL-I,
FL-RW,
FL-RW,
.UCODE

FL-AC, ROUND,
FL-AC, ROUND,
FL-MEM, ROUND,
FL-BOTH, ROUND,

J/FMP
J/FMP
J/FMP
J/FMP

1570:
FMP:
=0
FMP 1 :
=01*

[BRX] AC,
FE SC+EXP, 3T,
SKIP DPO
[BRX] +SIGN, J/FMP1
[BRX]--SIGN, J/FMP1
Q [ART, SC 27.
[BRX] [BRxT*.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

T10KI.MCR[10,1141]
FLT~MIC[ 10,1141]

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31( 254)

D 0170.0701,1574,1100
D 0172, 0702,1574,1700
o 0173, 0703,1574,1700
D
D
D
D

0174,
0175,
0176,
0177,

0711,1574,1100
0611,1574,0100
0712,1574,1700
0713,1574,1700

U 1574, 1320,3441,0305,0174,4007,0621,0000,0000,0000

5330
5331
5332
5333
5334
5335
5336
5337
5338
5339
5340
5341
5342
5343
5344
5345
5346

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:
FDV:
=0

q347

U 1320, 1322,3771,0003,0276,6007,0520,1000,0030,2000
U 1321, 0603,4443,0000,4174,4467,0700,0000,0071,1000
U
U
U
U
U

1322,
1323,
3104,
3105,
3106,

3104,4551,0303,4374,0007,0700,0000,0000,0777
3105,3551,0303,4374,0007,0700,0000,0077,7000
3106,3441,0304,4174,4007,0700,1000,0031,0200
3106,2441,0304,4174,4007,0700,5000,0031,0200
1324,3445,0506,4174,4007,0520,0000,0000,0000

U 1324, 1326,2113,0406,4174,4007,0311,4000,0000,0000
U 1325, 1324,2445,0506,4174,4007,0700,4000,0000,0000
U 1326, 1330,3447,0606,4174,4007,0700,0000,0000,0000
U 1327, 0603,4443,0000,4174,4467,0700,0000,0071,1000
U 1330, 3567,3445,0303,4174,4007,0700,0010,0000,0000
U 1331, 0144,2113,0604,4174,4007,0421,4000,0000,0000
U 0144, 2725,4222,0000,4174,4007,0700,2010,0071,0033
U 0145, 0144,3447,0303,4174,4007,0700,1000,0041,0001
U 0154, 3107,3227,0003,4174,4007,0700,0000,0000,0000
U 0155, 2036,3333,0003,4174,4007,0621,0010,0000,0000
U 0156, 2036,3333,0003,4174,4007,0621,0010,0000,0000
U 0157, 3107,3227,0003,4174,4007,0700,0000,0000,0000
U 0177, 3107,2227,0003,4174,4007,0700,4000,0000,0000
U 3107, 1341,4222,0000,4174,4007,0700,0000,0000,0000

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

=0
FDVO:
FDV1 :
FDV2:
FDV3:
=0
FDV4:
=0
FDV5:

Page 145

FL-AC,
FL-MEM,
FL-BOTH,

J/FDV
J/FDV
J/FDV

FL-AC, ROUND,
FL-AC, ROUND,
FL-MEM, ROUND,
FL-BOTH, ROUND,

J/FDV
J/FDV
J/FDV
J/FDV

[BR] [AR], SKIP AD.EO.O, AC

;COPY DIVSOR SEE IF 0

[AR] AC, FE SC-EXP, SKIP DPO,
J/FDVO
FL NO DIVIDE

;GET AC & COMPUTE NEW
, EXPONENT
;DIVIDE BY ZERO

[AR] +SIGN, J/FDV1
[AR]--SIGN, J/FDV2
[ARX] [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 OIV1
[BRX]_-[BR)*2, J/FDV4
;FORCE ABSOLUTE VALUE
[BRX] [BRX]*.5, J/FOV6
FL NO-DIVIDE

;SHIFT BACK ARX
;UNNORMALIZED INPUT

[AR] [AR]*2,
CALL-rSBRL]
[BRX]-[ARX], SKIP AD.LE.O

;00 NOT DROP A BIT
;AT FDV7+1
;IS ANSWER .LE. 11

o 0,

SC 27., CALL [DIVSGN]
[AR] [AR]*.5, FE_FE+1, J/FDV7

;DIVIDE
;SCALE DV'END

=01111
=11111

[AR] 0*.5, J/FDV9
READ-[AR], SKIP AD.EO.O,
CALL [SETSN]
READ [AR], SKIP AD.EO.O,
CALL [SETSN]
[AR] 0*.5, J/FDV9
[AR1=-0*.5, J/FDV9

;PUT ANSWER IN AR
;-VE ANSWER, LOOK AT RMDR
, SEE HOW TO NEGATE
;-VE ANSWER, LOOK AT RMOR
, SEE HOW TO NEGATE
;PUT ANSWER IN AR
;ZERO RMDR

FDV9:

0_0, J/SNORMO

;GO NORMALIZE

=0
FDV6:
=00100
FDV7:
=00101
=01100
FDV8:
=01101
=01110

T10KI.MCR[10,1141]
FLT .MIC[ 10,1141]

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

D 0127, 0011,1616,1100
o 0132, 0001,1621,2100

U 1616, 1332,4553,0300,4374,4007,0321,0000,0077,7000
U 1332, 1334,2441,0305,4174,4007,0521,4000,0000,0000
U 1333, 1341,4222,0000,4174,4007,0700,1000,0071,0233
U 1334, 1336,4553,0500,4374,4007,0321,0000,0077,7000
U 1335, 3110,4222,0000,4174,4007,0700,1000,0071,0244
U 1336, 3110,4222,0000,4174,4007,0700,1000,0071,0244
U 1337, 1341,4222,0000,4174,4007,0700,1000,0071,0233

U 3110,

1340,3446,0303,4174,4047,0700,2000,0071,0006

U 1340, 1340,3446,0303,4174,4047,0630,2000,0060,0000
U 1341, 0420,3333,0003,4174,4003,4701,0000,0000,0000

U
U
U
U
U

~621,

3111,
3112,
1342,
1343,

3111,3333,0003,4174,4007,0700,2000,0041,4000
3112,4222,0000,0174,4007,0700,0000,0000,0000
1342,3771,0003,0276,6007,0520,1000,0040,2000
1341,4551,0303,4374,0007,0700,0000,0000,0777
1341,3551,0303,4374,0007,0700,0000,0077,7000

5380
5381
5382
538·3
;, 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

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
FLTR1:

FL-AC,ROUND,
FL-AC,

J/FLTR
J/FSC

[AR].AND.#, #/777000, 3T, SKIP ADL.EQ.O ;SMALL POS NUMBER?
[BR] -[ARl, SKIP DPO, 3T, J/FLTR1
;NO--SEE IF MINUS
Q_O,-FE_S#, 5#/233, J/SNORMO
;FITS IN 27 BITS
[BR].AND.#, #/777000, 3T,
SKIP ADL.EQ.O, J/FLTR1A ;SMALL NEGATIVE NUMBER
Q_O, FE_S#, 5#/244, J/FLTR2
;LARGE POS NUMBER

=0
FLTR1A: Q_O, FE 5#, 5#/244, J/FLTR2
;BIG NUMBER
Q 0, FE-S#, 5#/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.
;SHOVE OVER TO THE RIGHT
FLTR2:
[AR] [AR]*.5 LONG, ASHC, SC_6
=0
;SHIFT RIGHT 9 PLACES
FLTR3:
[AR] [AR]*.5 LONG, ASHC,
, SO IT WIll FIT
STEP SC, J/FLTR3
SNORMO: READ [AR], NORM DISP, J/SNORM
;NORMALIZE ANSWER
1621 :
FSC:
=0

READ [AR], SC SHIFT
Q 0, AC
[AR] AC, FE SC+EXP, SKIP DPO
[AR]-+SIGN,-J/SNORMO
[AR]--SIGN, J/SNORMO

;DON'T SHIFT IN JUNK
;SIGN SMEAR

; T10KI.MCR(10,1141]
; FLT.MIC[10,1141]

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31( 254)

D 0122, 0701,1626,1100
D 0126, 071t,1626,1100

~

U
U
U
U

1626,
0720,
0722,
0724,
0726,

0720,4222,0000,4174,4006,7701,0000,0041,1534
0603,4443,0000,4174,4467,0700,0000,0041,1000
0724,4443,0000,4174,4006,7701,2000,0041,1544
1346,4443,0000,4174,4007,0630,2000,0060,0000
3113,4443,0000,4174,4007,0700,2000,0031,0232

U 3113, 1344,4443,0000,4174,4007,0630,2000,0060,0000
U 1344, 1344,3446,0303,4174,4047,0630,2000,0060,0000
U 1345, 0063,3447,0705,4174,4003,7700,0000,0000,0000
U 1346, 1346,3445,0303,4174,4007,0630,2000,0060,0000
U 1347, 0100,3440,0303,0174,4156,4700,0400,0000,0000
U 0063,
U 0073,

1350,3333,0003,4174,4007,0520,0000,0000,0000
1514,0111,0503,4174,4003,7700,0200,0003,0001

U 1350, 0100,3440,0303,0174,4156,4700,0400,0000,0000
U 1351, 1352,3223,0000,4174,4007,0621,0000,0000,0000
U 1352, 1514,0111,0703,4174,4003,7700',0200,0003,0001
U 1353, 0073,,7441,1205,4174,4007,0700,0000,0000,0000

;<" ''\

:

\

"

5415
5416
5417
5418
5419
5420
5421
5422
5423
5424
5425
5426
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451

KS10 MICROCODE V124, 27-vUL-84
FLOATING POINT -- FIX AND FIXR

Page 147

.TOC

"FLOATING POINT -- FIX AND FIXR"

122:
126:

.DCODE
FL-R,
FL-R,
.UCODE

1626:
FIX:
=0*

=0
FIXR:

=0
FIXL:
=0*11
FIXX:
FIXX1 :
=0
FIXT:
=0

FL-AC,
FL-AC,ROUND,

v/FIX
v/FIX

o O. SCAD/A+B, SCADA/S#,
CLEAR 0, SEE IF
S#/1534, SCADB/FE, 3T,
ANSWER FITS IN
SCAD DISP
35 BITS.
SET AROV, v/NIDISP
TOO BIG
SC FE+S#, S#/1544, 3T, SCAD DISP ;NEED TO MOVE LEFT?
STEP SC, v/FIXL
SC_S#-FE, S#/232
;NUMBER OF PLACES TO SHIFT
, RIGHT
;ALREADY THERE
STEP SC
[AR] [AR]*.5 LONG, ASHC,
STEP SC, v/FIXR
[BR]_[ONE]*.5, B DISP, v/FIXX

;SHIFT BINARY POINT
, TO BIT 35.5
;WHICH KIND OF FIX?

[AR] [AR]*2, STEP SC, v/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 0, SKIP AD.EO.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

T10KI .MCR[ 10,1141]
FLT.MIC[10,1141]

U
U
U
U
U
U
U
U
U
U

0420,
0421,
0422,
0423,
0424,
0425,
0426,
0427,
0430,
0436,

11:45 ll-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

0420,3444,0303,4174,4063,4701,1000,0041,1777
1356,2222,0000,4174,4007,0311,4000,0000,0000
0262,3333,0003,4174,4003,4701,0010,0000,0000
1356,2222,0000,4174,4007,0311,4000,0000,0000
0262,3447,0303,4174,4007,0700,1010,0041,0001
1356,2222,0000,4174,4007,0311,4000,0000,0000
0262,3447,0303,4174,4007,0700,1010,0041,0001
1356,2222,0000,4174,4007,0311,4000,0000,0000
1354,3223,0000,4174,4007,0621,0000,0000,0000
1355,3770,0303,4324,0457,0700,0000,0041,0000

U 1354, 0420,3444,0303,4174,4063,4701,1000,0041,1777
U 1355, 1514,4443,0000,4174,4003,7700,0200,0003,0001

5452
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

KS10 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

ALL DONE
NEGATE AND RETRY

0

0

0

0

ACTION TO TAKE
SHIFT LEFT
NEGATE AND RETRY

0

0

0

DPOO
0

0

SHIFT RIGHT
NEGATE AND RETRY

0

SHIFT RIGHT
NEGATE AND RETRY
LOOK AT Q BITS

;ENTER HERE WITH UNNORMALIZED NUMBER IN AR!Q. FE HOLDS THE NEW
; EXPONENT. CALL WITH NORM DISP
;9-WAY DISPATCH
=0000
[AR] [AR]*2 LONG, DIV, FE FE-l, NORM DISP, J/SNORM
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+l, CALL [SROUND]
Q -Q~ SKIP CRYO,-3T, J/SNNEG
READ Q, SKIP AD.EQ.O, J/SNORMl
= 1110
[AR] EXP, J/FLEX
=0
SNORM1: [AR] [AR] *2 LONG, DIV, FE_FE-1, NORM DISP, J/SNORM
FLEX:
FL-EXIT

T10KI.MCR[10,1141]
FLT .MIC( 10,1141]

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

U 1356, 0440,7441,0303,4174,4003,4701,0000,0000,0000
U 1357, 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.4701.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,

1360,4553,1300,4374,4007,0321,0000,0000,2000

U 0337,

1363,4111,1203,4174,4007,0700,0000,0000,0000

U
U
U
U
U

3114,7441,0303,4174,4007,0700,0000,0000,0000
1362,3223,0000,4174,4007,0621,0000,0000,0000
3114,7441,0303,4174,4007,0700,0000,0000,0000
3114,2441,0303,4174,4007,0700.4000,0000,0000
1514,4221,0013,4174,4003,7700,0200,0003,0001

1360,
1361,
1362,
1363,
3114,

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,0111,0503,4174,4003,4701,0000,0000,0000
0016,4443,0000,4174,4004.1700,0000,0000,0000
0016,3447,0303,4174,4004.1700.1000,0041,0001

5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525
5526
5527
5528
5529

KS10 MICROCODE V124, 27-JUL-84 Page 149
FLOATING POINT -- SINGLE PRECISION NORMALIZE
=0
SNNEG:
=0000
SNNORM:
=0010
=0100
=0110
=1000
= 1110
=0111

[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-1, 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/SNNOT 1

=0
SNNOT:

[AR] .NOT.[AR], J/SNNOT2
READ-Q, SKIP AD.EQ.O
[AR] .NOT.[AR]. J/SNNOT2
=0
;NORMAL NEGATE AND EXIT
SNNOT1 : [AR]--[AR], J/SNNOT2
SNNOT2: [FLGT_O, FL-EXIT

.TOC

"FLOATING POINT -- ROUND ANSWER"

=*01*
SROUND: [BR] [ONEJ*.5, B DISP, J/SRND1
[AR]=[ARJ*.5, FE~FE+1, J/SROUND ;WE WENT TOO FAR
=0111
SRN01:
RETURN [16]
I
;NOT ROUNOING INSTRUCTION
[AR] [AR]+[BR] ,NORM DISP
=*01*
RETURN [16]
[AR] [AR]*.5, ~E_FE+1, RETURN [16]

T 10K I . MCR [ 10, 1141 ]
FLT .MIC[ 10, 1141]

11:45 11-AUG-1984
01:46 20-MAR-1981

MICRO 31(254)

0011'0.1100,1637,1100
0.0111, 1100,1635,1100

U 1635, 3115,2441,0404,4174,4007,0700,4000,0000,0000
U 3115, 1637,2441,0303,4174,4007,0700,0040,0000,0000
U 1637, 3116,4557,0006,1274,4007,0701,0000,0000,1441
U 3116, 1364,3777,0005,0274,4007,0521,2000,0020,2000
U 1364, 1366,5547,0505,0374,4007,0631,0000,0077,7400
U 1365, 1366,3547,0505,0374,4007,0631,0000,0077,7400
U 1366, 1370,3442,0600,4174,4007,0700,0000,0000,0000
U 1367, 3120,3771,0016,0276,6007,0700,2000,0041,2000

5530
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

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- DFAD, DFSB
.TOC

"FLOATING POINT

110 :
1 11 :

.DCODE
DBL FL-R,
DBL FL-R,
.UCODE

Page 150

DFAD, DFSB"
J/DFAD
J/DFSB

; ENTER FROM A-READ CODE WITH:
EXP
;FE/
EXP
;SC/
;AR/
C(E) SHIFT RIGHT 2 PLACES
C(E+1) SHIFTED RIGHT 1 PLACE
;ARX/
1635:
DFSB:
[ARX] -[ARX]
;NEGATE LOW WORD
[AR] 7[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
SKIP DPO
;SEE WHAT SIGN
;SIGN SMEAR
[BR] +SIGN*.5, 3T,
=0
AC, SKIP/SC, J/DFAS1
;SEE WHICH IS BIGGER
[BR] -SIGN*.5, 3T,
;SIGN SMEAR
AC, SKIP/SC, J/DFAS1
;SEE WHICH IS BIGGER
=0

DFAS1:

Q [BRX],
J7DFAS2
[TO] AC,
SC_EXP, 2T, J/DFAS3

AR IS BIGGER
ADJUST BR!Q
BR IS BIGGER OR EQUAL
SET SC TO THAT EXPONENT

Tl0KI.MCR[10,1141]
FLT.MIC[10,1141]

11:45 11-AUG-1984
01 :46 20-MAR-1981

MICRO 31(254)

U 1370, 0153,3441,0516,4174,4007,0700,0010,0000,0000
U 1371, 3117,3441,1605,4174,4007,0700,0000,0000,0000
U 3117, 3123,0002,0400,4174,4007,0700,0000,0000,0000

U
U
U
U
U

3120,
3121,
1372,
1373,
3122,

3121,3442,0400,4174,4007,0700,2000,0020,0000
1372,3333,0016,4174,4007,0700,1000,0041,2000
0153,3441,0316,4174,4007,0700,0010,0000,0000
3122,3441,1603,4174,4007,0700,0000,0000,0000
3123,0002,0600,4174,4007,0700,0000,0000,0000

U 3123, 3124,0116,0503,4174,4047,0700,0040,0000,0000
U 3124, 0433,3444,0303,4174,4046,2700,0000,0000,0000
U 0433, 3125,5111,1217,4174,4007,0700,0000,0000,0000
U 0437, 0433,0222,0000,4174,4007,0700,4000,0000,0000
U 3125, 3126,3444,0303,4174,4047,0700,1000,0041,1777
U 3126, 3127,3444,0303,4174,4047,0700,1000,0041,1777
U 3127, 2005,3002,1700,4170,4007,0700,0000,0000,0000

5560
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

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- OFAD, 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 BR!BRX IF
DFAS3: 0 [ARX],
SC SC-FE-1
READ [TO],
=0
[TO] [AR],
[AR]-[TO]
O_Q+TBRX],

;ADJUST BR!O
;PUT ANSWER BACK
;ADD LOW WORDS

GREATER THAN OR EQUAL TO AR!ARX
;SETUP TO SHIFT AR!ARX
;COMPUTE # OF PLACES
FE EXP
;EXPONENT OF ANSWER
CALL [DFADJ] ;ADJUST AR!Q
;PUT ANSWER BACK
J/DFAS5
;ADD LOW WORDS

;BIT DIDDLE TO GET THE ANSWER (INCLUDING 2 GUARD BITS) INTO
; AR!O
DFAS5:
[AR] ([AR]+[BR])*.5 LONG, ";Abb ~iG~-WORDS
MULTI PREC/1, ASHC
;INJECT SAVED CRY2
[AR] [AR]*2 LONG,
;SHIFT BACK LEFT
ASHC~ MUL DISP
;SEE IF WE LOST A 1
= 1011
[Tl] [T1].AND.NOT.[MASK], J/DFAS7
DFAS6:
Q O+~25, J/DFAS6
DFAS7:
[AR] [AR]*2 LONG, ASHC, ;PUT IN GUARD BITS
FE FE-1
[AR] [AR]*2 LONG, ASHC,
FE FE-l
Q_TT1].OR.Q, HOLD LEFT, J/DNORMO

Tl0KI.MCR[10,1141]
FLT .MIC[ 10,1141]

U 0153,
U 0173,
U 3130,

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

2037,3444,1616,4174,4067,0700,0010,0000,0000
3130,3444,1616,4174,4067,0700,0000,0000,0000
3131,3444,1616,4174,4067,0700,0000,0000,0000

U 3131, 0472,3446,1616,4174,4047,0630,2000,0060,0000

U 0472, 0472,3446,1616,4174,4046,2630,2000,0060,0000
U 0473, 0453,3221,0017,4174,4006,2700,0000,0000,0000
U 0476, 1374,3551,1313,4374,0007,0700,0000,0000,2000
U 0477, 1375,3551,1313,4374,0007,0700,0000,0000,2000
U 1374, 1374,3446,1616,4174,4047,0630,2000,0060,0000
U 1375, 0453,3221,0017,4174,4007,0700,0000,0000,0000
U 0453, 3132,3446,1616,4174,4047,0700,0000,0000,0000
U 0457, 0453,3551,1313,4374,0007,0700,0000,0000,2000
U 3132, 0001,3446,1616,4174,4044,1700,0000,0000,0000

5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616
5617
5618

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- DFAD, DFSB

Page 152

;SUBROUTINE TO ADJUST NUMBER IN TO!Q
; RETURNS 1 WITH
TO!Q ADJUSTED
FLG.SN=1 IF WE SHIFTED OUT ANY 1 BITS (STICKY BIT)
Tl HAS Q TWO STEPS PRIOR TO BEING DONE
,
"STEP SC, ASHC, MUL DISP"
DFADJ
=0**11
DFADJ:

[TO] [TO]*2 LONG, DIV,
;MOVE EVERYTHING 2 PLACES
CALL-[CLRSN]
[TO] [TO]*2 LONG, DIV
[TO]-[TO]*2 LONG, DIV
[TO]-[TO]*.5 LONG, ASHC, ;SHIFT AT LEAST 1 PLACE
STEP-SC

= 1010
DFADJ1: [TO] [TO]*.5 LONG,
;UNNORMALIZE TO!Q
DFADJ, J/DFADJ1
;LOOP TILL DONE
DFADJ2: [Tl] Q,
;SAVE GUARD BITS
MUL DISP, J/DFADJ5
;LOOK AT LAST BIT
[FLG] [FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ3
[FLG]-[FLG].OR.#, FLG.SN/l, HOLD RIGHT, J/DFADJ4

=0
DFADJ3: [TO] [TO]*.5 LONG, ASHC, STEP SC, J/DFADJ3
DFADJ4: [T1]=Q
;SAVE 2 GUARD BITS
= 1011
DFADJ5: [TO] [TO]*.5 LONG, ASHC, J/DFADJ6
[FLGT [FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ5
DFADJ6: [TO] [TO]*.5 LONG, ASHC, RETURN [1]

T10KI.MCR[10,1141)
FLT.MIC[lO,1141J

D 0112,

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

1105, 1631 , 1100

U 1631, 1376,3442,0400,4174,4007,0700,2000,0071,0006
U
U
U
U

1376,
1377 ,
3133,
3134,

1376,3444,0303,4174,4047,0630.2000,0060,0000
3133,3446,1200,4174,4007,0700,0000,0000,0000
3134,4662,0000,4374,0007,0700.0000,0007,7777
3135,3221,0005,4174,4007,0700,0000,0000,0000

U 3135, 0730,4557,0006,1274,4007,0700,0000,0000,1441
U 0730, 2663,3447,0606,4174,4007,0700,2010,0071,0043

U
U
U
U

0734,
0732,
0736,
3136,

0732,3442,0300,4174.4007.0700,2000,0071,0043
2664,4443,0000,4174,4007,0700.0010,0000,0000
3136,3441,0416,4174,4007.0700,0000,0000,0000
3137,3227,0004.4174,4007.0700,2000,0011,0000

5619
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

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- DFMP
.TOC

"FLOATING POINT -- DFMP"

112:

.DCODE
DBL FL-R,
.UCODE

U 3137, 2000,3777,0006,0274,4007,0521,1000,0040,2000
U 2000. 1012,5547,0606,4374.4007,0701,0000,0077,7400
U 2001. 1012,3547,0606,4374,4007,0701,0000,0077,7400
U 1012, 2664,3442,0500,4174,4007,0700.2010,0071,0043
U 1016, 3140.3221,0017,4174,4007,0700,0000,0000,0000
U 3140, 1062,0111,1604,4174,4007,0700,0000,0000,0000

U'1062, 2664,3442,0300,4174,4007,0700,2010,0071,0043

J/DFMP

;SAME ENTRY CONDITIONS AS DFAD/DFSB
1631 :
;SHIFT MEM OP 8 PLACES
DFMP:
=0
[AR) [AR)*2 LONG, ASHC, ;SHIFT
DFMP 1:
STEP-SC, J/DFMP1
Q Q*. 5

Q-Q.AND.#, #/077777, HOLD RIGHT
[BRJ_Q
;COPY LOW WORD
BRX * BR ==> C(E+1) * C(AC+1)
[BRX) (AC[1].AND.[MAG)*.5 ;GET LOW AC
=0**
[BRX) [BRX)*.5, SC_35., CALL [MULSB1]
,
; BRX * Q ==> C(E) * C(AC+1)
=0**

Q [AR). SC 35.
CALL [MULTIpLY]
[TO] [ARX)
[ARXT_Q*.5, SC_FE

;GO MULT NEXT HUNK
;SAVE PRODUCT
;PUT IN NEXT STEP

BRX * BR ==> C(AC) * C(E+1)
[BRX) AC*.5,
;PREPARE TO 00 HIGH HALF
FE SC+EXP,
; EXPONENT ON ANSWER
SKIP DPO, 3T
[BRX] +SIGN*.5, 3T, J/DFMP2
[BRX]--SIGN*.5, 3T

~649

5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663

DAC,

Page 153

=0
=0**
OFMP2:

Q [BR], SC 35 .• CALL [MULTIPLY] ;GO MULTIPLY
[T1] Q
;SAVE FOR ROUNDING
[ARXT [ARX]+[TO]
;PREPARE FOR LAST MUL

BRX * Q ==> C(AC) * C(E)
0**

Q[AR].SC35.,
CALL [MULTIpLY]

;00 THE LAST MULTIPLY

T10KI.MCR[10,1141l
FLT .MIC[ 10,1141]

11: 45. 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

U 1066, 0243,3446,0403,4174,4007,0700,1000,0041,1576
U
U
U
U
U
U
U
U

0243,
0263,
3141,
3142,
2002,
2003,
3143,
2004,

2036,3333,0017,4174,4007,0621,0010,0000,0000
3141,3444,0303,4174,4047,0700,0000,0000,0000
3142,3447,0705,4174,4007,0700,0000,0000,0000
2002,4553,1700,4374,4007,0321,0000,0020,0000
2003,0002,0500,41ry4,4007,0700,0000,0000,0000
3143,3444,0303,4174,4047,0700,0000,0000,0000
2004,4553,1700,4374,4007,0321,0000,0010,0000
2005,0002,0500,4174,4007,0700,0000,0000,0000

U 2005, 0520,3333,0003,4174,4003,4701,1000,0041,0002

5664
5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679

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 [T1l. SKIP AD.EQ.O, ;SEE IF LOW ORDER 1
CALL [SETSN]
; BITS AROUND SOMEPLACE
[AR] [AR]*2 LONG, ASHC ;SHIFT LEFT
[BRl-[ONE]*.5
;PLACE TO INSTERT BITS
TL [T1], #/200000
;ANYTHING TO INJECT?
=0
Q Q+[BR]
;YES--PUT IT IN
[AR] [AR]*2 LONG, ASHC ;MAKE ROOM FOR MORE
TL [T1], #/100000
;ANOTHER BIT NEEDED
=0
Q Q+[BR]
;YES--PUT IN LAST BIT
DNORMO: READ [ARl, NORM DISP,
;SEE WHAT WE NEED TO DO
FE_FE+S#, S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS

T 10K I . MCR [ 10, 1141 ]
FLT.MIC[10,1141]

11:45 l1-AUG-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, 2037,4221,0017,4174,4007,0700,0010,0000,0000
U 0133, 2006,3441,0305,1174,4007,0421,0000,0000,1441
U 2006, 3146,4557,0004,1274,4007,0700,0000,0000,1441
U 2007, 3144,7441,1717,4174,4007,0700,0000,0000,0000
U 3144, 3145,2441,0606,4174,4007,0700,4000,0000,0000

U 3145, 2006,2331,0005,1174,4007,0521,0040,0000,1441
U
U
U
U
U

3146,
2010,
2011,
3147,
3150,

2010,3777,0003,0274,4007,0521,1000,0030,2000
2012,5547,0303,4374,4007,0701,0000,0077,7400
3147,7441,1717,4174,4007,0700,0000,0000,0000
3150,3547,0303,4374,4007,0701,0000,0077,7400
3151,2442,0400,4174,4007,0700,4000,0000,0000

U 3151, 2013,2446,0303,4174,4047,0700,0040,0000,0000
U
U
U
U
U
U

2012,
2013,
2014,
2015,
1054,
1056,

2724,3442,0400,4174,4007,0700,0010,0000,0000
2014,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
1240,4222,0000,4174,4007,0700,2010,0071,0032
2020,3221,0016,4174,4007,0700,2000,0071,0043

U 2020, 1240,5002,0000,4174,4007,0621,0010,0000,0000
U 2022, 3152,3446,1200,4174,4007,0700,0000,0000,0000
U 3152, 0513,3444,1616,4174,4046,2700,0000,0000,0000

U 0513, 2016,3333,0017,4174,4007,0520,1000,0031,0202
U 0517, 0513,0222,0000,4174,4007,0700,4000,0000,0000
U 2016, 0520,3441,1603,4174,4003,4701,0000,0000,0000
U 2017, 0200,3441,1603,4174,4003,4701,0000,0000,0000

5680
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

KS10 MICROCODE V124, 27-JUL-84
FLOATING POINT -- DFDV
.TOC
113:
1636 :
DFDV:
=1**10
=0
DFDV1:

DFDV2:
=0

=0
DFDV3:
DFDV4:
=0
=0*
=0*

Page 155

"FLOATING POINT -- OFDV"
.DCODE
"DBL FL-R,
.UCODE

DAC,

J/DFDV

[BRX] [ARX]

;COPY OPERAND (COULD SAVE TIME
, WITH SEPERATE A-READ FOR DFDV)
[Tl] 0, CALL [CLRSN]
:CLEAR FLAG
[BR]-[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
[Tl] .NOT. [Tl]
;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
[AR] +SIGN*.5, 3T, J/DFDV3
;POSITIVE
[Tl]-.NOT.[Tl]
;NEGATIVE OR ZERO
[AR]--SIGN*.5, 3T
;SIGN SMEAR
o -[ARX]
;NEGATE OPERAND
[AR] (-[AR]-.25)*.5 LONG, :NEGATE HIGH WORD
MULTI PREC/l,
;USE SAVED CARRY
ASHC, J/DFDV4
;CONTINUE BELOW
Q [ARX],
;COPY OPERAND
CALL [DDIVS]
;SHIFT OVER
[AR]-[BR], 3T, SKIP DPO ;SEE IF OVERFLOW
FL NO DIVIDE
;START DIVISION
[ARX] 0
Q 0, SC 26., CALL [DBLDIV]
[TO] O,-SC 35.
Q Q.AND.NOT.[MAG],
;SEE IF ODD
SKIP AD.EQ.O,
;SKIP IF EVEN
CALL [DBLDIV]
;GO DIVIDE
Q_0*.5
;MOVE ANSWER OVER
[TO] [TO]*2 LONG, ASHC, ;DO FIRST NORM STEP
MUL 5ISP
; SEE IF A 1 FELL OUT

= 1011
DFDV4A: READ [Tl], SKIP DPO,
;SHOULD RESULT BE NEGATIVE
FE S#-FE, S#/202,
;CORRECT EXPONENT
J/5FDV4B
;LOOK BELOW
0_0+.25, J/DFDV4A
;PUT BACK THE BIT
=0
DFDV4B: [AR] [TO], NORM DISP, J/DNORM ;PLUS
[AR]-[TO], NORM DISP, J/DNNORM ;MINUS

T10KI .MCR[ 10,1141]
FLT .MIC[ 10,1141]

11;45 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

U 0520, 0520,3444,0303,4174,4043,4701.1000,0041,1777
U 0521, 2026,4553,1300,4374,4007,0321,0000,0000,2000
U 0522, 0322,3333,0003,4174.4003,4701,0010,0000,0000
U 0523, 2026,4553,1300,4374,4007,0321,0000,0000,2000
U 0524, 0322,3446,0303.4174,4047,0700,1010,0041,0001
U 0525, 2026,4553,1300,4374,4007,0321,0000,0000,2000
U 0526, 0322,3446,0303,4174,4047,0700,1010,0041,0001
U 0527, 2026,4553,1300,4374,4007,0321,0000,0000,2000
U 0530, 3154,4002,0000.4174,0007,0700,0000,0000,0000
U 0536. 3153,4221,0013,4174,4007,0700,0000,0000,0000
U 3153, 1515,4113,0400,1174,4007,0700,0400,0000,'1441
U 3154, 2024,3223,0000,4174,4007,0621,0000,0000,0000
U 2024, 0520,3444,0303,4174,4043,4701,1000,0041,1777
U 2025, 1515,3440.0303,1174,4007,0700,0400,0000,1441

5734
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

KS10 MICROCODE V124, 27-JUL-84 Page 156
FLOATING POINT -- DOUBLE PRECISION NORMALIZE
.TOC

"FLOATING POINT -- DOUBLE PRECISION NORMALIZE"

; NORMALIZE AR! Q
;DNORMO;
READ [AR], NORM DISP,
;SEE WHAT WE NEED TO DO
FE_FE+S#, S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS
=0000
[AR] [AR]*2 LONG,
DNORM:
;SHIFT LEFT
FE FE-1, ASHe,
;ADJUST EXPONENT
NORM DISP, J/DNORM
;TRY AGAIN
TL [FLG]. FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE
READ [AR], NORM DISP,;SEE IF WE WENT TOO FAR
CALL [DROUND]
; AND ROUND ANSWER
TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE
[AR] [AR]*.5 LON~, 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-[FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE
Q [MAG].AND.Q,
;HIGH WORD IS ZERO
HOLD RIGHT, J/DNORM1
;GO TEST LOW WORD
[FLG]_O
;[122] CLEAR FLAG WORD
= 1110
AC[ 1] [ARX] .AND. [MAG],
J/STAC
DNORM1: READ Q, SKIP AD.EO.O
=0
[AR] [AR]*2 LONG,
FE FE-l, ASHC,
NORM DISP, J/DNORM
AC[ 1] [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

T10KI.MCR[10,1141]
FLT.MIC[10,1141]

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

U 2026, 3155,7222,0000,4174,4007,0700,0000,0000,0000
U 2027, 2030,2222,0000,4174,4007,0511,4000,0000,0000
U 3155, 2030,4221,0013,4174,4007,0700,0000,0000,0000
U 2030, 0200,7441,0303,4174,4003,4701,0000,0000,0000
U 2031, 0200,2441,0303,4174,4003,4701,4000,0000,0000

U 0200, 0200,3444,0303,4174,4043,4701,1000,0041,1777
U 0202, 0322,3333,0003,4174,4003,4701,0010,0000,0000
U 0204, 0322,3446,0303,4174,4047,0700,1010,0041,0001
U 0206, 0322,3446,0303,4174,4047,0700,1010,0041,0001
U 0210, 3160,4002,0000,4174,0007,0700,0000,0000,0000
U 0216, 0630,4111,1204,4174,4007,0700,0000,0000,0000
U 0630, 3161,4111,0004,4174,4007,0700,0010,0000,0000
U 0632, 3156,6111,0004,4174,4007,0700,0000,0000,0000
U 0633, 2032,2441,0404,4174,4007,0561,4000,0000,0000
U 3156, 2032,4221,0013,4174,4007,0700,0000,0000,0000
U 2032, 3157,7333,0003,0174,4007,0700,0400,0000,0000
U 2033, 3157,2443,0300,0174,4907,0701,4400,0000,0000
U 3157, 0100,4113,0400,1174,4156,4700,0400,0000,1441
U 3160, 2034,3223,0000,4174,4007,0621,0000,0000,0000
U 2034, 0200,3444,0303,4174,4043,4701,1000,0041,1777
U 2035, 1515,3440,0303,1174,4007,0700,0400,0000,1441

5767
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
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811

KS10 MICROCODE V124, 27-JUL-84 Page 157
FLOATING POINT -- DOUBLE PRECISION NORMALIZE
;HERE TO NORMALIZE NEGATIVE D.P. RESULTS
=0
DNEG:
Q .NOT.Q, J/DNEGl
;ONES COMP
Q--Q, SKIP CRY2, J/DNEG2
DNEG1 : [FLGLO
=0
DNEG2:
fAR] .NOT. fAR],
;NO CARRY
NORM-OISP, 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]
Q TMAG]. AND. Q,
=100*
HOLD RIGHT, J/DNNRMl
[ARX] [ARX}.AND.[MASK]
=111 *
=00
= 10

= 11

DNN1:
=0
DNN2:

;SHIFT 1 PLACE
;ADJUST EXPONENT
; LOOP TILL DONE
;SEE IF WE WENT TOO FAR
AND ROUND ANSWER

;HIGH WORD IS ZERO
;GO TEST LOW WORD
;REMOVE ROUNDING BIT

[ARX] [ARX]. AND. [MAG},
CALL TCHKSN]
[ARX] [ARX].XOR.[MAG],
J/DNN1
[ARX] -[ARX}, 3T,
SKIP CRY1, J/DNN2

;ALSO CLEAR SIGN
;ONES COMP?
;YES--ONES COMP
; CONTINUE BELOW
;NEGATE RESULT

[FLG]_O

;CLEAR FLAG

AC .NOT.[AR], J/DNORM2
AC--[AR], 3T
DNORM2: ACT1] [ARX].AND.[MAG),
NEXT !NST
DNNRM1: READ Q, SKIP AD.EQ.O
=0
fAR] [AR]*2 LONG,
FE FE-1, ASHC,
NORM DISP, J/DNNORM
AC[1} [AR}, J/STAC

;STORE LOW WORD
;ALL DONE
TEST LOW WORD
LOW WORD IS NON-ZERO
ADJUST EXPONENT
KEEP LOOKING
WHOLE ANSWER IS ZERO

T10KI.MCR[10,1141J
FLT.MIC[10,1141J

11:45 11-AUG-1984
01:4620-MAR-1981

MICRO 31(254)

U 3161, 0002,4553,1300,4374,4004,1321,0000,0000,2000

U 2036, 0023,3551,1313,4374,0004,1700,0000.0000,2000
U 2037, 0023,5551,1313,4374,0004,1700,0000,0000,2000

U 0322, 0462,0007,0704,4174,4007,0511,0000,0000,0000'
U 0326, 0322,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,0303,4174,4007,0700,1000,0041,0001

5812
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

KS10 MICROCODE V124, 27-JUL-84 Page 158
FLOATING POINT
DOUBLE PRECISION NORMALIZE
CHKSN:

TL [FLGJ, FLG. SN/1, RETURN [2J

;SUBROUTINE TO SET/CLEAR FLG.SN
;CALL WITH:
;
CALL [SETSN], SKIP IF WE SHOULD CLEAR
;RETURNS 23
=0
SETSN:
[FLG] [FLGJ.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: [ARX] (Q+1)*.5,
SKIP CRY2,
J/DRND1
[AR] [AR]*.5 LONG,
FE FE+1, ASHC, J/DROUND
=*010
DRND 1:
[AR] EXP, RETURN [16J
[AR]-[AR]+.25,
=011

= 110

NORM DISP,
J/DRND1
[AR] [AR]*.5,
FE FE+1,
J/ORND1

;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 0 BITS)
;SEE IF OVERFLOW

;SHIFT RIGHT
;KEEP EXP RIGHT
;ALL SET NOW

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

~

az
.
0

:Ii

l!!

~

~

ii

=

.'l

ii

i

iii

e

l

5

~
~

I
5

i11

.t

0
.0
0
0
0
0
0

0001,
0002,
0003,
0004,
0005,
0006,
0007,

0001 , 1740 , 2 100
0002,1740,2100
0003,1740,2100
0002 , 1741 , 2100
0005,1740,2100
0006,1740,2100
0007,1740,2100

0
0
0
0

0010,
0011,
0012,
0013,

0001,1742,2100
0004,1742,2100
0001,1743,2100
0000,1743.2100

0
0
0
0

0014,
0015.
0016,
0017.

0001,1744.2100
0000,1744,2100
0002,1744.2100
0003,1744.2100

0
0
0
0
0
0
0
0

0020,
0021,
0022,
0023,
0024,
0025,
0026,
0027.

0000,1746,2100
0000.1747.2100
0000.1750.2100
0000,1751.2100
0001, 1751 .2100
0002.1751.2100
0004.1751.2100
0010,1751.2100

11: 45 11-AUG-1984

MICRO 31(254)

11: 35 26-JULY-1984
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
586.5
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877

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 •.

.r ,
I.
020:

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/1,
B/4,
B/1,
B/O.

J/L-DBIN
J/L-DBIN
J/L-BDEC
J/L-BDEC

B/1.
B/O.
B/2,
B/3.

J/L-MVS
J/L-MVS
J/L-MVS
J/L-MVS

;MOVSO
;MOVST
;MOVSLJ
;MOVSRJ

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

;XBLT
;GSNGL
;GDBLE
;GDFIX
;GFIX
;GDFIXR
;GFIXR
;DGFLTR
;GFLTR
;GFSC

I.
I.

I.
I.
I,

I.
I.
I,
;30:
.UCODE

Page 159

B/O.
B/1.
B/2.
B/4.
B/10.

J/L-SP~RE-C

CVTDBO
CVTDBT
CVTBDO
CVTBDT

T10KI.MCR[iO,1141]
, EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

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

5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899

KS10 MICROCODE V124, 27-JUL-84
EXTEND -- DISPATCH ROM ENTRIES

Page 160

1740:
L-CMS:
LUUO
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.

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31( 254)

o 0123, 0000,1467,3100

U 1467, 2040,3771,0005,4365,5007,0700,0200,0000,0002
U 2040, 3556,4553,0500,4374,4007,0321,0010,0076,0740
U 2044, 3162,4521,0206,4374,4007,0700,0000,0000,0740
U 3162, 3163,3111,0605,4174,0417,0700,0000,0000,0000
U 3163, 3164,3333,0005,4174,4217,0700,0000,0000,0500
U 3164, 3165,3333,0003,7174,4007,0700,0400,0000,0240
U 3165, 0170,4443,0000,2174,4006,6700,0000,0000,0000
U 0170, 017.2,0551,0505,2270,4007,0700,0000,0000,0000
U 0172, 0556,5741,0505,4174,4003,7700,0200,0000,0010
U 0174, 3166,0551,0505,2270,4007,0700,0200,0004,0512
U 0176, 3166,3443,0500,4174,4007,0700,0200,0004,0512
U 3166, 3165,3771,0005,4361,5217,0700,0200,0000,0502

U 0556, 3400,3333,0005,7174,4001,2700,0400,0000,0241
U 0557, 2042,3333,0005,4174,4007,0530,0000,0000,0000
U 2042, 3400,3333,0005,7174,4001,2700,0400,0000,.0241
U 2043, 0556,3771,0005,4374,0007,0700,0000,0077,7777

I~~

\.

/

KS10 MICROCODE V124, 27-JUL-84 Page 161
EXTEND -- INSTRUCTION SET DECODING

5900
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
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941

.TOC

"EXTEND -- INSTRUCTION SET DECOOING"

;EACH INSTRUCTION IN THE RANGE 1-23 GOES TO 1 OF 2 PLACES
; 1740-1747 IF NOT UNDER EXTEND
; 3740-3747 IF UNOER EXTEND
123:

.DCODE
I,READ/1,
.UCODE·

J/EXTEND

1467:
EXTEND: MEM READ, [BR] MEM
;FETCH INSTRUCTION
TL [BR], #/760740,
;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
#/000740
; 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 E1
EXTEAO:
EXTEA 1:
=100*
EXTEA:
EXTDSP:

WORK[EO] [AR]
EA MODE DISP
[BR] [BR]+XR
[BR]-EA FROM [BR], LOAD VMA,
B DISP, J/EXTEXT
[BR] [BR]+XR, START READ, PXCT EXTEND EA, LOAD VMA, J/EXTIND
VMA_[BR], START READ, PXCT EXTEND EA

EXTIND: MEM READ,

[BR]_MEM, HOLD LEFT, LOAD BYTE EA, J/EXTEA1

;HERE TO EXTEND SIGN FOR OFFSET MODES
= 1110
EXTEXT: WORK[E1] [BR],
DISP/DROM, J/34oo
READ [BR], SKIP DP18
=0
WORK[E1] [BR],
DISP/DROM, J/3400
[BR] #, #/777777, HOLD RIGHT,
J/EXTEXT

/

"

;SAVE E1
;GO TO EXTENDED EXECUTE CODE
;NEED TO EXTEND SIGN
;POSITIVE
; NEGATIVE

(

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3744, 3361,0111,0703,4174,4007,0700,0210,0004,0012
U 3754, 2041,3771,0005,1276,6007,0701,0000,0000,1443
U 2041, 3556,4553,0500,4374,4007,0321,0010,0077,7000
U 2045, 2046,3771,0003,0276,6007,0700,0000,0000,0000
U 2046, 3363,4521,0306,4374,4007,0700,0010,0077,7000
U 2047, 2050,2113,0305,1174,4007,0521,4400,0000,1443
U 2050, 3167,7441,'0503,4174,4007,0700,0000,0000,0000
U 2051, 3167,7441,0303,4174,4007,0700,0000,0000,0000
U 3167, 0574,3333,0003,7174,4003,7700,0400,0000,0242
U 0574, 0500,3771,0013,4370,4007,0700,0000,0000,0003
U 0575, 3170,3771,0005,1276,6007,0701,0000,0000,1444
U 0576, 3210,3441,0304,4174,4007,0700,0000,0000,0000
U 0577, 0650,3771,0004,1276,6007,0522,0000,0000,1443
U 3170, 3171,3333,0005,4174,4007,0700,1000,0041,6020
U 3171, 2021,4222,0000,4174,4006,7701,1000,0041,1770
U 2021, 2021,4224,0003,4174,4026,7701,1000,0041,1770
U 2023, 3172,7221,0003,4174,4007,0700,0000,0000,0000
U 3172, 0507,4113,0312,7174,4007,0700,0400,0000,0243

5942
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
59i1

5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986

KS10 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,
; GO FETCH FI LL
MVS:
LOAD-VMA,
; BYTE
START READ,
;SUBROUTINE TO COMPLETE
CALL [GTFILL]
;GET DEST LENGTH AND FLAGS
3754:
[BR] AC[DLEN]
TL [BR], #/777000,
;ANY FLAGS SET?
=0**
;SEE IF ILLEGAL
CALL [BITCHK]
;GET SRC LENGTH AND FLAGS
[AR] AC
[BRX] [AR].AND.# CLR RH, ;COPY FLAGS TO BRX
=0
#/777000,
;CLEAR FLAGS IN AR
CALL [CLRFLG]
;NEW DLEN IS -
AC[DLEN] [AR] - [BR], 3T, ;COMPUTE DIFFERENCE
SKIP DPO;WHICH IS SHORTER?
[AR] .NOT.[BR],
;DESTINATION
=0
;GET NEGATIVE LENGTH
J/MVS1
[AR] .NOT. [AR]
;SOURCE
WORK[SLEN] [AR],
MVS1 :
;SEE WHAT TYPE OF MOVE
B DISP
;SLEN NOW HAS --1
= 1100
;TRANSLATE--ALL SET
STATE [SRC], J/MOVELP
;OFFSET BUILD MASK
[BR] AC[DSTP], J/MVSO
; LEFT JUSTIFY
[ARX] [AR],
J/MOVSTO
[ARX] AC[DLEN],
; RIGHT JUSTI FY
SKIP 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
WORK[MSK] [AR].AND.[MASK], ;SAVE FOR SRCMOD
J/MOVLPO
;GO ENTER LOOP

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 0500,

1040,0551,0703,7274,4007,0701,0010,0000,0242

U 0501,

1000,3441,0304,4174,4007,0520,0000,0000,0000

U 0504, 3173,1771,0003,7274,4007,0701,4000,0000,0242
U 0505, 3353,3771,0013,4370,4007,0700,0010,0000,0005
U 0507, 0500,3771,0013,4370,4007,0700,0000,0000,0003

U 3173, 2052,3771,0005,1276,6007,0522,0000,0000,1443
U 2052, 3174,3440,0303,1174,4007,0700,0400,0000,1443
U 2053, 2052, 111.1 ,0503,4174,4007,0700,4000,0000,0000

U 3174, 3175,7771,0003,7274,4007,0701,0000,0000.0242
U 3175, 2054,3333.0005,4174,4007,0520,0000.0000,0000
U 2054. 2055,0111,0503,4174,4007,0700,0000,0000,0000
U 2055, 3176,3111,0603,4174,4007,0700,0000,0000,0000
U 3176, 1515,4221,0013,4170,4007,0700,0000,0000,0000

.

J

:[

MICROCODE V124, 27-JUL-84 Page 163
EXTEND -- MOVE STRING -- OFFSET/TRANSLATE

~S10

5987 .TOC
"EXTEND -- MOVE STRING -- OFFSET/TRANSLATE"
5988
5989 . ;HERE IS THE LOOP FOR OFFSET AND TRANSLATED MOVES
5990 =000
5991 MOVELP: [AR] WORK[SLEN]+1,
;UPDATE STRING LENGTH
CALL-[SRCMOD]
5992
;GET A SOURCE BYTE
[ARX] [ARJ, SKIP DPO,
;(1) LENGTH EXHAUSTED
5993 =001
5994
J/MOVST2
;
SEE IF FILL IS NEEDED
[AR] -WDRK[SLEN],
; (4) ABORT
5995 =100
5996
J/MVABT
, ..
STATE [SRC+DST],
;(5) NORMAL--STORE DST BYTE
5997
CALL [PUTDST]
5998
5999 = 111
; (7) DPB DONE
6000 MOVLPO: STATE [SRC], J/MOVELP
6001
6002
6003 ;HERE TO ABORT A STRING MOVE DUE TO TRANSLATE OR OFFSET FAILURE
6004
[BRJ AC[DLEN],
;WHICH STRING IS LONGER
6005 MVABT:
SKIP-DPO. 4T
6006
6007 =0
6008 MVABT1: AC[DLEN] [AR], J/MVABT2 ;PUT AWAY DEST LEN
6009
[ARJ [AR]-[BR),
;DEST LEN WAS GREATER
J/MVABT1
;STICK BACK IN AC
6010
6011
6012 MVABT2: [AR] .NOT.WORK[SLEN]
;GET UNDECREMENTED SLEN
READ-[BR], SKIP DPO
6013
;NEED TO FIXUP SRC?
6014 =0
[AR] [ARJ+[BRJ
;SRC LONGER BY (DLEN)
[AR]-[AR].OR.[BRX]
6015 MVEND:
;PUT BACK SRC FLAGS
END STATE, J/STAC
;ALL DONE
6016
6017

Tl0KI.MCR[10,l141]
EXTEND.MIC[10,l141]

11:45 l1-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 0650, 3177,3771,0003,1276,6007,0701,0000,0000,1441
U 0651, 2245,3771,0013,4370,4007,0700,0010,0000,0006
U 0653, 3211,0551,0704,7274,4007,0701,0000,0000,02"42
U 3177, 2056,3440,0303,1174,4007,0670,0400,0000,1441
U 2056, 3202,3333,0003,7174,4007,0700,0400,0000,0211
rrupt.
U 2057, 2060,1111,0704,4174,4007,0521,4000,0000,0000
U 2060, 0750,3770,0305,4334,4016,7371;0000,0033,6000
U 2061, 0546,4223,0000,1174,4007,0700,0400,0000,1443
U 0750, 3177,3441,0503,4174,4007,0700,0000,0000,0000
U 0751, 3200,7771,0003,7274,4007,0701,0000,0000,0242
U 0752, 3201,3770,0503,4334,4017,0700,0000,0032,6000
U 0753, 3200,7771,0003,7274,4007,0701,0000,0000,0242
U 3200, 2062,3440,0303,1174,4007,0700,0400,0000,1443
U 2062, 3566,0111,0403,4174,4007,0700,0010,0000,0000
U 2063, 3622,3113,0306,0174,4007,0700,0400,0000,0000
U 3201, 3177,0111,0703,4170,4007,0700,0000,0000,0000
U
U
U
U
U
U
U

3202,
3203,
3204,
2064,
2066,
3205,
3206,

3203,3333,0005,7174,4007,0700,0400,0000,0213
3204,3333,0004,7174,4007,0700,0400,0000,0212
2064,3333,0006,7174,4007,0700,0400,0000,0214
3460,4443,0000,4174,4007,0700,0010,0000,0000
3205,3771,0003,7274,4007,0701,0000,0000,0211
3206,3771,0005,7274,4007,0701,0000,0000,0213
3207,3771,0004,7274,4007,0701,0000,0000,0212

U 3207, 3177,3771,0006,7274,4007,0701,0000,0000,0214

6018
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

KS10 MICROCODE V124, 27-JUL-B4 Page 164
EXTEND -- MOVE STRING -- MOV$RJ
.TOC
=00
MOVRJ:
=11

"EXTEND -- MOVE STRING
[AR] AC[SRCP], J/MVSKP
STATE [DSTF],
CALL [MOVFIL]
[ARX] WORK[SLEN]+1,
J/MOVSTI

MOVSRJ"
;SRC LONGER, SKIP OVER
;DST LONGER, FILL IT

~OME

; DONE F I LUNG
;GO MOVE STRING

;HERE TO SKIP OVER EXTRA SOURCE BYTES
MVSKP: AC[SRCP] [AR], SKIP -1MS ;[121] Is there a timer interrupt?
=0
WORK[SV.AR]_[AR], J/MVSK2 ;[121][123] Yes, save regs for int

=0

[ ARX ] [ ARX ] - 1, 3T,
SKIP OPO
IBP DP, IBP SCAD,
SCAD DISP, SKIP IRPT,
3T, J/MVSKP1
AC[OLEN] 0,
J/MOVST4-

=00
MVSKP 1: [AR] [BR], J/MVSKP
[AR]-.NOT.WORK[SLEN],
J/MVSK3
SET P TO 36-S,
J/MVSKP2
[AR] .NOT.WORK[SLEN]
MVSK3: AC[D[EN] [AR]
=0
[AR] [ART+[ARX],
CALL-[INCAR]
AC [AR].OR.[BRXJ,
J/fTRAP

;DONE SKIPPING?
;NO--START THE IBP
;4-WAY DISPATCH
;GO BUMP POINTER
;LENGTHS ARE NOW EQUAL
;GO MOVE STRING
;NO OVERFLOW
; INTERRUPT
;WORD OVERFLOW
;FIXUP Y
;[121] INTERRUPT or timer.
;RESET DLEN
;ADD 1 TO AR
;PUT BACK FLAGS
;00 INTERRUPT TRAP

MVSKP2: [AR] [AR]+1, HOLD LEFT, ;BUMP Y
J/MVSKP
;KEEP GOING
MVSK2:
=0*

WORK[SV.BR] [BR]
WORK[SV.ARXT [ARX]
WORK[SV.BRX]-[BRX]
CALL [TICK]
[AR] WORK[SV.AR]
[BR]-WORK[SV.BR]
[ARXT WORK[SV.ARX]
[BRX]-WORK[SV.BRX],
J/MVSKP

;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 [123]

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141j

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3210, 3211,0111,0704,4174,4007,0700,0000,0000,0000
U 3211, 0540,3771,0013,4370,4007,0700,0000,0000.0003
U 0540, 2256,3333,0004,7174.4007,0520.0410,0000,0242
U 0541. 1000,3441,0304,4174,4007,0520,0000,0000,0000
U 0542, 3353,3771,0013,4370,4007,0700,0010,0000,0005
U 0546, 3211,0551.0704,7274,4007,0701,0000,0000.0242
U 1000, 3212,4223,0000,1174,4007.0700.0400.0000.1443
U 1001, 2245,3771,0013.4370;4007,0700.0010,0000,0004
U 1003, 2125,3440,0606.0174.4007,0700.0400,0000,0000
U 3212, 3213.3113,0406.0174,4007,0700,0400,0000,0000
U 3213, 0252,4221,0013,4170,4007,0700,0000.0000,0000

6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089

KS10 MICROCODE V124. 27-JUL-84 Page 165
EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP
.TOC

"EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP"

;HERE FOR NO-MODIFICATION STRING MOVES
MOVSTO: [ARX] [ARX]+1
;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: [ARXj [AR],
;SHORT STRING RAN OUT
SKIP DPO, J/MOVST2
;GO SEE IF FILL NEEDED
;WILL NEED TO BACK UP BOTH POINTERS
=010
STATE [SRC+DST],
CALL TpUTDST]
;STORE BYTE
= 110
MOVST4: [ARX] WORK[SLEN]+1,
;COUNT DOWN LENGTH
;LOOP OVER STRING
J/MOVST1
=00
MOVST2: AC[DLEN] 0, J/MOVST3
;CLEAR DEST LEN, REBUILD SRC
STATE [DST]. CALL [MOVFIL] ;FILL OUT DEST
=11
AC_[BRX], J/ENDSKP
;ALLDONE
MOVST3: AC [ARX].OR.[BRX)
END STATE, J/SKIPE

;REBUILD SRC

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

U
U
U
U
U
U
U

3740,
2070,
2074,
2071,
2075,
2072,
2073,

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

2070,3771,0004,1276,6007,0701,0000,0000,1443
3556,4553,0400,4374.4007,0321,0010,0077,7000
2071,3771,0006,0276,6007,0700,0000,0000,0000
3556,4553,0600,4374,4007,0321,0010,0077,7000
2072,2113,0604,4174,4007,0521,4000,0000,0000
2073,0111,0703,4174,4007,0700,0000,0000,0000
2076,0111,0703,4170,4007,0700,0200,0004,0012

U 2076, 3564,4221,0003,4174,4007,0700,0010,0000,0000
U 2077 , 3223,3223,0000,7174,4007,0700,0400,0000,0244

6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105

KS10 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]
[BRX] AC
; GET SRC LEN
TL [BRX] , #/777000, CALL [BITCHK]
[BRX]-[ARX], 3T, SKIP DPO ;WHICH STRING IS LONGER?
[AR] [AR]+1
;SRC STRING IS LONGER
VMA TAR]+1, START READ ;DST STRING
[ART 0,
;FORCE FIRST COMPARE TO BE
;EQUAL
CALL [LOADQ]
;PUT FILL INTO Q
WORK[FILL] Q,
;SAVE FILLER
J/CMS2
; ENTER LOOP

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 2100, 0250,4221,0013,4170,4003,7700,0000,0000,0000
U 2101, 3214,3771,0003,1276,6007,0701,0000,0000,1441
U 3214, 1004,3333,0006,4174,4007,0520,0000,0000,0000
U 1004, 2257,3771,0013,4370,4007,0700,0010,0000,0011
U 1005, 2102,3333,.0004,4174,4007,0520,0000,0000,0000
U 1006, 3215,3333,0003,7174,4007,0700,0400,0000,0245
U 3215, 3216,3440,0606,0174,4007,0700,0400,0000,0000
U 3216, 3217,3771,0013,4370,4007,0700,0000,0000,0010
U 3217, 1020,3333,0004,4174,4007,0520,0000,0000,0000
U 1020, 2104,4443,0000,4174,4007,0700,0010,0000,0000
U 1021, 3220,3771,0003,7274,4007,0701,0000,0000,0244
U 1022, 3220,3440,0404,1174,4007,0700,0400,0000,1443
U
U
U
U
U
U

3220,
3221,
3222,
3223,
3224,
3225,

3221,4111,1203,7174,4007,0700,0000,0000,0245
3222,4551,1205,7274,4007,0700,0000,0000,0245
3223,2111,0503,4174,4007,0700,4000,0000,0000
3224,1111,0704,4174,4007,0700,4000,0000,0000
3225,1111,0706,4174,4007,0700,4000,0000,0000
2100,3333,0003,4174,4007,0621,0000,0000,0000

U 2102,
U 2103,
U 3226,
U 3227,

3226,3772,0000,7274,4007,0701,0000,0000,0244
2100,4221,0003,4174,4007,0700,0000,0000,0000
3227,3771,0013,4370,4007,0700,0000,0000,0012
1020,3223,0000,7174,4007,0700,0400,0000,0245

U 2104, 3354,3771,0003,1276,6007,0701,0010,0000,1444
U 2105, 0340,3333,0003,4174,4006,5701,1000,0051,0770

I

6106
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

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:
CMS4:
=00

=00
CMS6:

CMS7:

CMS2:

;BYTES ARE NOT EQUAL
;NO MORE SPECIAL PAGE FAIL ACTION
;SEE SKIP-CaMP-TABLE
;GET BYTE POINTER
;MORE IN SOURCE STRING?
;PREPARE FOR PAGE FAIL
, GO GET BYTE
;NO MORE SRC--SEE IF MORE DEST

END STATE,
SKIP-CaMP DISP
[AR] AC[SRCP]
READ-[BRX], SKIP DPO
STATE [EDIT-SRC],
CALL TGETSRC]
READ [ARX], SKIP DPO,
J/CMS5
WORK [CMS] [AR]

;SAVE SRC BYTE

AC [BRX]
STATE [COMP-DST]
READ TARX] , SKIP DPO

;PUT BACK SRC LEN
;HAVE TO BACK UP IF DST FAILS
;ANY MORE DEST?

CALL [CMPDST]
[AR] WORK[FILL],
J/CMS7
AC[DLEN] [ARX]

;MORE DEST BYTES
;OUT OF DEST BYTES
;GO DO COMPARE
;GOT A BYTE, UPDATE LENGTH

[AR] [AR].AND.[MASK],
;MAKE MAGNITUDES
WORKTCMS]
:WARM UP RAM
[BR] [MASK].AND.WORK[CMS], 2T ;GET SRC MAGNITUDE
[AR]-[BR]-[AR] REV
;UNSIGNED COMPARE
[ARXT [ARX]-1
;UPDATE LENGTHS
[BRX]-[BRX]-1
; ..
READ TAR], SKIP AD.EQ.O, J/CMS3 ;SEE IF EQUAL

=0

CMS5:
CMS8:

Q WORK[FILL], J/CMS8
[AR] 0, J/CMS3
STATE [EDIT-DST]
WORK[CMS]_Q, J/CMS6

=0
CMPDST: [AR] AC[DSTP],
CALL-[IDST]
READ [AR],
FE FE.AND.S#, S#/0770,
BYTE DISP, J/LDBl

;MORE DST--GET SRC FILL
;STRINGS ARE EQUAL
;JUST DST POINTER ON PAGE FAIL
;MORE DST--SAVE SRC FILL
;GET DEST PDINTER
;UPDATE IT
;LOOK AT BYTE POINTER
; MASK OUT BIT 6
;GO LOAD BYTE

T10KI.MCR[10,1141)
EXTEND.MIC[10,1141)

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3742, 3230,4571,1203,4374,4007,0700,0000,0077,7777
U 3230, 3231,3333,0003,7174,4007,0700,0400,0000,0243
U 3231, 3232,3771,0003,0276,6007,0700,0000,0000,0000
U 3232, 2065,4521,0306,4374,4007,0700,0000,0077,7000
U 2065, 2202,3771,0004,1276,6007,0701,0010,0000,1444
U 2067, 2106,3440,0404,1174,4007,0700,0400,0000,1444
U 2106, 2132,3333,0006,4174,4007,0520,0010,0000,0000
U 2107, 0616,4551,0303,4374,0003,7700,0000,0000,0777
U 0616, 3233,3771,0013,4370,4007,0700,0000,0000,0007
U 0617, 0616,3551,0606,4374,0007,0700,0000,0040,0000
U 3233, 0460,7333,0003,7174,4007,0700,0400,0000,0242

U 0460, 1040,0551,0703,7274,4007,0701,0010,0000,0242
U 0461, 2120,4553,0600,4374,4007,0321,0000,0010,0000
U 0464, 3240,7771,0003,7274,4007,0701,0000,0000,0242
U 0465, 2110.1553,0300,4374,4007,0532,4000,0000,0012
U 2110. 3240.7771,0003,7274,4007,0701,0000,0000,0242

6151
6152
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

KS10 MICROCODE V124, 27-JUL-84 Page 168
EXTEND -- DECIMAL TO BINARY CONVERSION
.TOC
3742:
DBIN:

=0*
=0

= 1110
DBIN1:

DBlN2:

"EXTEND -- DECIMAL TO BINARY CONVERSION"
;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 WORD
;CLEAR BIT 0 OF ARX
CALL TCLARXO]
;STORE BACK
AC[BIN1] [ARX]
READ [BRX], SKIP DPO,
;IS S ALREADY SET?
;GO CLEAR BIN IF NOT
CALL [CLRBIN]
;CLEAR FLAGS FROM LENGTH
[AR] [AR].AND.#,
#/000777, HOLD RIGHT,
;SEE IF OFFSET OR TRANSLATE
B DISP
[AR] [777777] XWD 0
WORKTMSK] [AR]

STATE [CVTDB), J/DBIN2
[BRX]-[BRX].OR.#,
#/400000, HOLD RIGHT.
J/DBIN1
WORK[SLEN] .NOT.[AR]

;HERE IS THE MAIN LOOP
=0*0
DBINLP: [AR] WORK(SLEN]+1, CALL
TL [BRX], #/100000,
J/DBXIT
[AR] .NOT.WORK[SLEN].
J/DBABT
[AR]-#. #/10.,
4T, SKIP DP18
=0
[AR] .NOT.WORK[SLEN].
J/DBABT

;TRANSLATE--LEAVE SALONE
;OFFSET--FORCE S TO 1
;STORE -SLEN-1

[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

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 2111, 1030,3771,0005,1276,6007,0622,0000,0000,1443
U 1030, 0560,3771,0004,1276,6007,0701,0010,0000,1444
U 1031, 3234,3771,0005,1276,6007,0701,0000,0000,1444
U 1032, 0460,4443,0000,4174,4007,0700,0000,0000,0000
U
U
U
U

3234,
2112,
2113,
3235,

2112,4553,0500,4374,4007,0321,0000,0076,0000
1030,4443,0000,4174,4007,0700,0000,0000,0000
3235,3775,0005,1276,6007,0701,0000,0000,1444
2114,3445,0505,1174,4007,0700,0000,0000,1444

U 2114, 3567,0551,0505,1274,4007,0700,0010,0000,1444
U 2115, 0460,0113,0305,1174,4007,0701,0400,0000,1444

6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
619'8
:. 6199
6200
6201
6202
6203
6204
.6205
6206

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 [DBSLOW]
[BR] AC[BIN1],
u/DBFAST
u/DBINLP
DBFAST: TL [BR), #/760000
=0
u/DBSLO
[BR] AC[BIN1 ]*2
[BR]-[BR]*2, AC[BIN1]
=0
[BR]-[BR1+AC[BIN1], 2T,
CALL-[SBRL]
AC[BIN1] [AR]+[BR], 3T,
J/DBINLP-

:GET HIGH BINARY
:SEE IF 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

!

I
5

I
It

/

I

\.

~
Tl0KI .MCR[ 10,1141]
EXTEND.MIC[10,1141]

11: 45 ll-AUG-1984
11:35 26-JULY-1984

MICRO 31(254)

U 0560, 0620.3771,0005,1276,6007,0701,0010,0000,1443
U 0561, 2116,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, 2116,0111,0304,4174,4007,0561,0010,0000,0000
U 0605, 3236,3440,0404,1174,4007,0700,0400,0000,1444
U 3236, 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, 2116,0111,0404,4174,4007,0561,0010,0000,0000
U 0626, 0001,4443,0000,4174,4004,1700,0000,0000,0000

U 2116, 0004,4443,0000,4174,4004,1700,0000,0000,0000
U 2117, 3237,4551,0404,4374,0007,0700,0000,0037,7777
U 3237, 0004,0111,0705,4174,4004,1700,0000,0000,0000

6207
6208
6209
., 6210
6211
6212
6213
6214
6215
6216
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

KS10 MICROCODE V124, 27-JUL-84 Page 170
EXTEND -- DECIMAL TO BINARY CONVERSION
;HERE IF NUMBER DOES NOT FIT IN ONE WORD
=000
DBSLOW: [BR] AC[BINO],
CALL-[MULBY4]
[ARX] [ARX]+AC[BIN1],
SKIP CRY1, 4T,
CALL [ADDCRY]
=101
[BR] [BR]+AC[BINO]
=000

=101

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 [2]

;GO DO NEXT BYTE

;HERE TO DOUBLE BR!ARX
=000
MULBY4: CALL [DBLDBL]
DBLDBL: [BR] [BR]+[BR]

=110

;FETCH HIGH WORD
;MULTIPLY BY 4
;COMPUTE VALUE * 5
;SEE IF OVERFLOW
;GO ADD CARRY
;ADD IN HIGH WORD

[ARX] [ARX]+[ARX],
SKIP CRY1, 3T,
CALL [ADDCRY]
RETURN [1]

;HERE TO ADD THE CARRY
=0
ADDCRY: RETURN [4]
CLEAR [ARX]O
[BR] [BR]+l,
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

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:35 26-~ULY-1984

MICRO 31(254)

U 3240, 3241,3111.0306.4174,4007,0700,0000,0000,0000
U 3241, 2121,1111,0701,4170,4007,0700,4000,0000,0000

U 2120, 3244,3771,0004,1276,6007,0701,0000,0000,1444
U 2121, 3242,3771,0003,1276,6007,0701,0000,0000,1444
U
U
U
U

3242,
2122.
2123,
3243,

2122.3771,0005.1276,6007,0522,0000.0000,1443
3243,4551,0303,4374,0007,0700,0000,0037,7777
3243,3551.,0303,4374,0007,0700,0000,0040,0000
2124.3440,0303,1174.4007,0700.0400,0000.1444

U 2124, 2132,3770,0606,0174,4007,0520,0410.0000,0000
U 2125, 0372,4221,0013,4170.4007,0700,0000,0000,0000
U 3244, 3245,4551,0404,4374,0007,0700,0000.0037,7777
U 3245, 2126,2441.0404,1174,4007,0621,4000,0000,1443
U 2126, 2131,7771,0003,1274,4007,0700,0000,0000,1443
U 2127, 2130,1771.0003,1274,4007.0621,4000,0000,1443
U 2130, 2131,4571,1204,4374,4007,0700,0000,0040,0000
U 2131, 3246,3440,0303,1174.4007.0700.0400.0000.1443
U 3246, 2121,3440,0404.1174,4007.0700,0400,0000.1444

U 2132, 3247,4223,0000,1174,4007,0700,0400,0000,1443
U 2133, 0001,4443,0000,4174,4004.1700,0000,0000.0000
U 3247, 0001,4223,0000,1174,4004,1700.0400,0000,1444

(-

\

\

KS10 MICROCODE V124, 27-~UL-84 Page 171
EXTEND -- DECIMAL TO BINARY CONVERSION

6244 ;HERE TO ABORT CONVERSION
6245 DBABT: [BRX] [BRX].OR.[AR]
;PUT BACK UNUSED LENGTH
6246
[PC] [PC]-1, HOLD LEFT, ;00 NOT SKIP
6247
~/DBDONE
;GO FIX UP SIGN COPY
6248
6249 ;HERE AT END
6250 =0
6251 DBXIT:
[ARX) AC[BIN1],
;GET LOW WORD
6252
~/DBNEG
;GO NEGATE
6253 DBDONE: [AR] AC[BIN1]
;FETCH LOW WORD
6254
[BR)-AC[BINO], 4T.
;GET HIGH WORD
SKIP-DPO
;WHAT SIGN
6255
CLEAR [AR]O, ~/DBDN1
;POSITIVE
6256 =0
6257
[AR] [AR].OR.#, #/400000, HOLD RIGHT
6258 DBDN1: AC[BIN1] [AR]
;STORE AC BACK
AC [BRX)-TEST.
;RETURN FLAGS
6259 =0
6260
SKIP DPO, CALL [CLRBIN] ;CLEAR BIN IS S=O
6261 ENDSKP: END STATE, ~/SKIP
;NO--ALL DONE
6262
6263 DBNEG: CLEAR ARXO
;CLEAR EXTRA SIGN BIT
6264
;NEGATE AND SEE IF
[ARX] -[ARX], 3T,
6265
SKIP AD.EO.O, AC[BINO] ,ANY CARRY
[AR] .NOT.AC[BINO], 2T,- ~/STAC34 ;NO CARRY
6266 =0
[AR]--AC[BINO], 3T,
;CARRY
6267
6268
SKIP-AD.EO.O
;SEE IF ALL ZERO
[ARX] [400000] XWD 0
;MAKE COPY OF SIGN
6269 =0
6270
, UNLESS HIGH WORD IS ZERO
6271 STAC34: AC[BINO] [AR]
;PUT BACK ANSWER
6272
AC[BIN1] [ARX], ~/DBDONE
, ..
6273
6274 ;HELPER SUBROVTINE TO CLEAR AC[BINO] AND AC[BIN1] IF S=O
6275 ;CALL WITH:
READ [BRX), SKIP DPO, CALL [CLRBIN]
6276 ,
6277 ;RETURNS 1 ALWAYS
6278 =0
6279 CLRBIN: AC[BINO] 0, ~/CLRB1
RETURN [T]
6280
6281 CLRB1: AC[BIN1)_0, RETURN [1]
6282

~./
\

T10KI.MCR[10,1141]
EXTEND.MIC[10,l141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3743, 2134,3771,0006,1276,6007,0351,0000,0000,1443
U
U
U
U

2134,
2135,
3250,
3251,

3250,4551,0606,4374,4007,0700,0000,0077,7000
3266,3771,0003,0276,6007,0700,0000,0000,0000
3251,3771,0004,1276,6007,0701,0000,0000,1441
2140,3771,0003,0276,6007,0700,2000,0071,0024

U 2140, 2202,3333,0004,7174,4007,0700,0410,0000,0250
U 2142, 2136,3333,0003,7174,4007,0520,0400,0000,0247
U 2136, 2146,4221,0006,4170,4007,0700,0000,0000,0000
U 2137, 2141,3551,0606,4374,0007,0700,0000,0010,0000
U 2141, 2753,4551,0404,4374,0007,0700,0010,0037,7777
U 2143, 2144,3770,0303,0174,4007,0520,0400,0000,0000
U 2144, 2136,3440,0404,1174,4007,0700,0400,0000,1441
U 2145, 3252,0111,0704,4174,4007,0700,0000,0000,0000
U 3252, 2141,3551,0606,4374,0007,0700,0000,0004,0000
U 2146, 0441,3771,0003,0276,6007,0700,0000,0000,0000
U 2147, 2152,3551,0606,4374,0007,0700,0000,0020,0000
U 0441, 2172,3771,0004,1276,6007,0701,0010,0000,1441
U 0443, 2146,0111,0706,4174,4007,0630,2000,0060,0000
U 0447, 2150,4553,0600,4374,4007,0331,0000,0077,7777

U 2150, 2152,3551,0606,4374,0007,0700,0000,0020,0000
U 2151, 2152,0111,0706,4174,4007,0700,0000,0000,0000

6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
630,2
'. 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

KS10 MICROCODE V124, 27-JUL-84 Page 172
EXTEND -- BINARY TO DECIMAL CONVERSION
.TOC
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.#,
#/777000,
J/BDECO
[AR] AC, J/DOCVV1
[ARX] AC[ 1 ] '
[AR] AC, SC 20.
WORK[BDL] [ARX],
CALL [CLARXO]
WORK[BDH] [AR],
SKIP DPO
[BRX] 0, HOLD LEFT,
J/BDEC3
[BRX] [BRX]. OR . # ,
#/100000, HOLD RIGHT

;GET LENGTH AND FLAGS
;CONTINUE FROM INTERUPT?
;JUST KEEP THE FLAGS
;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
;POSITIVE, CLEAR RH OF BRX
;COMPUTE # OF DIGITS REQUIRED
;NEGATIVE, SET M

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/BDECl
; POSITIVE NOW
[ARX]-[ARX]+1
;JUST 1BO--ADD 1
[BRX]-[BRX].OR.#,
;AND REMEMBER THAT WE DID
; IN LEFT HALF OF AC+3
#/040000, HOLD RIGHT,
; NEGATE IT AGAIN
J/BDEC2
[AR] AC, J/BDEC4
[BRX] [BRX].DR.#,
#/200000,
HOLD RIGHT, J/BDEC5

; GET HIGH AC
;ND LARGER POWER OF 10 FITS
;SET N FLAG (CLEARLY NOT 0)
;SETUP TO FILL, ETC.

[ARX] AC[ 1],
CALL [BDSUB]
[BRX] [BRX]+l,
;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

Tl0KI.MCR[10,1141j
EXTEND.MIC[10,1141j

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 2152, 3363,3771,0003,1276,6007,0701,0010,0000,1443
U 2153, 3253,4221,0005,4174,4007,0700,0000,0000,0000
U 3253, 3254,3441,0605,4170,4007,0700,0000,0000,0000
U 3254, 2154,1111,0305,4174,4007,0421,4000,0000,0000
U 2154, 3276,3771,0004,7274,4007,0701,0000,0000,0250
U 2155, 2156,3333,0006,4174,4007,0520,0000,0000,0000
U 2156, 2135,3440,0606,1174,4007,0700,0400,0000,1443

U 2157, 3255,3441,0603,4174,0007,0700,0000,0000,0000
U 3255, 3256,3440,0303,1174,4007,0700,0400,0000,1443
U 3256, 3257,3771,0003,7274,4007,0701,0000,0000,0240
3257,
3260,
3261,
3262,
U 3263,
U
U
U
U

3260,0111,0703,4174,4007,0700,0200,0004,0012
3261,3771,0016,4365,5007,0700,0200,0000,0002
3262,3771,0013,4370,4007,0700,0000,0000,0012
3263,2113,0507,7174,4007,0701,4400,0000,0242
3264,3441,1603,7174,4007,0700,0000,0000,0242

U. 3264, 0640,0551,0705,7274,4007,0521,0000,0000,0242
U 0640, 2135,3440,0606,1174,4007,0700,0400,0000,1443
U 0641, 3353,3333,0005,7174,4007,0700,0410,0000,0242
U 0647, 3265,2551,0705,1274,4007,0701,4000,0000,1443
U 3265, 3263,3440,0505,1174,4007,0700,0400,0000,1443

;

6330
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

KS10 MICRDCODE V124. 27-JUL-84 Page 173
EXTEND -- BINARY TO DECIMAL CONVERSION
=0
BDEC5:

=0
=0

[AR] AC[DLEN],
CALL-[CLRFLGj
[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]-1, 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 [PUTDST]
[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 FILLER
;GET FILLER INTO AR
;PAGE FAlLS 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], J/BDFILL ;KEEP FILLING

T10KI.MCR[10,1141]
~XTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3266, 3275,3771,0004,1276,6007,0701,0000,0000,1441
U 0562, 2172,0111,0705,4174,4007,0700,0010,0000,0000
U 0566, 3267,3333,0003,7174,4007,0700,0400,0000,0247
U 3267, 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,
0516,
3270,
3271,
3272,
2160,
2161,
3273,
3274,
3275,
2162,
2163,

2164,
2165,
2166,
2167,
2170,
2171,

2164,3333,0003,4174,4007,0700,0200,0004,0012
0510,3333,0004,7174,4007.0700,0400,0000,0250
3353,3771,0013,4370,4007,0700,0010,0000,0012
3270,2551,0705,1274,4007,0701,4000,0000,1443
3271,3771,0003,7274,4007,0701,0000,0000,0247
3272,3771,0004,7274,4007,0701,0000,0000,0250
2160,4553,0500,4374,4007,0321,0000,0004,0000
3277,0111,0704,4174,4007,0700,0000,0000,0000
3273,3440,0303,0174,4007,0700,0400,0000,0000
3274,3440,0404,1174,4007,0700,0400,0000,1441
3275,3440,0505,1174,4007,0700,0400,0000,1443
2162,1111,0706,4174,4007,0531,4000,0000,0000
0562,2441,0705,4174,4467,0701,4000,0003,0000
0372,4221,0013,4170,4467,0700,0000,0005,0000

3562,4221,0013,4170,4007,0700,0010,0000,0000
2166,4553,0600,4374,4007,0331,0000,0077,7777
0637,4221,0003,4174,0007,0700,0000,0000,0000
2170,4553,0600,4374,4007,0321,0000,0010,0000
2171,3770,0303,4344,4007,0700,0000,0000,0000
0637,4221,0003,4174,0007,0700,0000,0000,0000

U 3276, 1505,3771,0003,7274,4007,0701,0000,0000,0247

U 3277, 2161,5551,0505,4374,0007,0700,0000,0004,0000

6364
6365
6366
" 6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
63~0

6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405
6406
6407

KS10 MICROCODE 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]+l,
CALL-[BDSUB]
= 110
WORK[BDH] [AR]

; GET LOW WORD
;ENTER LOOP FROM BOTTOM
; COUNT DIGITS
;KEEP SUBTRACTING 10**C(BRX)
;SAVE BINARY

[AR] [BR]+WORK[El],
;OFFSET DIGIT
;SEE WHICH MODE
B DISP
READ [AR], LOAD VMA,
;TRANSLATE, START READING TABLE
= 1110
, GO GET ENTRY FROM TABLE
START READ. J/BDTBL
;SAVE LOW BINARY
BDSET: WORK[BDL] [ARX]
STATE [EOIT-DST], CALL [PUTDST]
=00*
[BR] AC[DLEN]-l
;UPDATE STRING LENGTH
=11*
[AR]-WORK[BDH]
[ARXT WORK[BDL]
TL [BR], #/040000
;ARE WE CONVERTING lBO?
[ARX] [ARX]+l, J/BDCFLG ;YES--FIX THE NUMBER AND CLEAR FLAG
=0
DOCVT3: AC [AR]
AC[1] [ARX]
;STORE BACK NEW STRING LENGTH
AC[DLEN] [BR]
DOCVT2: [BRX] [BRX]-l, 3T, SKIP DP18
[BR] ~1, SET FPD, 3T, J/BDECLP
=0
END STATE, CLR FPD, J/SKIP
;HERE TO TRANSLATE 1 DIGIT
=0
BDTBL:
END STATE,

=0
=0
BDABT:

;DON'T CHANGE BYTE POINTER IF
, THIS PAGE FAILS
;GO PUT WORD IN AR
CALL [LOADAR]
; LAST DIGIT
TR [BRXJ, #/777777
[AR] 0, HOLO RIGHT, J/BDSET
;AND NEGATIVE
Tl [BRX], #/100000
;LAST AND MINUS, USE LH
[AR] [AR] SWAP
[AR]=O, HOLD RIGHT, J/BDSET
[AR]_~ORK[BDH],

J/DAC

BDCFLG: [BR] [BRj.AND.NOT.#,
#/040000, HOLD RIGHT,
J/DOCVT3

CLEAR FLAG THAT TELLS US
TO SUBTRACT 1 AND
CONTINUE CONVERTING

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JUlY-1984

MICRO 31(254)

U 2172, 2174,0551,0616,4374,4007,0701,0000,0000,0344
U 2173, 2565,4443,0000,4174,4007,0700,0000,0000,0000
U 2174, 2202,3441,1617,4174,4007,0700,0210,0000,0010
U
U
U
U

2176,
2200,
2201,
3300,

2200,1551,0404,6274,4007,0561.,4000,0000,0000
2201,1111,0703,4174,4007,0700,4000,0000,0000
3300,0551,0616,4374,4007,0701,0000,0000,0373
3301,3333,0016,4174,4007,0700,0200,0000,0010

U 3301, 2202,1551,0303,6274,4007,0522,4000,0000,0000
U
U
U
U

2202,
2203,
3302,
3303,

0002,4551,0404,4374,0004,1700,0000,0037,7777
3302,0551,0303,6274,4007,0700,0000,0000,0000
3303,3333,0017,4174,4007,0700,0200,0000,0010
2204,0551,0404,6274,4007,0561,0000,0000,0000

U 2204, 0006,4551,0404,4374,0004,1700,0000,0037,7777
U 2205, 2204,0111,0703,4174,4007,0700,0000,0000,0000

6408
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
6438
6439
6440

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/BP5UB1
;NO INTERRUPT
J/FIXPC
; INTERRUPT
=0*
BDSUB1: [T1] [TOl. LOAD VMA,
;PUT IN VMA,
CALl-[ClARXO]
;FIX UP SIGN OF lOW WORD
[ARX] [ARX]-RAM, 3T,
; SUBTRACT
SKIP CRY1
;SEE IF OVERFLOW
=0
[AR] [AR]-1
;PROCESS CARRY
[TO] [BRX]+#, 3T, WORK/DECHI ;ADDRESS OF HIGH WORD
READ-[TO], LOAO VMA
;PlACE IN VMA
[AR] [ARJ-RAM, 4T,
; SUBTRACT
SKIP-DPO
; SEE IF IT FIT
=0
CLARXO: CLEAR ARXO,
;IT FIT, KEEP LOW WORD +
RETURN [2]
; AND RETURN
[ARJ [ARJ+RAM
;RESTORE
READ-[T1], LOAD VMA
[4RXJ [ARX]+RAM, 3T, SKIP CRY1
=0 KEEP LOW WORD +
BDSUB2: CLEAR ARXO,
RETURN [6J
RETURN OVERFLOW
-[AR] [AR]+1,
~DD BACK THE CARRY
J/BD5UB2
COMPLETE SUBTRACT

/

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3741, 3361,0111,0703,4170,4007,0700,0210,0004,0012
U 3751, 2210,3771,0006,0276,6007,0700,0000,0000,0000
U
U
U
U

2210,
2214,
3304,
3305,

3556,4553,0600,4374,4007,0321,0010,0004,7777
3304,3443,0600,4174,4007,0700,0200,0004,0012
3305,4221,0013,4170,4007,0700,0000,0000,0000
2206,3770,0605,4344,4007,0700,0000,0000,0000

U 2206, 3562,0115,0505,4174,4007,0700,0010,0000,0000
U 2207, 0654,3333,0005,4174,4003,1701,0000,0000,0000

U 0654, 2212,3770,0303,4344,4007,0700,2000,0071,0007
U '0655, 2213,3770,0303,4344,4007,0700,0000,0000,0000
U 0656, 2212,3447,0303,4174,4007,0700,2000,0071,0006
U 0657, 3306,4551,0303,4374,4007,0700,0000,0000,0777

U 2212, 2212,3447,0303,4174,4007,0630,2000,0060,0000
U 2213, 3306,4551,0303,4374,4007,0700,0000,0000,0777.

6441
6442
6443
6444
6445
6446
6447
6448
6449
6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462
6463
6464
6465
6466
6467
6468

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 [ARj+1, 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
[BR] [BRX] SWAP
;GET PBN IN BITS 20 & 21
[BR]-[BR]*4,
=0
CALL [LOADAR]
;GET PATTERN WORD
READ [BR], 3T, DISP/DP LEFT

=1100

[AR] [AR] SWAP, SC 7, J/MOVPAT
[AR]-[AR] SWAP, J/MSKPAT
[AR]-[AR]*.5, SC 6, J/MOVPAT
[AR]-[AR].AND.#,-#/777, J/EDISP

;(0)
;(1)
;(2)
;(3)

BITS
BITS
BITS
BITS

0-8
9-17
18-27
28-35

=0
MOVPAT: [AR] [AR]*.5, STEP SC, J/MOVPAT ;SHIFT OVER
MSKPAT: [AR]-[AR].AND.#, #/777

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31( 254)

U 3306, 2216,3447,0305,4174,4007,0700,2000,0071,0002
U 2216, 2216,3447,0505,4174,4007,0630,2000,0060,0000
U 2217, 0661,3333,0005,4174,4003,5701,0000,0000,0000
U0661, 2220,1553,0300,4374,4007,0532,4000,0000,0005
U 0663, 2232,3333,0006,4174,4007,0520,0000,0000,0000
U 0665, 3326,4443,0000,4174,4007,0700,0000,0000,0000
U 0667, 3326,4443,0000,4174,4007,0700,0000,0000,0000
U 0671, 3326,4443,0000,4174,4007,0700,0000,0000,0000
U 0673, 2236,4553,0600,4374,4007,0321,0000,0010,0000
U 0675,

2236,4553,0600,4374,4007.0321,0000,00~0,0000

U 0677, 2236,4443,0000,4174,4007,0700,0000,0000,0000

U 2220, 3326,4443,0000,4174,4007,0700,0000,0000,0000
U 2221, 0710,3333,0003,4174,4003,5701,0000,0000,0000
U 0710, 3307,0111,0701,4174,4007,0700,0000,0000,0000'
U 0711, 2175,3771,0013,4370,4007,0700,0000,0000,0011
U 0712, 0246,3333,0006.4174,4007,0520,0000,0000,0000
U 0713, 3326,4551,0606,4374,0007,0700,0000,0007,7777
U 0714, 0715,3771,0005,1276,6007,0701,0000,0000,1443
U 0715, 2224,3443,0500,4174,4007,0700,0200,0004,0012

6469
6470
6471
6472
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

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 DPO,
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
=1000
[PC] [PC]+1, J/EDSTOP
;.(O)SHlP EDIT
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,
V/EDNOP
[BR] AC[MARK]
:(4) EXCHANGE MARK AND DEST
VMA TBR] , START READ,
J/EDEXMD

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3307, 3310,7441,0605,4174,4007,0700,1000,0071,0010
U 3310, 3311,3441,0603,4174,4007,0701,1000,0043,0000
U 3311, 2222,4553,0500,4374,4007,0321,0000,0003,0000
U 2222,

1515,3770,0303,4334,4017,0700,0000,0041,0000

U 2223, 2222,0111,0703,4174,4007,0700,1000,0051,0700

U 0246, 3315,4443,0000,4174,4007,0700,0010,0000,0000
U 0247, 3326,4443,0000,4174,4007,0700,0000,0000,0000

U 2224, 3562,3772,0000,1275,5007,0701,0010,0000,1444
U 2225, 3312,4443,0000,4174,4007,0700,0200,0003,0002
U 3312, 3313,3223,0000,4174,4007,0701,0200,0000,0002
U 3313, 3326,3440,0303,1174,4007,0700,0400,0000,1444

6514
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

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 s7i, S#/lO
[AR) [BRX), 3T, FE FE+P
[BR)~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:

[AR) P, J/STAC
[AR)-[AR)+1,
FE FE.AND.S#, S#/0700,
J/EDSTP1

;NO--ALL DONE
;YES--BUMP WORD #
;KEEP ONLY FLAG BITS
; GO STOP EDIT

.TOC

"EXTEND -- EDIT -- START SIGNIFICANCE"

;HERE WITH DST POINTER IN AR
= 110

EDSSIG: CALL [EDFLT]
J/EDNOP
.TOC

"EXTEND

;STORE FLT CHAR
;00 NEXT PATTERN BYTE

EDIT -- EXCHANGE MARK ANa DESTINATION"

;HERE WITH ADDRESS OF MARK POINTER IN BR
=0

EDEXMD: Q AC[DSTP),
CALL [LOADAR)
START WRITE
MEM WRITE, MEM Q
AC[DSTP) [AR),-J/EDNOP

I

;GET DEST POINTER
;GO PUT MARK IN AR
;START WRITE. SEPERATE STEP TO AVOID
; PROBLEM ON DPM5
;PUT oLD DEST IN MARK
;PUT BACK DEST POINTER

T10KI.MCR[10,1141]
EXTEND.MIC[ 10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 2175, 2257,3771,0003,1276,6007,0701,0010,0000,1441
U 2177, 0700,3447,0303,7174,4007,0700,0000,0000,0241
U 0700, 3346,0551,0303,7274,4007,0700,0010,0000,0241

U 0702, 2226,3333,0003,4174,4007,0621,0000,0000,0000
U 0703, 0606,3771,0013,4370,4007,0700,0000,0000,0011
U 0704, 3307,4443,0000,4174,4007,0700,0000,0000,0000
U 0705, 3353,3771,0013,4370,4007,0700,0010,0000,0013
U 0707, 3326,4443,0000,4174,4007,0700,0000,0000,0000

U 2226, 0705,4443,0000,4174,4007,0700,0000,0000,0000
U 2227, 3326,4443,0000,4174,4007,0700,0000,0000,0000

U 0606, 3315,3333,0004.7174,4007,0700,0410,0000,0246
U 0607, 3314,3771,0003.7274,4007,0701,0000,0000,9246
U 3314, 0705,4251,0303,4374,4007,0700,0000,0007,7777

6547
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

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] [AR]*.5, WORK[E1]
[AR]-[AR1+WORK[E1],
2T, CALL [TRNAR]

;PICK UP SRC POINTER
;GET SOURCE BYTE
;PREPARE TO TRANSLATE
;GO TRANSLATE BY HALFWORDS

=010
EDFILL: READ [AR],
SKIP AD.EO.O,
J/EDFIL1
STATE [EDIT-SRC],
J/EDSFLT
=100
J/EDSTOP
=101
EDSPUT: STATE [EDIT-S+Dl,
CALL TpUTDST]
= 111
J/EDNOP

;(7) BYTE STORED

;HERE TO COMPLETE STORING FILL
=0
EDFIL 1: J/EDSPUT
J!EDNOP

; STORE FILLER
;NO FILLER TO STORE

;(2) NO SIGNIFICANCE, GO FILL
SEE IF ANY FILLER
,
GO TO IT
;(3) SIG START, DO FLOAT CHAR
; (4) ABORT
;(5) NORMAL, STORE AT DST

;HERE TO DO FLOAT BYTE
= 110

EDSFLT: WORK[FSIGl [ARX1,
CALL [EDFLTl
[AR] WORK[FSIG]
[AR1-[AR].AND.# CLR LH,
#/77777 ,
J/EDSPUT

;SAVE SIG CHAR
;STORE FLOAT CHAR
;RESTORE CHAR
;JUST KEEP THE BYTE IN CASE
; DEST BYTE .GT. 15 BITS
;GO STORE CHAR WHICH STARTED THIS AL

~

r

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

U
U
U
U

3315,
3316,
3317,
3320,

11:45 11-AUG-1984
11:3526-uULY-1984

MICRO 31(254)

3316,3771,0005,1276,6007,0701,0000,0000,1443
3317,3443,0500,4174,4007,0700,0200,0003,0012
3320,3771,0005,1276,6007,0701,0000,0000,1444
2230,3333,0005,4175,5007,0701,0200,0000,0002

U 2230, 3322,4751,1203,4374,4007,0700,0010,0000,0002
U 2231, 0740,3771,0003,4365,5007,0621,0200,0000,0002

U 0740, 3353,3551,1313,4370,4007,0700,0010,0000,0012
U 0741, 3321,3551,0606,4374,Q007,0700,0000,0040,0000
U 0746, 3321,3551,0606,4374,0007,0700,0000,0040,0000

U 3321,

i
g

I
~

0007,3440,0606,01~4,4004,1700,0400,0000,0000

U 2232, 0760,3771,0003,7274,4007,0622,0000,0000,0244
U 2233, 2234,4251,0303,4374,4007,0700,0000,0000,0077
U 2234, 3322,0111,0703,7174,4007,0700,0010,0000,0240
U 2235, 0760,3771,0003,4365,5007,0700,0200,0000,0002
U 0760, 3353,3771,0013,4370,4007,0100,0010,0000,0012
U 0761, 3326,4443,0000,4174,4007,0700,0000,0000,0000
U 0766, 3326,4443,0000,4174,4007,0700,0000,0000,0000
U 3322, 3323,0551,0303,7274,4007,0701,0000,0000,0240
U 3323, 0001,3443,0300,4174,4004,1700,0200,0004,0012

6583
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

'

KS10 MICROCODE V124, 27-uUL-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 fBR], START WRITE
;READY TO STORE
[BRT AC[DSTP]
;GET DST POINTER
MEM WRITE, MEM [BR]
;STORE POINTER
=0
[AR) 0 XWD (2)~
;FETCH FLOAT CHAR
CALL-[EDBYTE]
;GET TBL BYTE
MEM READ, [AR] MEM,
;GET FLOAT CHAR
SKIP AD.EQ.O ;SEE IF NULL
=000
[FLG) [FLG].OR.#,
;REMEMBER TO BACKUP DST POINTER
STATE7EDIT-DST,
; WILL ALSO BACKUP SRC IF CALLED
HOLD LEFT,
; FROM SELECT
CALL [PUTDST]
; STORE FLOAT
=001
[BRX) [BRX].OR.#, #/400000,
HOLD RIGHT, u/EDFLT1
;NULL
=110
[BRX] [BRX].OR.#, #/400000,
HOLD RIGHT, u/EDFLT1
;MARK STORED
;SAVE FLAGS SO WE DON'T
;TRY TO DO THIS AGAIN IF
;NEXT STORE PAGE FAILS
;AND RETURN

EDFLT1: AC_[BRX),
RETURN [7]
.TOC

"EXTEND

EDIT

MESSAGE BYTE"

;HERE WITH SKIP ON S
=0
[AR] WDRK[FILL),
EDMSG:
SKIP-AD.EQ.O, 4T,
u/EDMSG1
[AR] [AR].AND.# CLR LH,
#/77[AR] [AR]+1, WORK[EO],
=0
CALL -[ EDBYTE]
MEM READ, [AR]_MEM
=000
EDMSG1: STATE [EDIT-DST],
CALL [PUTDST]
=001
u/EDNOP
= 110
u/EDNOP
EDBYTE: [AR) [AR]+WORK[EO]
VMA [AR], START READ,
RETURN [1)

;GET FILL BYTE
;SEE IF NULL
;GO STORE
;GET OFFSET INTO TABLE
;PLUS 1
; GET TBL BYTE
;FROM MEMORY
;.WHAT-TO.DO.ON PAGE FAILS
;STORE MESSAGE BYTE
;NULL FILLER
;NEXT BYTE
GET OFFSET INTO TABLE
START MEMORY CYCLE
RETURN TO CALLER

TlOKI .MCR[ 10,1141] .
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 2236, 3324,4551,0303,4374,4007,0700,0000,0000,0077

U 2237, 3326,4443,0000,4174,4007,0700,0000,0000,0000
.U 3324, 3325,0115,0703,4174,4007,0700,0000,0000,0000
U 3325, 3327,3333,0003,4174,4007,0701,2000,0007,0000

~
~

~

~
~
~

;t

U
U
U
U
U

3326,
3327,
3330,
3331,
3332,

3327,4443,0000,4174,4007,0700,2000,0071,0000
3330,3333,0006,4174,4007,0701,1000,0073,0000
3331,4443,0000,4174,4007,0700,1000,0051,0030
3332,4443,0000,4174,4007,0700,1000,0040,0000
3333,4443,0000,4174,4007,0700,1000,0041,0010

U 3333, 3334,3777,0003,4334,4057,0700,2000,0041,0000

J
'g

i

U 3334, 2240,4251,0303,4374,4007,0630.0000,0000,0170

w

5

~
!

U 2240, 2242,3447,0303,4174,4007,0700,2000,0071,0000

~

U 2241, 2240,3551,0303,4370,4007,0700,0000,0000,0200

e

I
«~

U 2242, 2242,3447,0303,4174,4007,0630,2000,0060,0000

B

U 2243, 3335,0111,0306,4170,4007,0700,0000,0000,0000
U 3335, 3336,3770,0303,4334,4017,0700,0000,0041,0000

1
~

U 3336, 3337,4551,0606,4374,0007,0700,0000,0070,0000
U 3337, 3340,4551,0303,4374,4007,0700,0000,0003,0000
U 3340, 3341,3111,0306,4174,0007,0700.0000,0000,0000
U 3341, 2214,3440,0606,0174,4007,0700,0400,0000,0000

6633
6634
6635
6636
6637
6638
6639
6640
6641
6642
6643
6644
6645
6646
6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663
6664
6665
6666
6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679

KS10 MICROCODE V124, 27-JUL-84
EXTEND· -- EDIT -- SKIP
.TOC

Page 181

"EXTEND -- EDIT -- SKIP"

=0
;HERE TO SKIP ALWAYS
;JUST KEEP SKIP DISTANCE
EDSKP:
[AR] [AR].AND.#, #/77,
; CONTINUE BELOW
J/EDSKP1
;HERE IF WE DO NOT WANT TO SKIP
J/EDNOP
;GIVE 1 EXTRA SKIP
EDSKP1: [AR] ([AR]+1)*2
;PUT THE ADJUSTMENT
READ-[AR], SCAD/A*2,
SCADA/BYTE5, 3T, LOAD SC, ; THE SC
;JOIN MAIN LOOP
J/EDNOP1
.TOC

"EXTEND -- EDIT

ADVANCE PATTERN POINTER"

;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

EDNOP:
SC 0
EDNOP1: READ [BRX], 3T, FE P
FE FE.AND.S#, S#/30
.FE-FE+SC
FE-FE+S#, S#/10
[AR] FE,
LOAD-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 HAPPENS ON
; SKP 76 OR SKP 77

=0
EDNOP2: [AR] [AR]*.5, STEP SC, J/EDNOP2
;UPDATE WORD ADDRESS
[BRX] [BRX]+[AR],
HOLD LEFT
;PUT PBN BACK IN BRX
[AR] P
;JUST KEEP FLAGS
[BRX] [BRX].AND.#,
#/700000,
HOLD RIGHT
;JUST KEEP PBN
[AR] [AR].AND.#,
#/030000
;FINAL ANSWER
[BRX] [BRX].OR.[AR),
HOLD RIGHT
;00 NEXT FUNCTION
AC_[BRX], J/EDITLP

T 10K I . MC R [ 10, 1 1 4 1 ]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 0332, 3353,3771,0003,7274,4007,0700,0010,0000,0244
U 0336, 3342,3771,0003,1276,6007,0701,0000,0000,1443
U 3342, 2244,0113,0703,1174,4007,0521,0400,0000.1443
U 2244, 0002,4443,0000,4174,4004,1700,0000,0000,0000
U 2245, 0332,4443,0000,7174,4007,0700,0000,0000,0244

6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703

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*
;GET FILL BYTE
MOVF 1:
[AR] WORK[FILL], 2T,
CALL-[PUTDST]
;PLACE IN DEST
;AMOUNT LEFT
[ARj AC[OLENj
AC[DLEN] [ARj+1, 3T,
;STORE UPDATED LEN
SKIP DPO; AND SEE IF DONE
;DONE
RETURN [2]
=0
;00 ANOTHER BYTE
MOVFIL: WORK[FILLj, J!MOVF1
;ENTERING HERE SAVES 150NS
PER BYTE BUT COSTS 300NS
PER FIELD MOVED. I ASSUME (BUT DO
NOT KNOW) THAT THIS SPEEDS
THINGS UP.

T10KI.MCR[10,1141)
EXTEND.MIC[10,1141)

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 1040, 2256,3333,0003,7174,4007,0520,0410,0000,0242
U 1041, 0001,4221,0013,4170,4004,1700,0000,0000,0000
U 1042, 0716,4443,0000,7174,4003,7700,0000,0000,0241
U 0716, 3345,3447,0303,4174,4007,0700,0000,0000,0000
U 0717, 3343,3770,0303,7174,0007,0700,0000,0000,0241

U 3343, 3344,0551,0303,7274,4007,0700,0000,0000,0241
U 3344, 0004,4553,0300,7274,4004,1622,0000,0000,0243

6704
6705
6706
, 6707
6708
6709
6710
6711
6712
6713
6714
671-5
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

KS10 MICROCODE V124, 27-JUL-84 Page 183
EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE
.TOC"EXTENO SUBROUTINES -- GET MODIFIED SOURCE BYTE"
;CALL WITH:
;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
~OO

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

\

.~I

T10KI .MCR[ 10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3345, 3346,0551,0303,7274,4007,0701,0000,0000,0241
U 3346, 2246,3333,0003,4174,4007,0700,0200,0004,0012

U 2246, 3563,3445,0303,4174,4007,0700,0010,0000,0000
U 2247, 2250,4553,0300,4374,4007,0331,0000,0000,0001

U 2250, 0721,3441,0403,4174,4003,1701,0000,0000,0000
U 2251, 2250,3770,0404,4344,4007,0700,0000,0000,0000

6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758

KS10 MICROCODE V124, 27-JUL-84 Page 184
EXTEND SUBROUTINES -- TRANSLATE
.TOC

"EXTEND SUBROUTINES -- TRANSLATE"

;HERE WITH BYTE IN AR 1-36. FETCH TABLE ENTRY.
XLATE:
[AR] [AR]+WORK[E1]
;COMPUTE ADDRESS
TRNAR:
READ-[AR], LOAD VMA,
;FETCH WORD
START READ
=0
[AR] [AR]*2,
;GET BACK LSB
;BIT 36 IS NOT PRESERVED
; BY PAGE FAILS
;PUT ENTRY IN ARX
CALL [LOADARX]
TR [AR], #/1
;WHICH HALF?
=0
;RH -- COpy TO AR
XLATE1: [AR] [ARXl, 3T,
DISp7DP LEFT,
;DISPATCH ON CODE
;DISPATCH TABLE
J/TRNFNC
;LH -- FLIP AROUND
[ARX] [ARX] SWAP,
;START SHIFT
J/XLATE1

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 0721, 2252,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

f

U 0735, 0731,5551;0606,4374,0007,0700,0000,0010,0000

I

U 0737, 0721,3551,0606,4374,0007,0700,0000,0030,0000

I

g

I
it

6759
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

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
; (0) NOP
TRNFNC: READ [BRX], SKIP DPO,
;S FLAG ALREADY SET?
J/TRNRET
ABORT
RETURN [4]
;(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] [BRX].OR.#,
#/200000, HOLD RIGHT,
RETURN [4]
;(6) CLEAR M THEN SET N
[BRX] [BRX].AND.NOT.#,
#/100000, HOLD RIGHT,
J/TRNSIG
;(7)SETNANDM
[BRX] [BRX].OR.#,
P/300000, HOLD RIGHT,
J/TRNFNC

;(1)

~
\'-

-"

T10KI.MCR[10,l141]
EXTEND.MIC[10,1141]

11:45 ll-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 2252, 0754,3333,0004,4174,4003,7530,0000,0000,0000
U 2253, 0005,4251,0403,4374,4004,1700,0000,0007,7777

U 0754, 0533,3771,0003,1276,6003,7701,0000,0000,1443
U. 0755, 2253,3551,0606,4374;0007,0700,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, 3347,1111,0703,4174,4007,0700,4000,0000,0000
U 0537, 1040,0551,0703,7274,4007,0701,0000,0000,0242
U 3347, 2254,3770,0303,1174,4007,0520,0400,0000,1443
U 2254, 1040,3771,0003,7274,4007,0701,0000,0000,0242
U 2255,

1040,0551,0703,7274,4007,0701,0000,0000,0242

"

6796
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

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 DISP, 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:

[AR] AC[DLEN],
B DISP, J/TRNNS1
[BRX] [BRX].OR.#,
#/400000, HOLD RIGHT,
J/TRNSSl
[AR] WORK[FILL],
RETURN [2]
[AR] AC[DSTP],
RETURN [3]

= 1011
TRNNS1: [AR] [AR]-l, J/TRNNS2
[AR]-WORK[SLEN]+l,
J/SRCMOD
TRNNS2: AC[DLEN] [AR] TEST,
SKIP DPO=0
[AR] WORK[SLEN],
J/SRCMOD
[AR] WORK[SLEN]+l,
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 DLEN AND
; SEE WHICH IS NOW SHORTER
;DEST IS SHORTER. DO NOT CHANGE
; AMOUNT LEFT
;GO LOOK AT NEXT BYTE

I

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO I 31(254)

U 2256, 0001,3771,0003,1276,6004,1701,0000,0000,1443
U 2257, 3350,3771 ,0003, 1276,6007,0701,0000,0000, 14.41
U 3350, 0231,3770,0305,4334,4016,7701,0000,0033,6000
3352,3441,0503,4174,4007,0700,0000,0000,0000
U 0233, 3351,3770,0503,4334,4017,0700,0000,0032,6000
U 3351, 3352,0111,0703,4170,4007,0700,0000,0000,0000
U 0231,

U 3352, 2260,3440,0303,1174,4007,0700,0400,0000,1441
U 2260, 2760,3333,0003,4174,4217,0701,1010,0073,0500

U 2261, 0340,3333,0003,4174,4006,5701,1000,0051,0770

6827
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

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 POI~TER
;RETURNS:
1 IF LENGTH RAN OUT
2 IF OK (BYTE IN AR)
,
=0
[AR] AC[DLEN],
;LENGTH RAN OUT
GSRC:
RETURN [1]
;RESTORE AR AND RETURN
;GET SRC PTR
GETSRC: [AR] AC[SRCP]
IBP DP, IBP SCAD,
;UPDATE BYTE POINTER
SCAD DISP, 3T
;SEE IF OFLOW
[AR] [BR], J/GSRC1
;ND OFlOW
=01
SET P TO 36-S
;RESET P
[AR] [AR]+1, HOLD LEFT ;BUMP Y
GSRC1:
=0

AC[SRCP] [AR]
; STORE UPDATED POINTER
READ [ART, LOAD BYTE EA,;SETUP TO FIGURE OUT
FE P, 3T, CALL [BYTEAS] ; EFFECTIVE ADDRESS
READ [AR],
;LOOK AT POINTER
BYTE DISP,
;SEE IF 7 BIT
FE FE.AND.S#, S#/0770,
;MASK OUT P FIELD
J/LDB1
;GO GET THE BYTE

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 3353, 2262,3441,0304,4174,4007,0700,0000,0000,0000
U 2262, 3354,3771,0003,1276,6007,0701,0010,0000,1444
U 2263, 2264,0113,0404,4174,4007,0701,1000,0077,0000
U 2264, 0360,3333,0003,4174,4006,5701,0010,0000,0000
U 2266, 0006,4443,0000,4174,4004,1700,0000,0000,0000

6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
6876

KS10 MICROCODE V124, 27-JUL-84 Page 188
EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING
.TOC

"EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING"

;CALL WITH:
ARI BYTE TO STORE
;
AC41 DESTINATION BYTE POINTER
; RETURNS :
AR & AC41 UPDATED BYTE POINTER
ARXI BYTE TO STORE
BRI WORD TO MERGE WITH
6 ALWAYS
,
PUTDST: [ARX] [AR]
;SAVE BYTE
[AR] AC[DSTP],
=0
;GET DEST POINTER
CALL-[IDST]
;BUMP DEST POINTER
AD/A+B, A/ARX, B/ARX,
;SHIFT 7-BIT BYTE TO
SCAD/A, 3T,
; NATURAL PLACE, AND PUT
; INTO FE
SCADA!BYTE5, LOAD FE
READ [AR], BYTE DISP,
;GO PUT BYTE IN MEMORY
=0*
CALL [DPB1]
RETURN [6]
;ALL DONE

T10KI.MCR[10,1141)
EXTEND.MIC[10,l141]

U
U
U
U

3354,
2265,
2267,
3355,

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

2265,3770,0305,4334,4016,7701,0000,0033,6000
3356,3441,0503,4174,4217,0700,0000,0000,0600
3355,3770,0503,4334,4017,0700,0000,0032,6000
3356,0111,0703,4170,4217,0700,0000,0000,0600

U 3356, 0230,3440,0303,1174,4006,6701,1400,0073,1444
U
U
U
U

0230,
0232,
0234,
0236,

2763,0553,0300,2274,4007,0701,0200,0004,0712
2763,3443,0300,4174,4007,0700,0200,0004,0712
3357,0553,0300,2274,4007,0701,0200,0004,0612
3357,3443,0300,4174,4007,0700,0400 ,0004,0612

U 3357, 3360,3771,0003,4361,5217,0700,0200,0000,0602
U 3360, 0230,4443,0000,2174,4006,6700,0000,0000,0000

U 3556, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 3557, 0004,4443,0000,4174,4004,1700,0000,0000,0000

U 3361, 3362,3771,0003,4365,5007,0700,0200,0000,0002
U 3362, 0010,3333,0003,7174,4004,1700,0400,0000,0244

U 3363, 0001,4551,0303,4374,0004,1700,0000,0000,0777

KS10 MICROCODE V124, 27-JUL-84 Page 189
EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS

6877 .TOC
"EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS"
6878
6879
6880 ;SUBROUTINE TO BUMP DST POINTERS
6881
;CALL WITH:
6882
AR/
AC[DSTP]
6883
RETURN 1 WITH UPDATED POINTER STORED
6884
6885 IDST:
IBP DP, IBP SCAD, SCAD DISP, 3T
6886 =0*
[AR] [BR], LOAD DST EA, J/IDSTX
6887
SET P TO 36-S
6888
[AR] [AR]+1, HOLD LEFT, LOAD DST EA
6889 IDSTX: AC[DSTP] [AR], 3T,
;STORE PTR BACK
6890
FE_P, DISP/EAMODE
;SAVE P FOR CMPDST
6891 '=100*
6892 DSTEA: VMA [AR]+XR, START READ, PXCT BYTE DATA, 3T, J/BYTFET
6893
VMA-[AR], START READ, PXCT BYTE DATA, J/BYTFET
VMA-[AR]+XR, START READ, PXCT/BIS-DST-EA, 3T, J/DSTIND
6894
6895
VMA=[AR], START READ, PXCT/BIS-DST-EA, J/DSTIND
6896 .
6897 DSTIND: MEM READ, [AR] MEM, HOLD LEFT, LOAD DST EA
6898
EA MODE DISP, J/DSTEA
6899
6900
6901
;HERE TO TEST ILLEGAL BITS SET
6902 ;CALL WITH:
6903
SKIP IF ALL BITS LEGAL
6904
RETURN [4] IF OK, ELSE DO UUO
6905 ,
;EXTEND OF 0 COMES HERE
6906 3556:
6907 BITCHK: UUO
RETURN [4]
6908 3557:.
6909
6910 ;HERE TO PUT FILL IN [AR] AND WORK[FILL)
6911 GTFILL: MEM READ,
;WAIT FOR DATA
6912
[AR] MEM
;PLACE IN AR
6913
WORKTFILL] [AR],
;SAVE FOR LATER
6914
RETURN [101
;RETURN TO CALLER
6915
6916 ;SUBROUTINE TO CLEAR FLAGS IN AR
6917 CLRFLG: [AR] [AR].AND.#,
;CLEAR FLAGS IN AR
6918
#/000777,
, ..
HOLD RIGHT, RETURN [1]
6919
6920

~

T10KI.MCR[10,1141]
EXTEND.MIC[10,1141]

11:45 11-AUG-1984
11:3526-JULY-1984

MICRO 31(254)

U 2270, 3376,3771,0003,1276,6007,0701,0010,0000,1441
U 2271, 2566,3440.0505,1174,4007,0700,0400,0000,1441
U 3364, 3365,3771,0003,7274,4007,0701,0000,0000,0214
U 3365, 2272,0113,0703,0174,4007,0701,0400,0000,0000

U 2272, 3376,3771,0003,1276,6007,0701,0010,0000,1444
U 2273, 2566,3440,0505,1174,4007,0700,0400,0000,1444
U 3366, 3367,1771,0003,7274,4007,0701,4000,0000,0242
U 3367, 2274,3771,0005,1276,6007,0522,0000,0000,1443
U 2274, 3371,3440,0303,1174,4007,0700,0400,0000,1443
U 2275, 2276,3441,0304,4174,4007,0700,0000,oooo,oqoo
U 2276, 3573,3551,0404,7274,4007,0701,0010,0000,0214
U 2277, 3370,1111,0503,4174,4007,0700,4000,0000,0000
U 3370, 2566,3440,0303,1174,4007,0700,0400,0000,1443
U 3371, 3373,0111,0503,4174,4007,0700,0000,0000,0000
U 3372, 3373,1771,0003,7274,4007,0701,4000,0000,0242
U 3373, 3374,3551,0303,7274,4007,0701,0000,0000,0214
U 3374, 2566,3440,0303,0174,4007,0700;0400,0000,0000
U 3375, 3367,7.771,0003,7274,4007,0701,0000,0000,0242
U 3376, 0001,3770,0305,4334,4014,1700,0000,0043,6000

6921
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

KS10 MICROCODE V124, 27-JUL-84
EXTEND -- PAGE FAIL CLEANUP
.TOC

Page 190

"EXTEND -- PAGE FAIL CLEANUP"

;BACK UP SOURCE POINTER
=0
BACKS:
[AR] AC [SRCP] ,
CALL-[BACKBP]
;BACKUP BP
AC[SRCP] [BR], J/CLDISP
CMSDST: [AR] WORK[SV.BRX]
;GET .OLD SRC LEN
AC [AR]+l, 3T
;BACK UP
;BACK UP DESTINATION POINTER
=0
BACKD:
[AR] AC[DSTP],
CALL-[BACKBP]
AC[DSTP] [BR], J/CLDISP
;FAILURES DURING MOVE STRING (BACKUP LENGTHS)
STRPF:
[AR] -WORK[SLEN]
;GET AMOUNT LEFT
STRPFO: [BR]-AC[DLEN], 4T,
;WHICH STRING IS LONGER?
SKIP-DPO
=0
STRPF1: AC[DLEN] [AR], J/STPF1A ;SRC LONGER
[ARX] [AR]
;COPY SRC LENGTH
=0
[ARX]-[ARX].OR.WORK[SV.BRX], ;REBUILD FLAGS
CALL TAC ARX]
;RESET AC]SLEN]
[AR] [ART-[BR]
;MAKE DEST LEN
STRPF3: AC[DLEN] [AR],
;PUT BACK DEST LEN
J/CLDISP;DO NEXT CLEANUP
STPF1A: [AR] [AR]+[BR], J/STRPF2
PFDBIN: [AR] -WORK[SLEN]
;RESTORE LENGTH
STRPF2: [AR]-[AR].OR.WORK[SV.BRX)
PFGACO: AC_[AR], J/CLDISP
;PUT BACK SRC LEN AND FLAGS
STRPF4: [AR] .NOT.WORK[SLEN], J/STRPFO
BACKBP: IBP DP, SCAD/A+B, SCADA/BYTE1, SCADB/SIZE,
RETURN [1]

ip_p+s

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 3377, 3400,3741,0104,4074,4007,0700,0000,0000,0000
U 3400, 2300,3333,0004,7174,4007,0340,0400,0000,0425

U 2300, 3401,0111,1103,4364,4007,0700,0200,0024,1016

U 2301, 3401,0111,1003,4364,4007,0700,0200,0024,1016
U 3401, 3402,3771,0002,4365,5617,0700,0200,0000,0002
U 3402, 2302,4553,0200,4374,4007,0321,0000,0070,0000
U 2302, 2600,4443,0000,4174,4467,0700,0000,0001,0000
U 2303, 2621,4551,0202,4374,0007,0700,0000,0077,7740

6961
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

KS10 MICROCODE V124, 27-JUL-84
TRAPS
.TOC
TRAP:
=0

"TRAPS"

[ARX] PC WITH FLAGS
WORK[fRAPPC] [ARX],
SKIP KERNEL
[AR] [AR]+[UBR],
MEM READ,
START READ,
VMA PHYSICAL,
J/TRP1
[AR] [AR]+[EBR],
MEM READ,
START READ,
VMA PHYSICAL,
J/TRP1

TRP 1:

=0

Page 191

MEM READ, [HR]_MEM,
LOAD INST
[HR] . 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, @l
TEST TO SEE IF THIS
IS A UUO
NOT A UUO
CLEAR TRAP FLAGS
DO THE INSTRUCTION
DO THE UUO

T10KI .MCR[ 10,1141]
INOUT.MIC[10,l141]

11:45 11-AUG-1984
09: 17 27-JULY-1984

MICRO 31(254)

D 0701,

1200,1700,4100
1200,1720,4100

U
U
U
U
U

1701,
1702,
1703,
1706,
1707,

2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
3405,3771,0005,4304,4007,0701,0000,0000,0000
3403,3771,0005,4304,4007,0701,0000,0000,0000

U
U
U
U
U
U

1710,
1711 ,
n12,
1713,
1716,
1717,

2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
3406,3441,1405,4174,4007,0700,0000,0000,0000
3404,3441,1405,4174,4007,0700,0000,0000,0000

0 0700,

U 1720, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1726, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1727, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U
U
U
U
U
U
U
U

1730,
1731,
1732,
1733,
1734,
1735,
1736,
1737,

2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740
2621,4551,0202,4374,0007,0700,0000,0077,7740

U 3403, 3404,4251,0505,4374,4007,0700,0000,0000,7770
U 3404, 0372,4113,0305,4174,4007,0330,0000,0000,0000
U 3405, 3406,4251,0505,4374,4007,0700,0000,0000,7770
U 3406, 1400,4113,0305,4174,4007,0330,0000,0000,0000

KS10 MICROCOOE V124, 27-JUL-84
10 -- INTERNAL DEVICES

Page 192

INTERNAL DEVICES"
.TOC
" 10
6992
6993
.DCODE
6994
J/GRP700
iOT,AC DISP,
6995 700:
J/GRP701
IOT,AC DISP,
6996
.UCODE
6997
6998
;DATAI APR,
UUO
6999 1701 :
;BLKO APR,
UUO
7000 1702:
;DATAO APR,
UUO
1703:
7001
[BR]_APR, J/APRSZ ;CONSZ APR,
7002 1706:
[BRLAPR, J/APRSO ;CONSO APR,
7003 1707:
7004 1710:
;BLKI PI,
UUO
7005 RDERA:
;DATAI PI,
UUO
7006 1711:
;BLKO PI,
UUO
7007 1712:
;DATAO PI,
UUO
7008 1713:
[BR] [PI ], J/CONSZ ;CONSZ PI,
7009 1716:
[BR] [PIl. J/CONSO ;CONSO PI,
7010 1717:
7011
7012 1720:
;BLKI PAG,
7013 GRP701 : UUO
;CONSZ PAG,
UUO
7014 ,1726 :
;CONSO PAG,
UUO
7015 1727:
7016
7017 ;6801 AND CACHE SWEEP STUFF
UUO
7018 1730:
UUO
7019 ' 1731:
UUO
7020 1732:
1733:
UUO
7021
UUO
7022 1734:
UUO
7023 1735:
UUO
7024 1736:
UUO
7025 1737:
7026
[BR] [BR].AND.# CLR LH, #/7770
7027 APRSO:
[BR]~AND.[AR], SKIP ADR.EQ.O, J/SKIP
7028 CONSO:
7029
[BR] [BR].AND.# CLR LH, #/7770
7030 APRSZ:
[BR]~AND.[AR], SKIP ADR.EQ.O, "'/DONE
7031 CONSZ,:
7032

; T10KI.MCR[10,1141]
; INOUT.MIC[10,1141]

11:45 11-AUG-1984
09: 17 27-JULY-1984

MICRO 31(254)

U 1700, 0137,3771,0005,4374,4007,0700,0000,0001,0001

U 0137, 3513,3771,0005,4374,0007,0700,0000,0016,0124

~

a
z

U 1704, 3407,3771,0005,7274,4007,0701,0000,0000,0230

I0

~
~

~

Q:

E
u

"g

Ii

;ij

!

.;

~

:;

~

I

I"
)
Q:

U 3407, 3410,5551,0505,4370,4007,0700,0000,0000,0007
U 3410, 3411,4551,0304,4374,4007,0700,0000,0000,0007
U 3411, 3412,3111,0405,4174,4007,0700,0000,0000,0000
U
U
U
U
U
U
U
U
U
U
U

3412,
3413,
2304,
2305,
2306,
2307,
3414,
2310,
2311,
2312,
2313,

3413,4551,0304,4374,4007,0700,0000,0000,7760
2304,4553,0300,4374,4007,0331,0000,0010,0000
2305,3111,0405,4174,4007,0700,0000,0000,0000
2306,4553,0300,4374,4007,0331,0000,0004,0000
2307,5111,0405,4174,4007,0700,0000,0000,0000
3414,3771,0006,4304,4007,0701,0000,0000,0000
2310,4553,0300,4374,4007,0331,0000,0002,0000
2311,5111,0406,4174,4007,0700,0000,0000,0000
2312,4553,0300,4374,4007,0331,0000,0001,0000
2313,3111,0406,4174,4007,0700,0000,0000,0000
2314,4553,0300,4374,4007,0331,0000,0003,0000

U 2314, 3417,3333,0006,4174,4007,0700,0000,0000,0000
U 2315, 3415,3333,0005,4174,4007,0700,0000,0000,0000
U 3415, 3416,3333,0005,4174,4257,0700,0000,0000,0000
U 3416, 1400,3333,0005,7174,4007,0700,0400,0000,0230
U 3417, 3420,3333,0006,4174,4237,0700,0000,0000,0000
U 3420, 3421,5551,0606,4370,4007,0700,0000,0000,2000
U 3421, 2315,3333,0006,4174,4237,0700,0000,0000,0000

7033
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

KS10 MICROCODE V124, 27-JUL-84
10 -- INTERNAL DEVICES

Page 193

1700:
GRP700:
APRID : [BR] #,
#/4097.
[BR] #,
137:
MICROCODE OPTION(INHCST)/OPT,
MICROCODE OPTION(NOCST)/OPT,
MICROCODE OPTION(NONSTO)/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
[ARXT [AR].AND.#,
;MASK THE DATA BITS
#/007760
; DOWN TO ENABLES
TR [AR], #/100000
;WANT TO ENABLE ANY?
[BR] [BR].OR.[ARX]
;YES--SET THEM
=0
TR [AR], #/40000
;WANT TO DISABLE ANY?
[BR] [BR].AND.NOT.[ARX] ;YES--CLEAR THEM
=0
[BRXT APR
;GET CURRENT STATUS
TR [AR], #/20000
;WANT TO CLEAR FLAGS?
[BRX] [BRX].AND.NOT.[ARX] ;YES--CLEAR BITS
=0
TR [AR], #/10000
;WANT TO SET ANY FLAGS?
;YES--SET FLAGS
[BRX] [BRX].OR.[ARX]
=0
TR [AR], #/30000
;ANY CHANGE AT ALL?
READ [BRX],
;YES--LOAD NEW FLAGS
=0
J/WRAPR2
;TURN OFF INTERRUPT 8080
;FIX DPM TIMING BUG
WRAPR1 : READ [BR]
READ [BR],
;ENABLE CONDITIONS
SET APR ENABLES
WORK[APR] [BR],
;SAVE FOR RDAPR
J/DONE
; ALL DONE

WRAPR2: READ [BRX],
SPEC/APR FLAGS
[BRX] [BRX].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 I . MCR [ 10, 114 1 ]
INOUT.MIC[10,1141]

11:45 11-AUG-1984
09:1727-uULY-1984

MICRO 31(254)

U 1705, 3422,3771,0005,7274,4007,0701,0000,0000,0230
U 3422, 3423,3770,0505,4344,0007,0700,0000,0000,0000
U 3423, 3424,4551,0505,4374,0007,0700,0000,0000,7760
U 3424, 3425,4551,0505,4370,4007,0700,0000,0000,0007
U 3425, 3426,3771,0004,4304,4007,0701,0000,0000,0000
U 3426, 3427,4251,0404,4374,4007,0700,0000,0000,7770
U 3427, 3513,3111,0405,4174,4007,0700,0000,0000,0000

7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097

KS10 MICROCODE V124, 27-uUL-84
10 -- INTERNAL DEVICES
1705:
RDAPR:

[BR] WORK[APR]
[BR]-[BR] SWAP,
HOLD-RIGHT
[SR] [BR] .AND.#,

Page 194

;PUT ENABLES IN BOTH
; HALVES
;SAVE ENABLES IN LH

#/7760,

HOLD RIGHT
[BR] [BR].AND.#,
; SAVE PIA IN RH
#/7,-·
HOLD LEFT
;READ THE APR FLAGS
[ARX] APR
[ARX]-[ARX].AND.# CLR LH, ;MASK OUT uUNK
;KEEP 8 FLAGS
#/ooi''i7o
[BR] [BR].OR.[ARX1.
;MASH THE STUFF TOGETHER
;RETURN
u/RTNREG

T10KI.MCR[10.1141]
INOUT.MIC[10.1141]

U 1723. 3430.3443.0300.4174,4007,0700,0200.0004,0012
U 3430, 2316.3771.0003.4365,5007,0521,0200.0000.0002

U 2316, 2320,4551.0303.4374,0007.0321,0000,0010,0000
U 2317, 3431,4551.1111.4374,0007,0700.0000,0077,0077
U 3431, 2320.4553,0300,4374,4007,0321,0000,0010.0000

U 2320, 3432,4551,0305,4374,4007,0700,0000,0001,7777
.~

11iii

U 2321,

KS10 MICROCODE V124, 27-0UL-84 Page 195
10 -- INTERNAL DEVICES -- EBR & UBR

11:45 11-AUG-1984
09: 17 27-0ULY-1984

1400,3111,0311.4174,0477,0700.0000.0000,0000

U 3432, 2322,4221,0005,4174,0007,0700,2000.0071,0007

U 2322. 2322.3445.0505.4174.4007.0630.2000,0060,0000
U 2323. 3433,4551,1111.4374,0007,0700,0000,0077,7774
U 3433, 3434.4221,0011,4170.4007,0700,0000.0000,0000
U 3434, 3435,3111,0511.4174,4007,0700,0000,0000.0000

U 3435, 2372,3111,0311.4174.0477,0700,0000.0000.0000

7098
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
712,5
; 7126
7127
7128
7129
7130
7131
7132
7133
7134
7135
7136
7137
7138
7139
7140
7141
7142
7143
7144

.TOC
1723:
WRUBR:

=0

'"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,
0/ACBSET
i
[UBR] [UBR].AND.#,
#/770077,
,
HOLD RIGHT
/
[AR].AND.#.
#/100000. 3T,
SKIP ADL.EQ.O

=0

ACBSET: [BR] [AR].AND.#.
#/17777,
0/SETUBR
[UBR] [UBR] .OR. [AR].
HOLD RIGHT.
LOAD AC BLOCKS.
0/DONE
SETUBR: [BR] O.
SC_7-:HOLD RIGHT
=0

STUBRS: [BR] [BR)*2,
STEP-SC.
0/STUBRS
[UBR) [UBR].AND.#.
#/777774.
HOLD RIGHT
[UBR] 0,
HOLD LEFT
[UBR] [UBR] .OR. [BR)
[UBR] [UBR] .OR. [AR],
HOLD RIGHT,
LOAD AC BLOCKS.
0/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 0UNK 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 BR
;GO LOAD UBR
;DO 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

',-

-

-'

T10KI.MCR[10,1141]
INOUT .MIC[.lO, 1141]

11:45 11-AUG-1984
09:1727-0ULY-1984

MICRO 31(254)

U 1724, 2324,3445,0303,4174,4007,0700,2000,0071,0006
U 2324, 2324,3445,0303,4174,4007,0630,2000,0060,0000
U 2325, 3436,3771,0005,7274,4007,0701,0000,0000,0230
U 3436, 3437,4551,0505,4370,4007,0700,0000,0074,7777
U 3437, 2326,4553,0300,4374,4007,0321,0000,0000,0020
U 2326, 2327,3551,0505,4370,4007,0700,0000,0003,0000
HAPPEN
U 2327, 3440,3333,0005,4174,4257,0700,0000,0000,0000
U 3440, 3441,3333,0005,7174,4007,0700,0400.0000,0230

NABLE
ERNAL FLAG
BIT 0

U 3441, 2372,3441,0310,4174,4007,0700,0000,0000,0000

U 1725. 2330,3447,1005,4174,4007,0700,2000,0071,0006
U 2330, 2330,3447,0505,4174,4007,0630,2000,0060,0000
U 2331, 3442,4551,0505,4374,4007,0700,0000,0006,3777
U 3442, 3513,4221,0005,4174,0007,0700,0000,0000,0000

7145
7146
7147
7148
7149
7150
.' 7151
7152
7153

KS10 MICROCODE V124, 27-0UL-84 Page 196
10 -- INTERNAL DEVICES -- EBR & UBR
1724:
;DO A SHIFT OVER 8 MORE
WREBR:
[AR] [AR]*2, SC_6
=0
;SKIP WHEN = -1
WREBR1: [AR] [AR]*2, STEP SC, 0/WREBR1
;DO NOT ENABLE PAGING IN SMALL
.IF/FULL
; MICROCODE.
[BR] WORK[APR]
[BR]-[BR].AND.#, #/747777, HOLD LEFT
;BIT 22 - TRAP ENABL
[AR]~AND.#, #/20, 3T, SKIP ADL.EQ.O
[BR] [BR].OR.#, #/030000, HOLD LEFT

7154

=0

7155
7156
7157
7158
7159
7160
7161
7162

READ [BR], SET APR ENABLES
WORK[APR] [BR]
.ENDIF/FULL
-

; ; 7163
;;7164
7165
7166
7167
7168
7169
7170
; 7171
; ; 7172
; ; 7173
7174
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184

.IF/KIPAGE
.IF/KLPAGE
[EBR] [AR]
[EBR)~AND.#,

=0

;SET - ALLOW TRAPS T

;NOTE: SHIFTED LEFT 9 BITS
#/40, 3T, SKIP ADL.EQ.O
;BIT 21 - KL PAGING

[EBR]_[EBR).OR.#, #/400000, HOLD RIGHT, 0/SWEEP ;YES, SET IN
[EBR]_[EBR].AND.NDT.#, #/400000, HOLD RIGHT, 0/SWEEP ;NO, CL

.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:
[BR] [EBR]*.5, SC_6
=0
RDEBR1: [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

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

11:45 "-AUG-'984
09:1727-JULY-1984

MICRO 31(254)

U 1721, 2332,3441,1105,4174,4007,0700,0000,0000,0000.
U 2332, 2334,3447,0506,4174,4007,0700,2010,0071,0006
U 2333, 3513,4551.0505,4374,0007,0700,0000,0050,7700
U 3443, 3444,3441,1105,4174,4007,0700,0000,0000,0000
U 3444, 2334,3447,0506,4174,4007,0700,2000,0071,0006
U 2334, 2334,3447,0606,4174,4007,0630,2000,0060,0000
U 2335, 3445,4551,0606,4374,4007,0700,0000,0001,7777
U 3445, 0001,3441,0605,4170,4004,1700,0000,0000,0000

7185
7186
7187
7188
7189
7190
7191
7192
7193
7194
7195
.. ;
7196
7197
7198
7199

KS10 MICROCODE V124, 27-JUL-84 Page 197
10 -- INTERNAL DEVICES -- EBR & UBR
1721 :
RDUBR:
=0

[BR] [UBR]
[BRX] [BR]*.5, SC 6, CALL [GTPCW1]"
[BR] [BR].AND.#,
;JUST RETURN USEFUL
#/507700, HOLD RIGHT,
; BITS
J/RTNREG

GETPCW: [BR] [UBR]
[BRX] [BR]*.5, SC_6
=0

GTPCW1: [BRX] [BRX]*.5, STEP SC, J/GTPCW1
[BRX]-[BRX].AND.#, #/17777
[BR] [BRX] , HOLD LEFT, RETURN [1]

!~
T 10K I . MC R [ 10, 1 14 1 1
INOUT.MIC[10,1141]

o

11:45 11-AUG-1984
09:1727-JUlV-1984

MICRO 31(254)

0702, 1216,1760,4700

U 1760, 3513,3771,0005,7274,4007,0701,0000,0000,0215
U 1761, 3513,3771,0005,7274,4007,0701,0000,0000,0216
U 1762, 3513,3771,0005,7274,4007,0701,0000,0000,0220

~

U 1763, 3513,3771,0005,7274,4007,0701,0000,0000,0217

.z

U 1766, 3513,3771,0005,7274,4007,0701,0000,0000,0227
U 1767, 2621,4551,0202,4374,0007,0700,0000,0077,7740

a
Q

m
~

1
l

.g
~

iii

!
.ii
"

g

~
~

U 1770, 3446,4443,0000,4174,4007,0700,0200,0004,0002
U 3446, 3447,3771,0003,4365,5007,0700,0200,0000,0002
U 3447, 1400,3333,0003,7174,4007,0700,0400,0000,0215
U 1771, 3450,4443,0000,4174,4007,0700,0200,0004,0002
U 3450, 3451,3771,0003,4365,5007,0700,0200,0000,0002
U 3451, 1400,3333,0003,7174,4007,0700,0400,0000,0216
U 1772, 3452,4443,0000,4174,4007,0700,0200,0004,0002
U 3452, 3453,3771,0003,4365,5007,0700,0200,0000,0002
U 3453, 1400,3333,0003,7174,4007,0700,0400,0000,0220

)

U 1773, 3454,4443,0000,4174,4007,0700,0200,0004,0002
U 3454, 3455,3771,0003,4365,5007,0700,0200,0000,0002
U 3455, 1400,3333,0003,7174,4007,0700,0400,0000,0217

I

U 3456, 3457,3771,0003,4365,5007,0700,0200,0000,0002

.t

U 1776, 3456,4443,0000,4174,4007,0700,0200,0004,0002
U 3457, 1400,3333,0003,7174,4007,0700,0400,0000,0227
U 1777, 2621,4551,0202,4374,0007,0700,0000,0077,7740

;

7200
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
723.5
7236
7237
7238
7239
7240

KS10 MICROCODE V124, 27-JUl-84 Page 198
10 -- INTERNAL OEVICES -- Kl PAGING REGISTERS
.TOC

"10 -- INTERNAL OEVICES -- Kl PAGING REGISTERS"

702:

.DCODE
IOT ,AC OISP,
.UCODE

1760:
GRP702:
RDSPB:
1761 :
RDCSB:
1762:
RDPUR:
1763:
RDCSTM:
1766:
RDHSB:
1767:
1770:
WRSPB:
1771:
WRCSB:
1772:
WRPUR:

M,

J/GRP702

'[BRLWORK[SBR] , J/RTNREG
[BR]_WORK[CBR], J/RTNREG
[BRLWORK[PUR] , J/RTNREG
[BR]_WORK[CSTM] , J/RTNREG
[BR]_WORK[HSBADR], J/RTNREG
UUO
START READ
MEM READ, [AR] MEM
WORK[SBR] [AR]:- J/DONE
START READ
MEM READ, [AR] JEM
WORK[CBR] [ARC J/DONE
START READ
MEM READ, [ARLMEM
WORK[PUR] [AR], J/DONE

1773:
WRCSTM: START READ
MEM READ, [AR] MEM
WORK[CSTM] [ART, J/DONE
1776:
WRHSB:
START READ
MEM READ, [ARLMEM
WORK[HSBADR] [AR], J/DONE
1777:
UUO

T10KI .MCR[ 10,.1141]
INOUT.MIC[10,1141]

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31( 254)

U 3460, 3461,3771,0003,7274,4117,0701,0000,0000,0301
U 3461, 3462,4751,1205,4374,4007,0700,0000,0001,0000
U 3462, 3463,0111,0503,4174,4007,0700,0000,0000,0000
U 3463, 2336,3770,0303,4174,0007.0520,0000,0000,0000
U 2336, 3464,3333.0003.7174,4007.0700,0400.0000,0301
U 2337, 2340,3771,0003,7274,4007.0701,0000,0000,0300

i
~

a

Ii
l!!

i

U 2340, 3472,0111.0703.4174,4007,0700,0010,0000,0000
U 2342, 2336,4221,0003,4174.4007,0700,0000,0000,0000
U 3464. 3465.3771,0003,7274,4007,0701,0000,0000,0303
U 3465, 2344,1111,0503,4174,4007,0421,4000.0000,0000

i

Il:
~

~

.!!

g

I

I
Ii

i

E

U
U
U
U

2344,
2345,
3466.
3467,

0002.3333,0003,7174,4004,1700,0400,0000,0303
3466,3771,0003,7274,4007,0701,0000,0000,0302
3467,3771,0005,4304,4007.0701.0000,0000,0000
3470,3551,0505,4374,4007,0700,0000,0000,0040

U'3470, 2344,3333,0005,4174,4237,0700,0000,0000,0000

7241
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
7271

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
TOCK1 :
=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] O.
J/TOCK1
[AR] WORK[TTG]
[AR]-[AR]-[BR] •
SKIP-AD.LE.O
WORK[TTG] [AR].
RETURN [21
[AR] WORK[PERIOO]
[BR]-APR
[BR]-[BR].OR.#. #/40
REAO-[BR] ,
SPEC/APR FLAGS.
J/TOCK3

;STORE THE NEW TIME
;SKIP OVER THE OVERFLOW CODE
;GET HIGH WORD
;BUMP IT
;STORE BACK IN RAM
;CAUSE LOW WORD WDRD
; TO GET STORED
:COUNT DOWN TIME TO GO
;SEE IF IT TIMED OUT
;SAVE NEW TIME TO GO
;ALL DONE
;GET CURRENT FLAGS
;SET TIMER INTERRUPT FLAG
;PLACE ON DP AND
; LOAD INTO HARDWARE
;ALL DONE

I
I

~

!

8

J

/

T 10K I . MC R [ 10, 1 14 1 ]
INOUT.MIC[10,1141]

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 1774, 3471,4443,0000,4174,4007,0700,0200,0004,0002
U 3471, 1044,3771,0003,4365,5007,0700,0200,0000,0002
U 1044, 3563,0111,0702,4170,4007,0700,0210,0004,0012
U 1045, 3472,4551,0404,4370,4007,0700,0010,0077,0000
U 1047, 1400,3333,0004,7174,4007,0700,0400,0000,0301
U 3472, 0002,3333,0003,7174,4004,1700,0400,0000,0300
U 1764, 3473,4451,1205,4324,4007,0700,0000,0000,0000
U 3473, 3474,4451,1204,4324,4007,0700,0000,0000,0000
U 3474, 3475,4451,1206,4324,4007,0700,0000,0000,0000
U 3475, 2346,6113,0405,4174,4007,0621,0000,0000,0000
U 2346, 2347,3441,0604,4174,4007,0700,0000,0000,0000
U 2347, 3476,3771,0005,7274,4007,0701,0000,0000,0300
U 3476, 1050,0551,0404,7274,4007,0671,0000,0000,0301
U 1050, 3461,3771,0003,7274,4117,0700,0010,0000,0301
U 1051, 3477,3333,0002,4174,4007,0700,0200,0003,0012
U 1052, 1764,4443,0000,4174,4007,0700,0000,0000,0000
U 3477, 3500,3333,0005,4175,5007,0701,0200,0000,0002
U 3500, 3501,0111,0702,4170,4007,0700,0200,0003,0012
U 3501, 1400,3333,0004,4175,5007,0701,0200,0000,0002

7272
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
7305
7306
7307
7308
7309
7310

KS10 MICROCOOE V124, 27-JUL-84 Page 200
10 -- INTERNAL DEVICES -- 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 [HR]+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]
;IN WORK SPACE
=11
WORK[TIME1] [ARX).
J/DONE
;NEXT INSTRUCTION
WRTIM1: WORK[TIMEO] [AR],
RETURN [2]
1764:
RDTIME: [BR] TIME
[ARX] TIME
[BRX]-TIME
[BR].XOR. [ARX],
SKIP AD.EQ.O
[ARX] [BRX]
=0
[BR] WORK[TIMEO]
[ARX] [ARX]+WORK[TIME1],
SKIP/~1 MS
SPEC/CLRCLK,
=00
[AR] WORK[TIME1], 2T,
CALL-[TOCK]
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

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 1775, 3502,4443,0000,4174,4007,0700,0200,0004,0002
U 3502, 3503,3771,0003,4365,5007,0700,0200,0000,0002
U 3503, 3504,3333,0003,7174,4007,0700,0400,0000,0302
U 3504, 1400,3333,0003,7174,4007,0700,0400,0000,0303

U 1165, 3513,3771,0005,7274,4007,0701,0000,0000,0302

g

I
.t

KS10 MICROCODE V124, 27-JUL-84 Page 201
10 -- INTERNAL DEVICES -- WRINT & RDINT

7311.TOC
7312
7313
7314 1775:
7315 WRINT:
7316
7317
7318
7319
7320
7321
1765:
7322 RDINT:
7323
7324

"10 -- INTERNAL DEVICES -- WRINT & RDINT"

START READ
MEM READ, [AR] MEM
WORK[PERIOD] [AR]
WORK[TTG] [AR],
J/DONE
[BR] WORK[PERIOD],
J/RTNREG

.~.

~
i

/

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

11 :45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 1715, 3513,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
U
U

1714, 2350,4553,0300,4374,4007,0331,0000,0001,0000
2350, 2351,4221,0014,4174,4007,0700,0000,0000,0000
2351, 2352,4553,0300,4374,4007,0331,0000,0074,0000
2352, 2621,4551,0202,4374,0007,0700,0000,0077,.7740
2353, 3505,4551,0305,4374,4007,0700,0000,0000,0177
3505, 3506,3770,0505,4344,0007,0700,0000,0000,0000
3506, 2354,4553,0300,4374,4007,0331,0000,0002,0000
2354, 2355,5111,0514,4174,0007,0700,0000,0000,0000
2355, 2356,4553,0300,4374,4007,0331,0000,0000,4000
2356, 2357,3111,0514,4174,0007,0700,0000,0000,0000
2357, 2360,4553,0300,4374,4007,0331,0000,0000,0200
2360, 2361,3551,1414,4370,4007,0700,0000,0000,0200
2361, 2362,4553,0300,4374,4007,0331,0000,0000,0400
2362, 2363,5551,1414,4370,4007,0700,0000,0000,0200
2363, 2364,4553,0300,4374,4007,0331,0000,0000,2000
2364, 2365,3111,0514,4170,4007,0700,0000,0000,0000
2365,0304,4553,0300,4374,4007,0331,0000,0000,1000
0304, 0305,5111,0514,4170,4007,0700,0000,0000,0000
0305, 3510,3770,1416,4344,4007,0700,0010,0000,0000

.

.

U 0315, 0110,3443,0100,4174,4156,4700,0200,0014,0012

U 3507, 3510,3770,1416,4344,4007,0700,0000,0000,0000
U 3510, 3511,2441,0716,4170,4007,0700,4000,0000,0000
U 3511, 3512,4111,1416,4174,4007,0700,0000,0000,0000
U 3512, 0010,7443,1600,4174,4434,1700,0000,0000,0000

7325
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

KS10 MICROCODE V124, 27-JUL-84 Page 202
10 -- INTERNAL DEVICES -; RDPI & WRPI
.TOC

"10 -- INTERNAL DEVICES -- RDPI

1715:
RDPI:

[BR] [PI], J/RTNREG

& WRPI"

1714:
WRPI:
=0

TR [AR], PI.CLR/1
[PI] 0
TR [AR], PI.MBZ/17
UUO
=0
[BR] [AR].AND.#,#/177
[BR]-[BR] SWAP, HOLD RIGHT
TR [AR], PI.DIR/1
[PI] [PI].AND.NOT.[BR], HOLD RIGHT
=0
TR [AR], PI.REQ/1
[PI] [PIj.OR.[BR], HOLD RIGHT
=0
TR [AR], PI.TSN/1
[PI] [PI].OR.#,PI.ON/1, HOLD LEFT
=0
TR [AR], PI.TSF/1
[PI] [PI].AND.NOT.#,PI.ON/1, HOLD LEFT
=0
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
,
;PUT ACTIVE CHANS IN LH
LOADPI: [TO] [PI] SWAP
;DONT MASK RH
[TO]--1, HOLD LEFT
LDPI2:
;ONLY REQUEST CHANS THAT ARE ON
[TO]-[TOj.AND.[PI]
;RELOAD HARDWARE
.NOT~[TO], LOAD PI,
;RETURN TO CALLER
RETURN [10]

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 3513, 3514,3443,0300,4174,4007,0700,0200,0003,0012
U 3514, 1400,3333,0005,4175,5007,0701,0200,0000,0002

7365
7366
7367
7368
7369
7370
7371

KS10 MICROCODE V124, 27-JUL-84 Page '203
10 -- INTERNAL DEVICES -- SUBROUTINES
.TOC

"10 -- INTERNAL DEVICES -- SUBROUTINES"

;HERE WITH SOMETHING IN BR STORE IT @AR
RTNREG: VMA [AR], START WRITE
MEM-WRITE, MEM_[BR], J/DONE

T 10K I . MCR [ 10, 1141 ]
INOUT.MIC[10,l141j

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 1722, 3515,3443,0300,4174,4147,0700,0200,0000,0010
U 3515, 2366,4221,0003,4174,4007,0700,0000,0000,0000"
U 2366, 3521,3771,0003,4374,4007,0700,0010,0037,7377
U 2367, 3516,3771,0005,4374,4247,0700,0000,0000,1001
U 3516, 2370,3333,0003,4174,4247,0700,0000,0000,1000

U 2370, 2370,1111,0503,4174,4247,0630,6000,0060,1000
U 2371, 2375,3333,0003,4174,4007,0700,0000,0000,0000

U 2372, 3521,3771,0003,4374,4007,0700,0010,0037,7377
U 2373, 3517,3771,0005,4374,4347,0700,0000,0000.1001
U 3517, 2374,3333,0003,4174,4347,0700,0000,0000,1000

U 2374, 2374,1111,0503,4174,4347,0630,6000,0060,1000
U 2375, 3520,4223,0000,7174,4007,0700,0400,0000,0424
U 3520,

1400,4223,0000,7174,4007,0700,0400,0000,0423

U 3521, 0001,4443,0000,4174,4004,1700,2000,0071,0375

7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
7401
7402
7403
7404
7405
7406
7407
7408

KS10 MICROCODE V124, 27-JUL-84 Page 204
10 -- INTERNAL DEVICES -- SUBROUTINES
;CACHE SWEEP
1722:
CLRPT:
=0

VMA [ARl.
LOAD PAGE TABLE
[ARj 0
[ARj-#,#/377377,
CAU-[SSWEEPj
[BRj #, #/1001,
CLRCSH
READ [ARj, CLRCSH

=0
CLRPTL: [ARj [ARj-[BRl,
CLRCSH,
STEP SC,
J/CLRPTL
READ [ARl, J/ZAPPTA
=0
SWEEP:

[AR j #. # /377377,
CALL-[SSWEEPj
[BRj #, #/1001,
SWEEP
READ [ARj, SWEEP

=0
SWEEPL: [AR] [ARj-[BRl,
SWEEP,
STEP SC,
J/SWEEPL

;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
;UPDATE AR (AND PUT ON DP)
;SWEEP ON NEXT STEP
;SKIP IF WE ARE DONE
;LOOP FOR ALL ENTRIES
;CLEAR LAST ENTRY
;INITIAL VMA
;LOAD NUMBER
;CONSTANT TO
; START SWEEP
;FIRST THING

VALUE
OF STEPS INTO SC
KEEP ADDING
TO CLEAR

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 [1]

;NUMBER OF STEPS
;RETURN

T10KI.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,
3522,
3523,
3524,
3525,
3526,
3527,
3530,

11:45 11-AUG-1984
09:1727-JUlY-1984

MICRO 31(254)

0770,3773,0000,4074,4003,1701,0000,0000,0000
3522,3551,1414,4370,4007,0700,0000,0004,0000
3523,3551,1414,4370,4007,0700,0000,0002,0000
3524,3551,1414,4370,4007,0700,0000,0001,0000
3525,3551,1414.4370,4007,0700,0000,0000,4000
3526,3551,1414,4370,4007,0700,0000,0000,2000
3527,3551,1414,4370,4007,0700,0000,0000,1000
3530,3551,1414,4370,4007,0700,0000,0000,0400
3531,4751,1206,4374,4007,0700,0000,0000,0001
3531,4751,1206,4374,4007,0700,0000,0000,0002
3531,4751,1206,4374,4007,0700,0000,0000,0003
3531,4751,1206,4374,4007,0700,0000,0000,0004
3531,4751,1206,4374,4007,0700,0000,0000,0005
3531,4751,1206,4374,4007,0700,0000.0000,0006
3531,4751,1206,4374,4007,0700,0000,0000,0007

U 3531, 3532,4251,1403,4374,4007,0700,0000,0007,7577
U 3532, 3533,7443,0300;4174,4437,0700,0000,0000,0000
U 3533, 2376,4223,0000,4364,4277,0700,0200,0000,0010
U 2376, 3570,4571,1203,4374,4007,0700,0010,0024,1300
U 2377, 2400,3771,0003,4364,4007,0331,0200,0000,0002
U 2400, 3542,4221,0004,4174,4007,0700,0000,0000,0000
U 2401, 3534,3445,0603,4174,4007,0700,0000,0000,0000
U 3534, 3535,0551,0303,4370,4007,0701,0000,0000,0040
U 3535, 3536.0111,1003,4174.4007,0700,0000,0000.0000

7409
7410
7411
7412
7413
7414
741.5
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

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/1. HOLD RIGHT,
J/PI
;SET PI CYCLE AND PROCESS PI
=1000
PI:
AD/D. DBUS/PI NEW,
;LOOK AT NEW LEVEL
DISP/DP LEFT, 3T,
;DISPATCH ON IT
J/PI
;GO TO 1 OF NEXT 7 PLACES
[PI] [PI].OR.#, #/040000, HOLD LEFT. J/PIP1
=1001
=1010
[PI)-[PI].OR.#, #/020000. HOLD LEFT, J/PIP2
= 1011
[PI)-[PI).OR.#, #/010000, HOLD LEFT. J/PIP3
[PI)-[PI).OR.#, #/004000. HOLD LEFT, J/PIP4
= 1100
[PI]-[PI).OR.#, #/002000. HOLD LEFT, J/PIP5
=1101
[PI]-[PI].OR.#, #/001000. HOLD LEFT, J/PIP6
= 1110
[PI]-[PI].OR.#, #/000400, HOLD LEFT, J/PIP7
= 1111
PIP 1 :
[BRXT 0 XWD [1], J/PI10 ;R~MEMBER WE ARE AT LEVEL 1
[BRX]-O XWD [2], J/PI10 ;REMEMBER WE ARE AT LEVEL 2
PIP2:
PIP3:
[BRX]-O XWD [3], J/PI10 ;REMEMBER WE ARE AT LEVEL 3
[BRX]-O XWD [4]. J/PI10 ;REMEMBER WE ARE AT LEVEL 4
PIP4:
[BRX]-O XWD (5), J/PI10 ;REMEMBER WE ARE AT LEVEL 5
PIP5:
PIP6:
[BRX]-O XWD [6], J/PI10 ;REMEMBER WE ARE AT LEVEL·6
PIP7:
[BRX]=O XWD [7], J/PI10 ;REMEMBER WE ARE AT LEVEL 7

.

PIlO:

=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!Pr40

;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

.~.

T10KI.MCR[10.1141]
INOUT.MIC[10.1141]

11:4511-AUG-1984
09: 17 27-JULY-1984

MICRO 31(254)

U 3536, 3537,3443,0300,4174,4007,0700,0200,0024,1016
U
U
U
U

3537,
3540,
2402,
2403,

3540,3771,0003,4365,5007,0701,0200,0020,0012
2402,6553,0300,4374,4007,0321,0000,0025,4340
2404,6553,0300,4374,4007,0321,0000,0026,4000
3541,4521,1205,4074,4007,0700,0000,0000,0000

U 3541, 0020,4223,0000,4174,4467,0700,0000,0000,0004

U 2404, 0104,4751,1217,4374.4007,0700,0000,0000,0101
U 2405, 0470,4443,0000,4174,4007,0700,0200,0023,0002
U 0470. 3571,3741,0105,4074,4007,0700,0010,0000,0000
GS
U 0474, 3566,3771,0003.4374,0007,0700,0010,0000,0000
U 0475, 2576,3441,0301,4174,4467,0700,0000,0000,0004

7452
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

KS10 MICROCODE V124, 27-JUL-84 Page 206
10 -- INTERNAL DEVICES -- SUBROUTINES
;HERE WITH ABSOLUTE ADDRESS OF INTERRUPT INSTRUCTION IN [AR]
VMA [AR], VMA PHYSICAL READ
;FETCH THE INSTRUCTION
PI40:
MEM-READ, [AR] MEM, LOAD VMA,
;FETCH INSTRUCTION
PI50:
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,
;ENTER EXEC MODE AND ASSUME
J/PIXPCW
, 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
NOT A JSR OR XPCW
PIJSR: HALT [ILLII]
PREPARE TO STORE OLD PC
START WRITE, FORCE EXEC
OLD PC
[BR] PC WITH FLAGS,
=0*0
CALL-[STOBR]
STORE OLD PC
[AR]_#, #/0, HOLD RIGHT,
:PREPARE TO CLEAR FL
=1*0
=1*1

CALL [INCAR]
[PC] [ARl. LOAD FLAGS,
J/PISET

BUMP POINTER
NEW PC
CLEAR PI CYCLE & START
INTERRUPT PROGRAM

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 3542, 2406,3445,0303,4174,4007,0530,0000,0000,0000
U 2406, 3542,0111,1504,4174,4007,0700,0000,0000,0000
U 2407, 2410,4571,1203,4374,4007,0700,0000,0024,1240
U 2410, 3570,3111,0403,4174,4007,0700,0010,0000,0000
U 2411, 2412,3771,0016,4364,4007,0700,0200,0000,0002
U 2412, 3565,0551,1005,4374,4007,0701,0010,0000,0100
U 2413, 3543,0111,0504,4174,4007,0700,0200,0024,1016
U 3543, 2414,3771,0005,4365,5007,0331,0200,0000,0002
U 2414, 3544,4557,1606,4374,4007,0701,0000,0000,0774
U 2415, 0104,4751,1217,4374,4007,0700,0000,0000,0102
U 3544, 3545,3447,0606,4174,4007,0700,0000,0000,0000
U 3545, 3537,0111,0605,4174,4007,0700,0200,0024,0012

7479
7480
7481
7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
7492
7493
7494
7495
7496
7497
7498
7499
7500
7501
7502
7503
7504
7505

KS10 MICROCODE V124. 27-JUL-84 Page 207
10 -- INTERNAL DEVICES -- SUBROUTINES
;HERE TO PROCESS A VECTORED INTERRUPT. AT THIS POINT:
AR/ WRU BITS (BIT 18 FOR DEVICE 0)
,
ARX/ 0
VECINT: [AR] [AR]*2,
;SHIFT LEFT (UNSHIFTED ON DP)
SKIP-DP18
;ANYONE THERE?
[ARX] [ARX]+[XWD1],
=0
;NO--BUMP BOTH HALVES
J/VECINT
;KEEP LOOKING
[AR] VMA 10 READ,
;SETUP FOR VECTOR CYCLE
VECTOR CYCLE/1
=0
[AR] [AR].OR.[ARX],
;PUT IN UNIT NUMBER
CALL-[ STRTIO]
;START CYCLE
MEM READ,
;WAIT FOR VECTOR (SEE DPM5)
[TO] 10 DATA
;GET VECTOR
[BR]-[EBR]+#, 3T, #/100,
=0
;EPT+100
CALL-[CLARXL]
;CLEAR ARX LEFT
[ARX] [ARX]+[BR],
; EPT+100+DEVICE
VMA PHYSICAL READ
;FETCH WORD
MEM READ, [BR] MEM, 3T. ; GET POINTER
SKIP ADR.EQ.O ;SEE IF NON-ZERO
=0
[BRX] ([TO].AND.#)*.5, 3T, ;OK--MAKE VECTOR MOD 400
#/774-: J/VECIN1
; AND SHIFT OVER
HALT [ILLINT]
VECIN1: [BRX] [BRX]*.5
SHIFT 1 MORE PLACE
[BR] TBR]+[BRX].
ADDRESS OF WORD TO USE
LOAD-VMA, FORCE EXEC.
FORCE EXEC VIRTUAL ADDRESS
START READ, J/PI50
GO GET INSTRUCTION

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

11;45 11-AUG-1984
09;1727-JULY-1984

MICRO 31(254)

U 2416, 3546,3771,0005,4374,4007,0700,0000,0004,0000
U 2417, 0004,4443 ;0000,417 4,4004, 1700,0000,0000,0000
U 3546, 2420,4113,0514,4174,4007,0330,0000,0000,0000
U 2420, 0004,5111,0514,4170,4004,1700,0000,0000,0000
U 2421, 3546,3447,0505,4174,4007,0700,0000,0000,0000

7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520

KS10 MICROCODE V124, 27-JUL-84 Page 208
PRIORITY INTERRUPTS ~- DISMISS SUBROUTINE
.TOC

"PRIORITY INTERRUPTS -- DISMISS SUBROUTINE"

;SUBROUTINE TO DISMISS THE HIGHEST PI IN PROGRESS
;RETURNS 4 ALWAYS
;DISMISS:
TR [PI], #/077400
;ANY PI IN PROGRESS?
=0
JEN1:
[BR] #, PI.IP1/1, J/DSMS1 ;YES--START LOOP
RETURN [4]
;NO--JUST RETURN
DSMS1:
=0

[PI].AND.[BR], SKIP ADR.EQ.O
IPI] [PI].AND.NOT.[BR), HOLD LEFT, RETURN [4]
[BR]-[BR]*.5, J/DSMS1

T10KI .MCR[ 10, 1141]
INOUT.MIC[10,1141]

11: 45 11-AUG-1984
09: 17 27-JULY-1984

MICRO 31(254)

D 0710, 1210,1614,0100
D 0711, 1214,1614,0100
D 0720, 1200,1614,0100
D 0721, 1204,1614,0100

U 1614, 2422,4443,0000,4174,4007,0700,0010,0000,0000
U 1617, 0014,4551,0305,0274,4003,7700,0000,0000,0000

~

az
I0

1210,1460,0100
D 0713, 1210,1461,0100
D 0722, 1200,1460,0100
D 0723, 1200,1461,0100

0 0712,

~

,~

~

.t

U 1460, 2422,4443,0000,4174,4007,0700,0010,0000,0000
U 1463, 1400,3440,0303,0174;4007,0700,0400,0000,0000

~
g
~

U 1461, 2432,3771,0005,0276,6007,0700,0000,0000,0000

w

-,e
~
g

~
j

D 0714,
D 0715,
0 0724,
D 0725,

1210,1644,0100
1214,1644,0100
1200,1644,0100
1204,1644,0100

I
g

I
.t

U 1644, 2422,3441,0306,4174,4007,0700,0010,0000,0000
U 1647, 1013,3441,0305,4174,4003,7700,0000,0000,0000
U 1013. 3547.3551,0505.0274,4007.0700,0000,0000,0000
U 1017, 3547.5551.0505,0274,4007,0700,0000,0000,0000
U 3547, 2432,3441,0603,4174,4007,0700,0000,0000,0000

7521
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

KS10 MICROCODE V124, 27-JUL-84
EXTERNAL 10 INSTRUCTIONS

Page 209

.TOC

"EXTERNAL 10 INSTRUCTIONS"

710:
711 :
720:
721 :

.DCODE
IOT,
lOT,
IOT,
lOT,
.UCODE

1614:
TIOX:
1617:

CALL [ IORD]
[BR] [AR].AND.AC, TEST DISP

712:
713:
722:
723:

.DCODE
IOT,
lOT,
lOT,
lOT,
.UCODE

1460:
RDIO:
1463:

CALL [ IORO]
AC_[AR] , J/DONE

1461 :
WRIO:

[BR] _AC, J/IOWR

714:
715:
724:
725:

.DCODE
lOT,
lOT,
lOT,
lOT,
.UCODE

1644:
BIXUB:
1647:
= 1011

WORD-TNE,
WORD-TNN,
TNE,
TNN,

J/RDIO
J/WRIO
J/RDIO
J/WRIO

B/10,
B/10,
B/O,
B/O,

B/10,
B/14,
B/O,
B/4,

[BRX] [AR],
CALL nORD]
[BRL[AR] ,
B DISP
[BRL[BR] .OR.AC,
J/BIXUB1
[BR]_[BR].AND.NOT.AC,
J/BIXUB1

BIXUB1: [ARL[BRX] ,
J/IOWR

J/TIOX
J/TIOX
J/TIOX
J/TIOX

J/BIXUB
J/BIXUB
J/BIXUB
J/BIXUB

;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
,
;RESTORE ADDRESS

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

11:45 11-AUG-1984
09: 17 27-JULY-1984

MICRO 31(254)

U 2422, 2442,4443,0000,4174,4137,0700,0010,0000,0000
U 2423, 0067,4443,0000,4174,4003,7700,0000,0000,0000
U 0067, 2424,4571,1205,4374,4007,0700,0000,0024,1220
U 0077, 2424,4571,1205,4374,4007,0700,0000,0024,1200

U 2424, 3560,3113,0305,4174,4007,0701,0210,0000,0036
U 2425, 1027,3771,0005,4364,4003,7700,0200,0000,0002
U 1027, 2426,4553,0300,4374,4007,0331,0000,0000,0001
U 1037, 0003,3441,0503,4174,4004,1700,0000,0000,0000

U 2426, 2430,3447,0505,4174,4007,0700,2000,0071,0005
U 2427, 0003,4551,0503,4374,4004,1700,0000,0000,0377

U 2430, 2430,3447,0505,4174,4007,0630,2000,0060,0000
U 2431, 0003,4551,0503,4374,4004,1700,0000,0000,0377

7568
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

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 WITH WORD OR BYTE IN AR
=0
lORD:
=10111

CLR IO BUSY,
CALL [IOEA]
B DISP
[BR] VMA 10 READ,
10 BYTE I 1,

J/IORD1
=11111
=0
lORD 1 :

=0111

[BR]_VMA 10 READ

;BYTE MODE
; SET BYTE FLAG
;GO DO CIA CYCLE
;WORD MODE

VMA [AR].OR.[BR] WITH FLAGS,
;WAIT FOR THINGS COMPLETE
CALL [IOWAIT]
MEM READ,
;MAKE SURE REALLY READY
[BR] IO 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
IORD2:
[BR] [BR]*.5, SC_5,

J/IORD3
[AR] [BR] .AND.#,

#/377, RETURN [3]
=0
IORD3:

;CLEAR BUSY
;COMPUTE 10 EA

[BR] [BR]*.5,
STEP-SC, J/IORD3
[AR] [BR] .AND.#,
#/377, RETURN [3]

LEFT BYTE
GO SHIFT IT
MASK IT
ALL DONE
SHIFT OVER
MASK IT
ALL DONE

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

U
U
U
U

2432,
2433,
0227,
0237,

11:45 l1-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

2442,4443,0000,4174,4137,0700,0010,0000,0000
0227,4443,0000,4174,4003,7700,0000,0000,0000
2436,4553,0300,4374,4007,0331,0000,0000,0001
3550,4571,1204,4374,4007,0700,0000,0021,1200

U 3550, 2434,3113,0304,4174,4007,0701,0200,0000,0036
U 2434, 3560,3333,0005,4175,5007,0701,0210,0000,0002
U 2435, 0110,3443,0100,4174,4156,4700,0200,0014,0012

U 2436, 2440,3445,0505,4174,4007,0700,2000,0071,0005
U 2437, 3550,4571,1204,4374,4007,0700,0000,0021,1220

U 2440, 2440,3445,0505,4174,4007,0630,2000,0060,0000
U 2441, 3550,4571,1204,4374,4007,0700,0000,0021,1220

7605
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

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 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
[ARX] VMA 10 WRITE,
10 BYTE/1, J/IOWR1

ODD--MOVE LEFT
SETUP FLAGS

SHIFT LEFT
KEEP SHIFTING
SETUP FLAGS

~/
\

T10KI.MCR[10,l141]
I NOUT . MI C [ 10. 1 14 1 ]

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 2442, 3562,1113,0701,4170,4007,0700,4210,0004,0012
U 2443, 3551,7441,0306,4174,4007,0700,0000,0000,0000
U 3551, 2444,4553,0600,4374,4007,0321,0000,0070,0000
U 2444, 2446,4553,0200,4374,4007,0321,0000,0000,0020
U 2445, 2444,4713,1203,7174,4007,0700,0400,0000,0422
U 2446, 3552,3771,0003,7274,4007,0701,0000,0000,0422
U 2447, 1055,4443,0000,2174,4006,6700,0000,0000,0000
U 1055, 2452,3771,0004,2274,4007,0120,0000,0000,0000
U 1057, 0001,3771,0003,7274,4124,1701,0000,0000,0422
U
U
U
U

3552,
3553,
2450,
2451,

3553,3333,0002,4174,4217,0700,0000,0000,0000
2450,4553,0200,4374,4007,0321,0000,0000,0017
2451,0551,0303,2270,4007,0701,0000,0000,0000
3554,3443,0300,4174,4007.0700,0200,0004,0012

U 3554, 0001,3771,0003,4365,5124,1700,0200,0000,0002

U 2452, 0001,0551,0403,7274,4124,1701,0000,0000,0422

U 2453, 3555,0551,0403,7274,4007,0701,0000,0000,0422
U 3555, 0001,4221,0003,4174,0124,1700,0000,0000,0000

7637
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

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
=0
IDEA:

=0
IDEAl:
=0
IOEA2:
=1101

IOEAI:
=0

=0
IOEAX:

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

TL [HR1, #/20, J/IOEA2 ; INDIRECT?
WORK[YSAVE] [AR] CLR LH, ;DIRECT 10 INSTRUCTION
J/IOEAl
;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 10 LATCH, RETURN [lJ

;@--GET SAVED Y
;GET Y AND GO
;WAS THERE INDEXING?
;SEE IF LOCAL OR GLOBAL INDEXING
, .,
;JUST PLAIN 10

READ [HR], DBUS/OP,
;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]
[AR] [ARX]+WORK[YSAVEJ, ;GLOBAL INDEXING
CLR 10 LATCH, RETURN [lJ
[AR] [ARX]+WORK[YSAVE]
;LOCAL INDEXING
[ARJ-O, HOLD RIGHT,
CLR 10 LATCH. RETURN [lJ

T10KI.MCR[10,1141]
INOUT.MIC[10,1141]

U 3560,

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

1074,3771,0016,4354,4007,0650,2000,0071,0200

U 1074, 3561,3333,0016,7174,4127,0700,0400,0000,0210
U 1075, 1074,4443,0000,4174,4006,7653,2000,0060,0000
U 1076, 3561,3333,0016,7174,4127,0700,0400,0000,0210
U 1077, 2457,3333,0016,7174,4007,0700,0400,0000,0210
U 3561, 2454,4443,0000,4174,4007,0650,2000,0071,0777
U 2454, 2456.4443,0000,4174,4127,0630,2000,0060,0000
U 2455, 0001,4443,0000,4174,4004,1700,0000,0000,0000

U 2456, 2454,4443,0000,4174,4127,0653,0000,0000,0000
U 2457, 3664,4571,1206,4374,4007,0700,0000,0020,O~00

7677
7678
7679
7680
7681
7682
7683
7684
7685
7686
7687
7688
7689
7690
7691
7692
7693
7694
7695
7696
7697
7698
7699
7700
7701
7702
7703
7704
7705
7706
7707
7708

KS10 MICROCODE V124. 27-JUL-84
EXTERNAL 10 INSTRUCTIONS

Page 213

;WAIT FOR ro TO COMPLETE
;RETURNS 1 OR PAGE FAILS
,
IDWAIT: SC S#, S#/200,
;DELAY
[TO] VMA,
;GET VMA
SKIP7-1O BUSY
;SEE IF BUSY YET
=00
IOW1 :
CLR 10 LATCH,
;WENT BUSY
WORK[SV.VMA] [TO],
;MAKE SURE SV.VMA IS SETUP
J/IOW2
;WAIT FOR IT TO CLEAR
SC SC-1, SCAD DISP, 5T, ;SEE IF DONE YET
SKlp/-1O BUSY,
J/IOW1
;BACK TO LOOP
CLR 10 LATCH,
;WENT BUSY AND TIMEOUT
WORK[SV.VMA] [TO],
;MAKE SURE SV.VMA IS SETUP
J/IOW2
WORK[SV.VMA] [TO),
;MAKE SURE SV.VMA IS SETUP
J/IOW5
;GO TRAP
IOW2:
=0
IOW3:

=0
IOW4:
rOW5:

SC S#, S#/777 ,
SKlp/-1O BUSY

;GO TIME 10

CLR 10 LATCH,
STEP SC, J/IOW4
RETURN [1]

;TRY TO CLEAR LATCH
; STILL BUSY
; IDLE

CLR 10 LATCH, 5T,
;TRY TO CLEAR LATCH
SKIP/-IO BUSY,
;SEE IF STILL BUSY
J/IOW3
[BRX] [200000] XWD 0, J/HARD

Tl0KI.MCR[10,l141]
INOUT.MIC[10,l141]

11:45 l1-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 3562, 0001,3771,0003,4365,5004,1700,0200,0000,0002
U 3563, 0001,3771,0004,4365,5004,1700,0200,0000,0002
U 3564, 0001,3772,0000,4365,5004,1700,0200,0000,0002
U 3565, 0001,4221,0004,4174,0004,1700,0000,0000,0000
U 3566, 0001.0111,0703,4174,4004,1700,0000,0000,0000
U 3567, 0001,3445,0505,4174,4004,1700,0000,0000,0000
U 3570, 0001,3443,0300,4174,4004,1701,0200,0000,0036
U 3571, 0004,3333,0005,4175,5004,1701,0200,0000,0002
U 3572, 0001,3333,0001,4175,5004,1701,0200,0000,0002
U 3573, 0001,3440,0404,0174,4004,1700,0400,0000,0000

7709
7710
7711
7712
7713
7714
7715
7716
7717
7718
7719
7720
7721
7722
7723
7724
7725
7726
7727
7728
7729
7730
7731
7732

KS10 MICROCODE V124, 27-JUL-84
SMALL SUBROUTINES
.TOC

Page 214

"SMALL SUBROUTINES"

;HERE ARE A COLLECTION ON i-LINE SUBROUTINES
LOADAR: MEM READ, [ARLMEM,
;FROM MEMORY TO AR
RETURN [1]
;RETURN TO CALLER
LOADARX: MEM READ, [ARXLMEM, RETURN [ 1 ]
LO~DQ:

MEM READ, Q_MEM, RETURN [1]

CLARXL: [ARXLO, 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]

T10KI.MCR[10.1141]
INOUT .MIC[ 10.1141]

0 0703. 0003,1650.2100

D 0706. 0006,1650,2100
0 0707. 0007. 1650.2100
0 0716. 0006,1651.2100
0 0717. 0007.1651.2100

D 0726. 0006.1652.2100

0 0727. 0007.1652.2100
0
0
0
0
0
0
0

0730.
0731.
0732.
0733.
0734.
0735.
0736,
D 0737.

0000.1653.2100
0001.1653.2100
0002.1653.2100
0003.1653.2100
0004.1653.2100
0005.1653.2100
0006,1653.2100
0007.1653,2100

0
0
0
0
0
0

0740.
0 741,
0742.
0743.
0744.
0745,
D 0746.
D 0747.

0000.1654.2100
0001,1654.2100
0002,1654.2100
0003.1654.2100
0004.1654.2100
0005,1654.2100
0006,1654.2100
0007.1654.2100

0 0750.
D 0751.
0 0752.
D 0753,
D 0754,
D 0755,
D 0756.
D 0757,

0000.1655.2100
0001.1655.2100
0002.1655.2100
0003.1655,2100
0004,1655,2100
0005,1655.2100
0006.1655,2100
0007,1655.2100

D 0760, 0000,1656,2100
D 0761, 0001,1656.2100
D 0762, 0002.1656.2100
o 0763, 0003,1656,2100
o 0764. 0004.1656.2100
o 0765, 0005,1656.2100
o 0766. 0006.1656,2100
D 0767, 0007,1656,2100

11:45 11-AUG-1984
09: 17 27-JULY-1984

MICRO 31(254)"

KS10 MICROCODE V124, 27-JUL-84
UNDEFINED 10 INSTRUCTIONS

7733 .TOC
7734
7735
7736 703:
7737 706:
7738
7739
7740 716:
7741
7742
7743 726:
7744
7745
7746 730:
7747
7748
7749
7750
7751
7752
7753
7754
7755 740:
7756
7757
7758
7759
7760
7761
7762
7763
7764 750:
7765
7766
7767
7768 .
7769
7770
7771
7772
7773 760:
7774
7775
7776
7777
7778
7779
7780
7781

Page 215

"UNDEFINED 10 INSTRUCTIONS"
.DCOOE
I •
I.

B/3.
B/6.
B/7.

J/IOT700
J/IOT700
J/IOT700

I.
I.

B/6.
B/7.

J/IOT710
J/IOT710

I.
I.

B/6.
B/7.

J/IOT720
J/IOT720

I,

I .

B/O.
B/1.
B/2.
B/3.
B/4.
B/5.
B/6.
B/7.

J/IOT730
J/IOT730
J/IOT730
J/IOT730
J/IOT730
J/IOT730
J/IOT730
J/IOT730

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/IOT740
J/IOT740
J/IOT740
J/IOT740
J/IOT740
J/IOT740
J/IOT740
J/IOT740

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/IOT750
J/IOT750
J/IOT750
J/IOT750
J/IOT750
J/IOT750
J/IOT750
J/IOT750

I,
I.
I,
I,
I.
I.
I.

B/O, .
B/1,
B/2.
B/3.
B/4.
B/5.
B/6.
B/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,

Tl0KI.MCR[10,1141]
INOUT.MIC[10,1141]
D
D
D
D
D
D

0770,
0771,
0772,
0773,
0774,
0775,
D 0776,
D 0777,

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

0000,1657,2100
0001,1657,2100
0002,1657,2100
0003,1657,2100
0004,1657,2100
0005,1657,2100
0006,1657,2100
0007,1657,2100

U 1650, 2621,4551,0202,4374,0007,0700,0000,0077,7740
;
;
;
.,
U 1651, 0670,4443,0000,4174,4007,0700,0000,0000,0000

U 1652, 2621,4551,0202,4374,0007,0700,0000,0077,7740 I
U 1653, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1654, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1655, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1656, 2621,4551,0202,4374,0007,0700,0000,0077,7740
U 1657, 2621,4551,0202,4374,0007,0700,0000,0077,7740

7782
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

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/UBABLT
UUO
.IF/UBABLT
J/BLTX
.ENDIF/UBABLT
1652:
I0T720: UUO
1653:
I0T730: UUO
1654:
IOT740: UUO
1655:
IOT750: UUO
1656:
IOT760: UUO
1657:
IOT770: UUO

B/O.
B/1,
B/2,
B/3,
B/4,
B/5,
B/6,
B/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

T10KI.MCR[10,1141]
INOUT .MIC[ 10',1141]

11:45 11-AUG-1984
09: 17 27-JULY-1984

MICRO 31(254)

D 0704, 1200.1754,0100
D 0705, 1200,1755,0100

U 1754, 3574,3443,0300,4174,4207,0700,0200,0004,0012
U 3574, 1515,3771,0003,4365,5007,0700,0200,0000,0002

U 1755, 3575,3443,0300,4174,4207,0700,0200,0003,0012
U 3575, 1516,3771,0003,0276,6007,0700,0000,0000,0000

7814
7815
7816
7817
7818
7819
7820
7821
7822
7823
7824
7825
7826
7827
7828
7829
7830
7831
7832
7833
7834
7835

KS10 MICROCODE V124, 27-JUL-84
UMOVE AND UMOVEM
.TOC
704:

1754:
UMOVE:

Page 217

"UMOVE AND UMOVEM"
.DCODE
IDT,
lOT,
.UCODE

J/UMOVE
J/UMOVEM

VMA [AR],
START READ,
SPEC/PREV
MEM READ,
[AR] MEM,
J/STAC

1755:
UMOVEM: VMA [AR],
START WRITE,
SPEC/PREV
[AR] 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 10K I . MC R [ 10, 114 1 j
INOUT.MIC[10,1141j

11:45 11-AUG-1984
09:1727-JULY-1984

MICRO 31(254)

U 0104, 3600,3333,0004,7174,4007,0700,0410,0000,0212
U 0114, 3577,4223,0000,4364,4277,0700,0210,0000,0010
U 0116, 3576,4221,0004,4174,4007,0700,0200,0021,1016
U 3576, 2460,3333,0017,4175,5007,0701,0200,0000,0002
U 2460, 3572,0111,0704,4170,4007,0700,0210,0023,1016
U 2461, 0005,4443,0000,4174,4107,0700,0000,0000,0074

U 0004, 2462,4443,0000,4174,4107,0640,0000,0000,0062
U 0005, 0004,4443,0000,4174,4007,0660,0000,0000,0000

U 2462, 0117,3443,0100,4174,4007,0700,0200,0014,0012
U 2463, 2464,4571,1203,4374,4007,0700,0000,0024,1200
U 2464, 3570,3551,0303,4370,4007,0700,0010,0020,0000

U

~465,

2600,3771,0002,4365,5617,0700,0200,0000,0002

7836
7837
7838
7839
7840
784'1
" 7842
7843
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

KS10 MICROCODE V124, 17-JUL-84
UMOVE AND UMOVEM

Page 218

;HERE WITH HALT CODE IN THE T1
=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 (WRTHSBj
;WRITE HALT STATUS BLOCK
= 111 *
PWRON:
[ARX]_O, VMA PHYSICAL WRITE ;STORE HALT CODE
=0
H1:
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 CONSOLE
;SEE IF CO OR EX

5:

HALTLP: SKIP/-CONTINUE, J/4
=0
CONT:

VMA [PC],
FETCH,

=0
CONT1:

J/XCTGO
[AR] VMA 10 READ
[ARj-[ARj.OR.#,
#/200000, HOLD LEFT,
CALL [STRTIO]
MEM READ,
[HR] MEM,
LOAD-INST,
J!XCT1

;WAIT FOR CONTINUE
;LOAD PC INTO VMA
;START READ
;00 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

Tl0KI.MCR[10.1141)
.INOUT .MIC[ 10,1141]

~

a
Ii

...
0

m

"~
11'

;t

;
'g

i
w

.,

~

.ii
~

E
~

)
11

i
.t

11:45 ll-AUG-1984
09:1727-0ULY-1984

MICRO 31(254)
7869
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

KS10 MICROCODE V124, 27-0UL-84
WRITE HALT STATUS BLOCK
.TOC

Page 219

"WRITE HALT STATUS BLOCK"

;THE HALT STATUS BLOCK LOOKS LIKE:

!=======================================================!
tOO!

MAG

!-------------------------------------------------------I
!01!
PC
!-------------------------------------------------------I
!02!
HR
!-------------------------------------------------------I
!03!
AR
!-------------------------------------------------------I
!04!
ARX
!
!-------------------------------------------------------I
!05!
BR
1
!-------------------------------------------------------I
!06!
BRX
!-------------------------------------------------------I
!07!
ONE
!
!-------------------------------------------------------I
!10!
EBR
!
!-------------------------------------------------------I
!11!
UBR
!-------------------------------------------------------I
! 12!
MASK
!-------------------------------------------------------I
!13!
FLG
1
!-----------------------------------~-------------------I

! 14!

PI

!-------------------------------------------------------I
!15!
XWDl
I
!-------------------------------------------------------I
!16!
TO
!-------------------------------------------------------I'
! 17!
T1
!

!=======================================================!
VMA FLAGS
VMA
!=======================================================!

T10KI .MCR[ 10,1141]
INOUT.MIC[10,1141]

U
U
U
U

0001,
0011,
0224,
0226,

11:45 11-AUG-1984
09: 17 27-JULY-1984

MICRO 31(254)

3600,3333,0004,7174,4007,0700,0410,0000,0212
0224,3771,0004,7274,4007,0701,0000,0000,0227
360'2,4223,0000,4364,4277,0700,0210,0000,0010
2461,4443,0000,4174,4107,0700,0000,0000,0074

U 3577, 2466,3771,0004,7274,4007,0422,0000,0000,0227
U 2466, 3602,3333,0012,4174,4437,0700,0000,0000,0000
U 2467, 0002,3771,0004,7274,4004,1701,0000,0000,0212
U 3600, 3601,3771,0004,4354,4007,0700,0000,0000,0000
U 3601, 0010,3333,0004,7174,4004,1700,0400,0000,0210

7909
7910
79,11
7912
7913
7914
7915
7916
7917
7918
7919
7920
7921
7922
7923
7924
7925
7926
7927

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] [ARX],
;SAVE TEMP REGISTER
CALL [SAVVMA]
;WORK[SV.VMA]_VMA
11:
[ARxl WORK[HSBADR]
=10*
ABORT-MEM CYCLE, CALL [DUMP]
SET HALT, J/H1
WRTHSB: [ARX] WORK[HSBADR], ;GET ADDRESS OF HSB
SKIP AD.LE.O. 4T
;SEE IF VALID
=0
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[5V.VMA] [ARX].
RETURN [10]

T10KI.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

3602,
2341,
2343,
3603,
2470,
2472,
2471,
2473,
2474,
2476,
3604,
2475,
2477,
3605,
2500,
2502,
3606,
2501,
2503,
3607,
2504,
2506,
3610,
2505,
2507,
2510,
2512,
3611,
3612,
3613,

11:45 11-AUG-1984
09:1727-vULY-1984

MICRO 31(254)

2341,3333,0004,4174,4007,0700,0200,0021,1016
2630,3333,0000,4175,5007,0701,0210,0000,0002
3603,3333,0001,4175,5007,0701,0200,0000,0002
2470,0111,0704,4170,4007,0700,0200,0023,1016
2630,3333,0002,4175,5007,0701,0210,0000,0002
2471,3333,0003,4175,5007,0701,0200,0000,0002
2630,3333,0003,7174,4007,0700,0410,0000,0211
2474,3771,0003,7274,4007,0701,0000,0000,0212
2630,3333,0003,4175,5007,0701,0210,0000,0002
3604,3333,0005,4175,5007,0701,0200,0000,0002
2475,0111,0704,4170,4007,0700,0200,0023,1016
2630,3333,0006,4175,5007,0701,0210,0000,0002
3605,3333,0007,4175,5007,0701,0200,0000,0002
2500,0111,0704,4170,4007,0700,0200,0023,1016
2630,3333,0010,4175,5007,0701,0210,0000,0002
3606,3333,0011,4175,5007,0701,0200,0000,0002
2501,0111,0704,4170,4007,0700,0200,0023,1016
2630,3333,0012,4175,5007,0701,0210,0000,0002
3607,3333,0013,4175,5007,0701,0200,0000,0002
2504,0111,0704,4170,4007,0700,0200,0023,1016
2630,3333,0014,4175,5007,0701,0210,0000,0002
3610,3333,0015,4175,5007,0701,0200,0000,0002
2505,0111,0704,4170,4007,0700,0200,0023,1016
2630,3333,0016,4175,5007,0701,0210,0000,0002
2510,3333,0017,4175,5007,0701,0200,0000,0002
2630,3771,0003,7274,4007,0701,0010,0000,0210
3611,3333,0003,4175,5007,0701,0200,0000,0002
3612,3771,0003,7274,4007,0701,0000,0000,0211
3613,3771,0004,7274,4007,0701,0000,0000,0210
3614,3443,0400,4174,4007,0700,0200,0000,0010

U 3614, 0006,3771,0004,7274,4004,1701,0000,0000,0212

7928
7929
7930
7931
7932
7933
7934
7935
7936
7937
7938
7939
7940
7941
7942
7943
7944
7945
7946
7947
7948
7949
7950
7951
7952
7953
7954
7955
7956
7957
7958
7959
7960
7961

KS10 MICROCODE V124, 27-vUL-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]
MEM WRITE, MEM [AR], CALL [NEXT}
=0*
MEM WRITE, MEM-[BR]
NEXT [ARX] PHYSICAL WRITE
=0*
M~M 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]
=0*
[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
,

)

-

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]
7962
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
79813
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998
7999
8000
8001
; 8002
; ;8003
; ;8004
; 8005
; 8006

.NOBIN
.TOC

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

KS10 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
; ou::i 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
.IF/INHCST
SKIP NO CST
.ENDIF/INHCST

FLG BIT 5
FLG BIT 18
FLG BITS 32-35
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 CDRE-STATUS-TABLE
BITS TO KEEP ON CST UPDATE
BITS TO SET ON CST UPDATE
WHERE THIS PAGE TABLE IS LOCATED
RESULT OF THIS PROCESS
CORE STATUS TABLE ENTRY
WORD FROM SPT
WORD FROM PT
INDEX INTO CURENT PAGE TABLE
WHAT HAPPENED (ALSO MAP RESULT)

"AD/D,DBUS/RAM,RAMADR/#,WORK/CBR,DT/4T,SKIP/ADEQO"

11:45 11-AUG-1984
12:32 26-JULY-1984

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]
8007
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

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!IIIIIIIII!
!010 ! ! ! ! !IIIIIIIII!

PAGE TABLE IDENTIFIER
(SPT INDEX)

!

+----+-+-+-+-+---------+-------------------------+
NORMAL SECTION POINTER (Code

o

2 3 4 5 6

9

= 2)

18

35

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

!CODE!P!W! !C!III!SECTION
!SECTION TABLE IDENTIFIER!
!011 ! ! ! ! !llllTABLE INDEX!
(SPT INDEX)

+----+-+-+-+-+---+-----------+------------------------+
INDIRECT SECTION POINTER (Code

= 3)

Page 223

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]
8042
8043
8044
8045
8046
8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
8059
8060
8061
8062
8063
8064
8065
8066
8067
8068
8069
8070
8071
8072
8073
8074

11:45 11-AUG-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

35

12

+----+-+-+-+-+----+------------------------------+
!CODE!P!W! !C!IIII!
!001 ! ! ! ! !IIII!

PHYSICAL ADDRESS OF PAGE

+----+-+-+-+-+----+------------------------------+
IMMEDIATE POINTER (code field
B12-35
if
if

= 1)

give PHYSICAL ADDRESS OF PAGE
B12-17 >< 0, page not in core-trap
B12-17 = 0, B23-35 give CORE PAGE
NUMBER of page, B18-22 MBZ

18
35.
2 3
6
o
+-----+-------+---------+------------------------+
!CODE !SAME AS!IIIIIIIII!
!010 ! IMMED. !IIIIIIIII!

SPT INDEX

+-----+-------+---------+------------------------+
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

Tl0KI.MCR[10,1141]
PAGEF.MIC[10,1141]

~

E
~

~;;
if

~

;t

~
"8
~

~

iU

,~

Ji

.E
g

~

;

~

~

'"

I
.t

8075
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

o

11:45 11-AUG-1984
12:32 26-JULY-1984

1 2 3

6

9

MICRO 31(254)

17 18

KS10 MICROCODE V124. 27-JUL-84
PAGE FAIL REFIL LOGIC
35

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

!CODE!SAME AS !///! PAGE
! PAGE TABLE IDENTIFIER!
!011 ! IMMED. !///!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
+--------------------+---------------------------+
!////////////////////! PHYSICAL ADDRESS OF PAGE!
!////////////////////!
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

~
"

"

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]
8104
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

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

MICRO 31(254)

11:45 11-AUG-1984
12:32 26-JULY-1984

;PHYSICAL STORAGE ADDRESS
,
;Found in B12-35 of IMMEDIATE POINTERS and SPT ENTRIES.
17 18

12

35

23

+---------+----+-----------------+
!MBZ ! CORE PAGE NUMBER!
!

!!

IFB12-17=0!

+---------+----+-----------------+
If B12-17 = 0, then B23-35 are CORE PAGE NUMBER (i.e.,
B14-26 ~f physical core address) of page and B18-22
MBZ.
If B12-17 >< 0, then address is not core and
pager traps.
,
;CORE STATUS TABLE ENTRY
,
;Found when fetching C(CBR

o

+ CORE

PAGENO)
32

5

34 35

+-------+-------------------------------+------+-+
!
CODE!
1M!
+-------+-------------------------------+------+-+
BO-5

are code field:

o -

unavailable, trap

1-77 - available

B32-34 reserved for future hardware specification.
B35 is "modified" bit, set on any write ref to page.

Page 226

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]

~

a

~

i<;
If
~

l!

t

!
-j
b

~

..
I

.i

!
E

~

I
Ii

I
II:

8142
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
81"70
8171
8172
8173
8174
8175
8176
8177
8178
8179
8180
8181
8182
8183

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

;QUANTITIES IN HARDWARE REGISTERS
;SPT

SPT Base Register
14

35

+--------------------------------+
PHYSICAL CORE WORD ADDRESS
!
,
;CBR

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

CST Base Register
14

35

+--------------------------------+
!
PHYSICAL CORE WORD ADDRESS
!
+--------------------------------+
;CSTMSK

CST Update Mask

o

32

35

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

!

M A S K ! iii! 1 !

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

ANDed w1th CST word during update
;(B32-35 must be alIi's to preserve existing CST information)
,
;CSTDATA CST Update Data

o

32 34 35

+------------------------------------------+---+-+
!
DATA
!OOO!O!
+------------------------------------------+---+-+
IORed with CST word during update

;(B32-35 must be all O's to preserve existing'CST information)

,

;All unspecified bits
;specification by DEC.

and

fields

are

reserved

for

future

Page 227

~

T10K! .MCR[ 10.1141]
PAGEF.MIC[10,1141]

f~

!

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

D 0257, 1215,1553,0100

U 1553, 3615,3551,0303,4374,0007,0700,0000,0016,0000
U 3615, 3616,3771,0006,4354,4007,0700,0000,0000,0000
U
U
U
U
U
U

3616,
3617,
3620,
3621,
2514,
2515,

3617,4551,0606,4374,0007,0700,0000,0040,0000
3620,3333,0006,7174,4007,0700,0400,0000,0210
3621,3771,0005,7274,4007,0701,0000,0000,0230
2514,4553,0500,4374,4007,0331,0000,0003,0000
3631,3771,0013,4370,4007,0700,0000,0040,0002
0100,3440,0303,0174,4156,4700,0400,0000,0000

U
U
U
U

3777,
3622,
3623,
3624,

3622,3333,0003,7174,4007,0700,0400,0000,0211
3623,3333,0006,7174,4007,0700,0400,0000,0214
3624,3771,0006,4354,4007,0700,0000,0000,9000
3625,3333,0006,7174,4007,0700,0400,0000,0210

U 3625, 1060,3333,0004,7174,4007,0370,0400,0000,0212

U 1060, 1060,3773,0000,4304,4003,1702,0000,0000,0000
U 1061, 3666,3333,0005,7174,4007,0700,0400,0000,0213

U 1063, 3626,3771,0006,4374,4007,0700,0000,0000,0000
U 1065, 3664,4571,1206,4374,4007,0700,0000,0037,0000
U 1067, 3664,4571,1206,4374,4007,0700,0000,0037,0600
U 1070, 3631,3333,0005,7174,4007,0700,0400,0000,0213
U 1071, 3666,3333,0005,7174,4007,0700,0400,0000,0213
U 1072, 3631,3333,0005,7174,4007,0700,0400,0000,0213
U 1073, 3631,3333,0005,7174,4007,0700,0400,0000,0213

U 3626, 3627,3333,0006,7174,4007,0700,0400,0000,0160
U 3627, 3630,3333,0006,7174,4007,0700,0400,0000,0161

8184
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

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 228

.BIN
.DCODE
257:

lOT,

AC,

J/MAP

.UCODE
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 IN 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 VALID (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
PFD:
DBM/PF DISP, DBUS/DBM,
;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
=0011
;(3) BAD DATA FROM MEMORY
[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

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3630, 3664,4571,1206.4374,4007.0700,0000.0036,0000

8240
8241

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 228-1

[BRxj [360000] XWD 0, J/HARD

T 10K I . MC R [ 10, 1 1 4 1 ]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3631, 3632,4223,0000,4364,4277,0700,0200,0000,0010
U 3632, 3633,3551,1313,4374,0007,0700,0000,0002,4000
U 3633, 2516,4553,0600,4374,4007,0321,0000,0002,0000
U 2516, 2517,3551,0606,4374,0007,0700,0000,0001,0000
U 2517, 3634,4551,0606,4374,0007,0700,0000,0041,1000

U 3634, 3635,6551,0606,4374,0007,0700,0000,0000,1000
U 3635, 2520,3441,0605,4174,4007,0700,2000,0071,0007

U 2520, 2520,3447,0505,4174,4007,0630,2000,0060,0000
U 2521, 3636,4251,0505,4374,4007,0700,0000,0000,0777

U 3636, 3657,3447,0504,4174,4007,0700,0000,0000,0000

8242
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

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.
PFMAP:
ABORT MEM CYCLE
;CLEAR PAGE FAIL
[FLG] [FLG].OR.#,
;PRESET WAND C TO 1
FLG.w71, FLG.C/1,
;BITS INVOLVED
HOLD RIGHT
;LEAVE RH ALONE
TL [BRX]. WRITE TEST/1
;IS THIS A WRITE TEST?
[BRX] [BRX] .OR.#,
=0
#/10000,
;YES--TURN INTO WRITE REF
HOLD RIGHT
[BRX] [BRX].AND.#,
;START PAGE FAIL WORD
#/411000,
;SAVE 3 INTERESTING BITS
HOLD RIGHT
;SAVE VIRTUAL ADDRESS
;USER ADDR (400000)
;WRITE REF (010000)
;PAGED REF (001000)
;FIX BIT 8
[BRX] [BRX].XOR.#.
#/1000, HOLD RIGHT
;COPY VIRTUAL ADDRESS
[BR] [BRX],
;PREPARE TO SHIFT 9 PLACES
SC_7
=0

PF25:

[BR] [BR]*.5,
STEP-SC,
J/PF25
[BR] [BR] .AND.# CLR LH,
#/777
.IF/KLPAGE
.IF/KIPAGE
TL [EBR],
#/40

;RIGHT ADJUST PAGE #
;COUNT SHIFT STEPS
;LOOP FOR 9
;MASK TO 9 BITS

;KI MODE REFILL?
;FLAG BIT

=0

.ENDIF/KIPAGE
READ [BRX],
SKIP DPO,
J/PF30
.ENDIF/KLPAGE
.IF/KIPAGE
[ARX] [BR1*.5,
J/KIFILL
.ENDIF/KIPAGE

;USER REF? (KL MODE)
;CONTINUE AT PF30
;KI10 MODE REFILL
;GO HANDLE EASY CASE

T 10K I . MC R [ 10, 1 14 1 ]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)
; ;8283
; ;8284
; ;8285
; ;8286
; ;8287
; ;8288
; ;8289
; ;8290
; ;8291
; ;8292
;; 8293
; ;8294
; ;8295
; ;8296
; ;8297
; ;8298
; ;8299
; ;8300
;; 8301
; ;8302
; ;8303
; ;8304
; ;8305
; ; 83a6

I

; ;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

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
;EXEC MODE
[ARX] WORK[PTA.E],
PF30:
; SEE I F VALID
SKIP AD.EQ.O, 4T,
;CONTINUE BELOW
J/PF35
;USER MODE
[ARX] WORK[PTA.U],
;SEE IF VALID
SKIP AD.EQ.O, 4T
; POINTER VALID
VMA [ARX]+[BR],
=0
;START MEMORY
VMA-PHYSICAL READ,
; CONTINUE BELOW
J/PF77
;USER MODE
[AR] [UBR]+#, 3T,
; OFFSET TO UPT
#/540,
; GO GET POINTER
J/PF40
=0
PF35:

; POINTER VALID
VMA [ARX]+[BR],
;START MEMORY
VMA-PHYSICAL READ,
;CONTINUE BELOW
J/PF77
;EXEC MODE
[AR] [EBR] +#, 3T,
;OFFSET TO EPT
#/540
;LOAD THE VMA
VMA [AR],
PF40:
;START THE MEMORY CRANKING
START READ,
;ABSOLUTE ADDRESS
VMA PHYSICAL
;WAIT FOR MEMORY
MEM READ,
;POINT POINTER IN AR
[AR] MEM
;LOOK AT SECTION POINTER AND DISPATCH ON TYPE
=000
;FETCH SECTION 0 POINTER
SC 7,
PF45:
;FIGURE OUT POINTER TYPE
CALL [SETPTR]
;IMMEDIATE POINTER
SECIMM: TL [AR],
;TEST FOR 12-17 = 0
#/77 ,
;CONTINUE AT PF50
J/PF50
; SHARED SECTION
[AR] [AR]+WORK[SBR],
;GO FETCH POINTER FROM SPT
J/SECSHR
;INDIRECT SECTION POINTER
[AR] [AR]+WORK[SBR].
;GO FETCH SPT ENTRY
CALL-[RDPT]
; 12 TO 17 = O?
TL [AR],
= 111
#/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

~,
,/

T 10K I . MCR [ 10, 1141 ]
PAGEF.MIC[10.1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;

;8335
;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

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 231

;STILL .IF/KLPAGE
;HERE FOR SHAREO SECTION. AR GETS THE ADDRESS OF PAGE TABLE
=0**
;READ WORD FROM SPT
SECSHR: CALL [RDPT]
;TEST FOR BITS 12-17 = 0
TL [AR], #/77
;HERE WITH ADDRESS OF PAGE TABLE IN AR AND SKIP ON
; BITS 12 THRU 17 EQUAL TO ZERO
=0
;BITS 12-17 .NE. 0
PAGE FAIL TRAP
PF50:
[ARX] [AR1.AND.# CLR LH, ;PAGE NUMBER OF PAGE TABLE
;11 BIT PHYSICAL PAGE #
#/3777
.IFNOT/NOCST
;COPY ADDRESS
[AR] [ARX],
=0*
;UPDATE CSTO
CALL [UPCST]
;PUT IN NEW AGE AND
[AR] [AR].OR.WORK[PUR]
PF70:
; USE BITS
.IFNOT/INHCST
;START MEMORY WRITE
=0**
START NO TEST WRITE,
;GO STORE IN MEMORY
CALL [IBPX]
.ENDIF/INHCST
,
. IF/INHCST
;SEE IF A CST
=0**
SKIP NO CST,
;AND GO WRITE IN MEMORY
CALL [WRCST]
.ENDIF/INHCST
;THIS CAN BE BUMMED
SC_7
=0
CONVERT PAGE NUMBER TO
[ARX] [ARX]*2,
PF75:
PAGE ADDRESS
STEP SC,
LOOP OVER 9 STEPS
J/PF75

T 10K I . MCR [ 10. 1141 ]
PAGEF .MIC[ 10.1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)
; ;8366
; ;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

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 [SHDREM]
;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 BElDW
= 111

PF76:

=00
PF77:

VMA [ARX]+[BR],
START READ.
VMA PHYSICAL

MEM READ.
[AR] MEM.
CALl-[SETPTR]
PTRIMM: TL [AR].
#/77.
J/PF80
[AR] [AR]+WORK[SBR].
J/PTRSHR

;READ PAGE POINTER

;START ANALYSIS OF POINTER
IMMEDIATE POINTER
CHECK FOR BITS 0-5
GO TO PF80
SHARED POINTER
GO TO READ SPT

T10KI.MCR[10.1141]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)
; ;8399
; ;8400
; ;8401
; ;8402
; ;8403
; ;8404
; ;8405
; ;8406
; ;8407
; ;8408
; ;8409
; ; 8410
; ; 8411
; ; 8412
; ;8413
; ;8414
; ; 8415
; ; 8416
; ;8417
; ;8418
; ; 8419
; ;8420
; ;8421
;; 8422
; ; 8423
;; 8424
; ;8425
; ;8426
; ; 8427
; ;8428
; ;8429
; ;8430
; ; 8431
; ;8432
; ;8433
; ;8434
; ;8435
;; 8436
; ;8437
; ;8438
; ;8439
; ;8440
; ;8441
; ;8442
; ;8443
; ;8444
; ;8445
; ;8446
; ;8447
; ;8448
; ;8449
; ;8450
; ; 8451
; ;8452
; ;8453
; ;8454

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 233

;STILL .IF/KLPAGE
;INDIRECT POINTER. CHANGE PAGE # AND LOOK FOR PAGE TABLE
;PUT IN RIGHT HALF
PTRIND: [BR] [AR] SWAP.
;DID CLOCK GO OFF
SKIP7-1 MS
;YES--UPDATE CLOCK
=0
WORK[SV.AR1] [AR].
J/PFTICK
[BR] [BR].AND.# CLR LH. ;UPDATE PAGE # AND RESTART
;MASK FOR PAGE #
#/777.
;SEE IF THIS IS A LOOP
SKIP IRPT
;CHANGE INDIRECT POINTER
=0
[AR] [AR].AND.#.
; INTO SHARE POINTER
#/277000.
HOLD RIGHT.
;GO BACK AND TRY AGAIN
J/PF45
;POINTER LOOP
PAGE FAIL TRAP
=0**
PTRSHR: CALL [RDPT]
TL [AR].
#/77

;GD LOOK AT POINTER
;BITS 12-17 .EQ. O?

;HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO
=00
;NO--TAKE A TRAP
PF80:
PAGE FAIL TRAP
.IFNOT/NOCST
[ARX] [AR].AND.# CLR LH, ;SAVE PHYSICAL PAGE #
;MASK TO 13 BITS
#/3777.
;UPDATE CSTO
CALL [UPCST]
.ENDIF/NOCST
;HERE WE HAVE CST ENTRY IN AR, PAGE FAIL WORD IN BRX. GO LOOK
; AT WRITABLE AND WRITTEN BITS
=11
;TRANSLATION IS VALID
[BRX] [BRX] .OR.#,
PF90:
#/100000, HOLD RIGHT
;IS THIS PAGE WRITABLE?
TL [FLG], FLG.W/1
;YES--INDICATE THAT IN PFW
[BRXJ [BRX] .OR.II,
=0
#/020000.
;NOT WRITE VIOLATION
J/PF100
;IS THIS A WRITE REF?
TL [BRX],
WRITE TEST/1. WRITE CYC,LE/1
;WRITE VIOLATION
PAGE FAIL TRAP
=0
PF107:
.IFNOT/NOCST
[AR] [AR].OR.WORK[PUR], ;PUT IN NEW AGE
;GO TO STORE CST ENTRY
J/PF110
.ENDIF/NOCST
.IF/NOCST
PFDONE: TR [FLGJ.
#/400000.
J/PF140
.ENDIF/NOCST
=0*
PFTICK: IARJ WORK[TIME1],
;UPDATE TIMER
SPEc7cLRCLK. CALL [TaCK]
[AR] WORK [SV . AR 1],
; RESTORE AR
J/PTRIND
;GO TRY AGAIN

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)
; ;8455

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 233-1

T10KI.MCR[10.1141]
PAGEF.MIC[10.1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;

;8456
; 8457
;8458
;8459
;8460
;8461
; 8462
;8463
;8464
;8465
;8466
;8467
;8468
;8469
;8470
; 8471
;8472
;8473
;8474
;8475
;8476
;8477
;8478
;8479
;8480
; 8481
;8482
;8483
;8484
;8485
8486
8487

KS10 MICROCOOE V124. 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 234

;STILL .IF/KLPAGE
;HERE IF PAGE IS WRITABLE
PF100:
TL [BRX]. WRITE CYCLE/1 ;IS THIS A WRITE REF?
;YES--SET WRITTEN BIT
[AR] [AR].OR.#.
"'0
#/1. HOLD LEFT.
J/PF105
;NOT WRITE. ALREADY WRITTEN?
TR [AR].
#/1
=0

PF105:

[BRX] [BRX].OR.#.
#/040000.
HOLD RIGHT.
J/PF107
[FLG] [FLG].AND.NOT.#.
FLG.w71.
HOLO RIGHT.
J/PF 107
.IFNOT/NOCST

;WRITTEN SET BIT
;MARK PAGE AS
;WRITABLE
;STORE CST WORD
;NOT WRITTEN. CAUSE TRAP ON
; WRITE ATTEMPT
;ONLY CLEAR LH

=0**

PF110:
.IFNOT/INHCST
START NO TEST WRITE.
CALL [IBPX]
.ENDIF/INHCST
.IF/INHCST
SKIP NO CST.
CALL [WRCST]
.ENDIF/INHCST
.ENDIF/KLPAGE

;STORE CST ENTRY

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3637, 2522,4553,1300,4374,4007,0331,0000,0040,0000

U 2522, 2524,3441,0403,4174,4007,0700,2000,0071,0007
U 2523, 3644,3771,0003,7274,4007,0701,0000,0000,0210

U 2524, 2524,3445,0303,4174,4007,0630,2000,0060,0000
U 2525, 3640,4551,0303,4374,0007,0700,0000,0000,0003
U 3640, 3641,4221,0013,4170,4007,0700,0000,0000,0000
U 3641, 3642,3551,0606,4374,0007,0700,0000,0010,0000
U 3642, 2526,4553,1300,4374,4007,0321,0000,0000,4000
U 2526, 2527,3551,0606,4374,0007,0700,0000,0000,2000
U 2527, 3643,4551,0606,4370,4007,0700,0000,0000,0777
U 3643, 1500,3111,0603,4174,4003,7700,0200,0003,0001

'8488
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514
8515
8516
8517
8518

KS10 MICROCOOE 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 #
;PREPARE TO CONVERT TO
SC 7-:
; WORD ADDRESS
CJ/PF130
[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 BITS
#/3,
HOLD RIGHT
END MAP
;CLEAR MAP FLAGS
[BRX) [BRX].OR.#,
;TURN ON THE TRANSLATION
#/100000,
; VALID BIT
HOLD RIGHT
; IN LEFT HALF ONLY
TL [FLG], FLG.C/1
; CACHE BIT SET?
=0
[BRX] [BRX]. OR . # ,
;YES--SET IN MAP WORD
#/002000, HOLD RIGHT
[BRX) [BRX].AND.#,
;PRESERVE WORD #
#/777-: HOLD LEFT
; IN PAGE FAIL WORD
;COMPLETE MAP INSTRUCTION
[AR] [AR].OR.[BRXl,
EXIT-

T 10K I . MC R [ 10, 1 14 1 1
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3644, 3645,3441,0305,4174,4007,0700,0000,0000,0000

U 3645, 3646,5551,0305,4374,0007,0700,0000,0007,0000
U 3646, 3647,3443,0500,4174,4007,0701,0200,0000,0030
U
U
U
U

3647,
3650,
3651.
2530,

3650,4251,0404,4374,4007,0700,0000,0000,3777
3651,3551,0406,4374,4007,0700,0000,0040.0000
2530,4553,1300,4374,4007,0321,0000,0002,0000
2531,3551,0606,4374,4007,0700,0900,0004,0000

U 2531, 2532,4553,1300,4374,4147,0321,0000,0000,4000
U
U
U
U
U

2532,
2533,
3652,
3653,
3654,

3652,3551,0606,4374,4007,0700,0000,0002,0000
3652,3333.0006,4174,4007,0700,0000,0000,0000
3653,3771,0004,7274,4007,0701,0000,0000,0212
3654,3771,0005,7274,4007,0701,0000,0000,0213
3655,3771,0006,7274,4007,0701,0000,0000,0214

U 3655. 3656,3443,0300,4174,4007,0701,0200,0000,0032

U 3656, 0000,3771,0003,7274,4004,1701,0000,0000,0211

8519
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

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC
PF120:

=0

=0
PF125:

Page 236

[BRl [ARl
;COPY PAGE FAIL WORD
[BRl-[ARl.AND.NOT.#,
;CLEAR BITS WHICH START A CYCLE
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 #
#/377~
, ..
[BRXl [ARXl.OR.#, #/400000 ;SET VALID BITS
TL [FLG], FLG.W/1
;WANT WRITE SET?
[BRXl [BRXl.OR.#, #/040000 ;SET WRITE BIT
TL [FLG], FLG.C/1,
;WANT CACHE SET?
LOAD PAGE TABLE
;LOAD PAGE TABLE ON NEXT
, MICRO INSTRUCTION
[BRXl [BRX] .OR.#,
; SET CACHE BIT
#/020000, J/PF125
;CACHE BIT
READ [BRX]
;LOAD PAGE TABLE
[ARX] WORK[SV.ARX]
[BRl WORK[SV.BRl
[BRXT WORK[SV.BRX]
MAKE MEM REQUEST
VMA [AR],
FROM DATA PATH
DP FUNC/1. 3T,
WAIT FOR PREVIOUS CYCLE TO
WAIT /1
COMPLETE. (NEED THIS TO
START ANOTHER CYCLE)
[AR] WORK[SV.AR],
RETURN [0]

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31-(254)
; ;8549
; ;8550
; ;8551
; ;8552
; ;8553
; ;8554
; ;8555
; ;8556
; ;8557
; ;8558
; ;8559
; ;8560
; ; 8561
; ;8562
; ;8563
; ;8564
; ;8565
; ;8566
; ;8567
; ;8568
; ;8569
; ;8570
; ; 8571
; ;8572
; ;8573
; ;8574
;; 8575
; ;8576
; ; 8577
; ; 8578
; ;8579
; ;8580
; ; 8581
; ;8582
; ;8583

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL 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
.IFNOT/INHCST
=0**
UPCST:
[AR] [AR]+WORK[CBR),
;ADDRESS OF CSTO ENTRY
CALL-[RDPT]
;READ OLD VALUE
TL [AR],
;0 - 5 = O?
#/770000
; ..
;CLEAR AGE FIELD
[AR] [AR).AND.WORK[CSTM),
=0
RETURN [2)
;AGE IS NOT ZERO
PAGE FAIL TRAP
;AGE TOO SMALL
.ENDIF/INHCST
.IF/INHCST
;SEE If A CST IS PRESENT
UPCST:
SKIP NO CST
;YES, ADDRESS OF CSTO ENTRY
=0*0
[AR] [AR)+WORK[CBR),
;READ OLD VALUE
CALL-[RDPT)
;NO CST, RETURN
[AR] O,RETURN [2]
;CHECK AGE FIELD
TL CAR],
#/770000
=0

=0
WRCST:

[AR] [AR].AND.WORK[CSTM],
;CLEAR AGE FIELD
RETURN [21
;AGE IS NOT ZERO
PAGE FAIL TRAP
;AGE TOO SMALL

START NO TEST WRITE,
J/IBPX
RETURN [4]
.ENDIF/INHCST
.ENDIF/NOCST

~
\

f

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)
; ;8584
; ;8585
; ;8586
; ;8587
; ;8588
; ;8589
; ;8590
; ; 8591
; ;'8592
; ;8593
; ;8594
; ;8595
; ;8596
; ;8597
; ;8598
; ;8599
; ;8600
; ;8601
; ;8602
; ;8603
; ;8604
; ;8605
; ;8606
; ;8607
; ;8608
; ;8609
; ; 8610
; ; 8611
; ;8612
; ;8613
; ; 8614
; ;8615
; ; 8616

KS10 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] [FLGj.AND.[ARX],
, ..
HOLD RIGHT
;KEEP IN LH OF FLG
READ [AR],
;TYPE 4,5,6 OR 7?
SKIP DPO
, ..
=0
TL [AR],
;HEREWE TEST FOR TYPE
#/300000,
; ZERO POINTER
J/STPTR1
;CHECK AT STPTR1
PAGE FAIL TRAP
;BAD TYPE
=0 .
;NOT ZERO
STPTR1 : TL [AR],
;SEPERATE TYPE 2
#/100000,
; ..
J/STPTR2
;TYPE 0
PAGE FAIL TRAP
=0
STPTR2: TL [AR] ,
#/200000,
J/STPTR3
RETURN [2]
=0
STPTR3: RETURN [3]
RETURN [ 1 ]

;SEPERATE TYPE 1
; AND 3
;

..

;TYPE 2
;TYPE 3
;TYPE 1

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)
; ;8617
; ;8618
; ;8619
; ;8620
; ;8621
; ;8622
; ;8623
; ;8624
; ;8625
; ;8626
; ;8627
; ;8628
; ;8629
; ;8630
;.;8631
; ;8632
; ;8633
; ;8634
; ;8635
; ;8636
; ;.8637
; ;8638
;;8639
; ;8640
; ;8641
; ;8642
; 8643
; 8644

I
5

I
it

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 ADDRESS IN A~
;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

;LDAD 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
; INDIRECT PTR
SHDREM: RETURN [7]
[AR] .NOT. [FLG]
; FLIP BITS
TL [AR], FLG.W/1, FLG.C/1 ;BOTH BITS SET
;NO--DON'T STORE
=0
RETURN [7]
RETURN [2]
;STORE
.ENDIF/KLPAGE

T10KI.MCR[10,1141]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3657, 2534,3333,0006,4174,4007,0520,0000,0000,0000

U 2534, 2536,1553,0500,4374,4007,0532,4000,0000,0340

U 2535, 3660,0111,1104,4174,4007,0700,0200,0024,1016

U 2536, 2540,1553,0500,4374,4007,0532,4000,0000,0400
U 2537, 2540,0551,0404,4374,4007,0701,0000,0000,0600

U 2540, 3660,0111,1004,4174,4007,0700,0200,0024,1016
U 2541, 2535,0551,0404,4374,4007,0701,0000,0000,0220
U 3660, 3661,3771,0004,4365,5007,0700,0200,0000,0002
U 3661, 2542,4553,0500,4374,4007,0331,0000,0000,0001

8645
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

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 240

. IF/KIPAGE
;HERE IN KI10 MODE
;BR CONTAINS PAGE # AND ARX CONTAINS PAGE #/2
KIFILL: READ [BRX],
SKIP DPO
=0
[BRJ-#,
#/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,
#/600-:
J/KIEPT
=0
KIEPT:

KIF30:

[ARX] [ARX]+[EBR],
LOAD VMA,
START READ,
VMA PHYSICAL,
J/KIF30
[ARX] [ARX]+#,
#/220-: 3T,
J/KIUPT
MEM READ,
[ARX] MEM
TR [BR],
#/1

;USER REF?
;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
;LOOK AT KIF20
;EXEC ADDRESS .LT. 340
; IN EBR+600
;JOIN COMMON CODE
; ADD OFFSET TO
; EPT
;START 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

T10KI.MCR[10,1141)
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 3t(254)

U 2542, 2544,3333,0004,4174,4007,0530,0000,0000,0000
U 2543, 2542,3770,0404,4344,4007,0700,0000,0000,0000

U 2544, 2560,4553,1300,4374,4007,0321,0000,0001,0000
U 2545, 3662,5551,1313,4374,4007,0700,0000,0002,4000
U 3662, 2546,4553,0400,4374,4007,0331,0000,0002,0000
U 2546, 2547,3551,1313,4374,0007,0700,0000,0000,4000
U 2547, 2550,4553,0400,4374,4007,0331,0000,0004,0000

U 2550, 2551,3551,0606,4374,0007,0700,0000,0002,0000
U 2551, 2552,4553,0400,4374,4007,0331,0000,0010,0000

U 2552, 3663,3551,1313,4374,0007,0700,0000,0002,0000
U 2553, 2554,4553,0600,4374,4007,0321,0000,0001,0000

U 2554, 2544,3551,0606,4374,0007,0700,0000,0010,0000
U 2555, 3637,4443,0000,4174,4007,0700,0000,0000,0000

U 3663, 3637,3551,0606,4374,4007,0700,0000,0004,0000

8683
8684
8685
8686
8687
8688
8689
8690
8691
8692
86,93
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

KS10 MICROCODE V124, 27-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 PDINT 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:

[BRX] [BRX] .OR.#,
#/020000,
HOLD RIGHT
TR [ARX],
#/100000
[FLG] [FLG] .OR.#,
FLG.w71,
HOLD RIGHT,
J/KIF90
Tt [BRX],
WRITE CYCLE/1

Page 241

;ODD
; SEE IF VALID
;JOIN COMMON CODE
;EVEN--FLIP AROUND
; AND CONTINUE

MAP ENTRY IN RH OF AR
;CLEAR WAND C
; FLAGS
; CACHE ENABLED?
;SET CACHE BITS
;DO 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

~

~
"

..

J

T 10K I . MCR [ 10, 1141 ]
PAGEF .MIC[ 10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3664, 2556,3333,0005,7174,4007,0700,0400,0000,0213
U 2556, 3670,3771,0005,4354,4007,0700,0010,0000,0000
U 2557, 3665,4551,0505,4374,0007,0700,0000,0040,1237
U 3665, 2544,3111,0506,4174,4007,0700,0000,0000,0000
U 3666,

1114,4443,0000,4174,4007,0370,0000,0000,0000

U 1114, 3461,3771,0003,7274,4117,0701,0010,0000,0301
U 1115, 2561,4443,0000,4174,4007,0700,0000,0000,0000
U 1116, 3667,4223,0000,4364,4277,0700,0200,0000,0010
U 3667, 3652,3771,0003,7274,4007,0701,0000,0000,0210
U 3670,0001,4223,0000,4364,4274,1700,0200,0000,0010

8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
" 8745
8746

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC
;HERE ON HARD PAGE FAILURES
WORK[SV.BR] [BR]
HARD:
[BR] VMA,
=0
CALL-[ABORT]
[BR] [BR].AND.#,
#/401237,
HOLD RIGHT
[BRX] [BRX] .OR. [BRJ,
J/KIF50
PFPI1:

SKIP IRPT

,I

Page 242

;SAVE BR (CLEANUP MAY NEED IT)
;BUILD PAGE FAIL WORD
;CLEAR ERROR
;SAVE THE FLAGS
;COMPLETE PAGE FAIL WORD
;GO TRAP
; TIMER TRAP?

=00

[AR] WORK[TIME1],
SPEc7cLRCLK,
CALL [TOCK]
J/PFT1
ABORT MEM CYCLE

;YES--GET LOW WORD
;CLEAR CLOCK FLAG
;DO THE UPDATE
;EXTERNAL INTERRUPT
;CLEAR lMS FLAGS

PFPI2:

[AR] WORK[SV.VMA],
J/PF125

;RESTORE VMA

ABORT:

ABORT MEM CYCLE, RETURN [1J

T10KI.MCR[10.1141]
PAGEF.MIC[10.1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 2560. 0104.4751.1217.4374.4007.0700.0000.0000.0100
U 2561, 2562.3771.0003.7274,4007.0611,0000,0000.0210
U 2562, 2564,4553,0300,4374,4007,0321,0000,0010,0000
U 2563, 3671,3771,0003.7274.4007.0701.0000.0000,0425
U 3671. 2566,3333.0003,4174.4467.0700,0000.0000,0004
U 2564, 1100.4443,0000.4174.4007.0700,0000.0000.0000
U 2565, 2566.1111,0701.4170,4007,0700,4000,0000,0000
U 2566, 1100,3333,0013,4174,4003,5701,0000,0000,0000

U 1100, 2570,4221,0013,4170,4007,0370,0000,0000,0000
U 1101, 3051.3771,0003.7274,4007.0701.0000.0000.0212.
U 1102, 3674.0111.0701,4174,4007,0700,0000.0000,0000
U 1103, 3366.3771,0013.4370.4007.0700.0000.0000.0011
U 1104, 3366.3771.0013,4370.4007,0700,0000.0000,0012
~

5

I

~

I
&

I
~

1105, 2272.3771.0013,4370,4007.0700,0000.0000.0003

U 1106, 3375,3771.0013,4370,4007.0700,0000.0000,0012
U 1107, 3372,3771.0013.4370,4007,0700,0000,0000,0011
U 1110. 3364.3771.0013.4370.4007,0700,0000.0000.0011
U 1111. 2270,4221.0013.4170.4007,0700,0000.0000,0000
U 1112. 2272,4221,0013,4170.4007.0700.0000,0000.0000
U 1113, 2272.3771.0013.4370.4007.0700.0000.0000.0011

8747
8748
8749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772
8773
8774
8775
8776
8777
, 8778
8779
8780
8781
8782
8783
8784
8785
8786
8787

KS10 MICROCOOE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC

Page 243

;HERE ON PAGE FAIL TRAP
=0
PFT:
HALT [IOPF1
;10 PAGE FAILURE
PFT1 :
[AR1 WORK[SV.VMA1.
SKIP7TRAP CYCLE
;SEE IF TRAP CYCLE
=0
TL [AR1. FETCH/i.
;IS THIS AN INSTRUCTION FETCH
J/PFT 1A
;GO LOOK BELOW
[AR1 WORK[TRAPPC]
;RESTORE PC
READ-[AR]. LOAD FLAGS, J/CLDISP
=0
PFT1A:
J/CLEANED
;YES--NO PC TO BACK UP
FIXPC:
[PC1 [PC]-1, HOLD LEFT ;DATA FAILURE--BACKUP PC
=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
;HANOLE PAGE FAIL OR INTERRUPT
;( 1) BLT
[AR] WORK[SV.ARX].
J/BLT-CLEANUP
[PC1 [PC]+1.
;(2) MAP
J/MAPDON
STATE [EDIT-SRC].
;(3) SRC IN STRING MOVE
J/STRPF
STATE [EOIT-DST],
;(4) OST IN STRING MOVE
J/STRPF
STATE [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

\

T 10K I . MCR [ 10, 1141 ]
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 2570, 3672,0551,1103,4374,4007,0701,0000,0000,0500
U 2571, 0770,3551,1313,4374,0007,0700,0000,0001,0000
U 3672, 2572,3443,0300.4174,4007,0700,0200,0021,1016
U 2572, 3676,3333,0006,4175,5007,0701,0210.0000,0002

U 2573, 3673,3741,0105,4074,4007,0700,0000,0000,0000
U 3673, 3675,3333,0005,4175,5007,0701,0200,0000,0002

U 3674, 2574,4221,0013,4170,4007,0370,0000,0000,0000
U 2574, 1500,3441,0603,4174,4003,7700,0200.0003,0001
U 2575, 2571,1111,0701,4174,4007,0700,4000,0000,0000

8788
8789
8790
8791
8792
8793
8794
8795
8796
8797
; 8798
; ;8799
; ;8800
;; 8801
; ;8802
; ;8803
; ;8804
8805
8806
88tH
8808
8809
8810
8811
8812
8813
8814
8815
8816
8817
8818
8819
8820

KS10 MICROCODE V124, 27-JUL-84
PAGE FAIL REFIL LOGIC
=0
PFT2:
PFT3:
PFT10:
=0

[AR] [UBR]+#,
#/500, 3T.
J/PFT10
TAKE INTERRUPT
VMA [ARl.
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] [PCl-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

T1.0KI .MCR[ 10,1141 J
PAGEF.MIC[10,1141]

11:45 11-AUG-1984
12:32 26-JULY-1984

MICRO 31(254)

U 3675, 2625,0111,0703,4174,4007,0700,0200,0024,1016
U 3676, 0001,0111,0703,4170,4004,1700,0200,0023,1016

Number of microwords used:
D words= 512
U words= 1954, Highest= 2047
END

8821
8822
8823
8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834

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] [ARJ+1,
VMA PHYSICAL READ,
J/GOEXEC

NEXTAR: NEXT [ARJ PHYSICAL WRITE, RETURN [1J

.

f

Tl0KI.MCR[10.1141]
(U) A
AR

~

a
~

Q

i

~

!i'
~

I
E

a
I
E

.~

~

~

ARX

•
S

I
fi

I
.t

BR

11 :45 ll-AUG-1984
636 #
640 #
2726
2971
3268
3456
3734
4097
4329
4475
4638
4936.
5285
5388
5486
5514
5674
5775
5962
6165
6384
6524
6667
6820
6943
7063
7250
7437
7589
8501
641 #
4122
4463
4963
5686
6221
6436
7095
8665
642 #
3076
3147
3832
4468
4792
4909
5298
5673
6042
6386
6935
7154
7346
7596
8661

2388
2729
2983
3273
3524
3769
4100
4339
4478
4640
4949
5289
5389
5489
5523
5689
5779
5966
6182
6399
6545
6668
6842
6947
7065
7331
7447
7616
8504
2488
·4125
4464
5093
5706
6231
6753
7281
8675
2187
3077
3428
3840
4542
4793
4952
5299
5676
6133
6404
6946
7179
7348
7600
8680

MICRO 31(254)

2426
2813
2990
3275
3525
3813
4103
4345
4492
4645
5034
5290
5401
5492
5528
5703
5784
5973
6204
6427
6552
6670
6848
6953
7101
7333
7453
7619
8519 .
2770
4127
4543
5115
5711
6240
6756
7294
8688
2384
3092
3431
3841
4546
4794
4958
5355
5912
6198
6457
6950
7180
7384
7602
8727

2456
2823
2994
3287
3531
3817
4117
4364
4517
46~6

5037
5320
5403
5496
5544
5705
5786
5984
6218
6432
6553
6674
6867
6954
7107
7335
7456
7647
8520
2771
4149
4635
5287
5757
6263
6802
7298
8697
·2419
3095
3434
3988
4547
4801
5061
5358
5924
6201
6472
7027
7,187
.7397
7626
8730

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing
2457
2838
3004
3290
3551
3824
4144
4368
4534
4691
5049
5326
5412
5498
5570
5707
5802
5993
6245
6461
6579
6676
6885
6958
7115
7337
7457
7665
8541
3709
4169
4636
5325
5796
6264
6870
7488
8700
2421
3098
3437
3993
4548
4810
5101
5392
5925
6202
6510
7030
7188
7494
7632

2520
2855
3005
3293
3578
3826
4145
4386
4535
4696
5052
5345
5413
5500
5578
5713
5807
6008
6256
6462
6617
6730
6889
7028
7119
7339
7474
7666
8752
3711
4185
4644
5357
5803
6272
6944
7671
8705
2425
3101
3440
4091
4551
4814
5103
5443
5927
6215
6521
7050
7194
7517
7723

Page 246

2568
2865
3007
3298
3593
3986
4150
4414
4540
4706
5058
5351
5433
5502
5583
5740
5810
6028
6257
6463
6629
6731
6892
7031
7122
7341
7482
7725
8793
3724
4205
4713
5543
6046
6304
7053
7673

2576
2875
3009
3299
3629
3991
.4167
4418
4545
4710
5064
5352
5438
5503
5585
5747
5832
6032
6258
6464
6630
6736
6893
7052
7140
7343
7532
7822

2715
2885
3010
3369
3640
4021
4183
4420
4553
4748
5099
5353
5439
5504
5629
5750
5835
6045
6271
6466
6637
6737
6894
7054
7146
7345
7543
7830

2717
2916
3018
3386
3652
4056
4203
4421
4555
4752
5174
5354
5445
5505
5642
5762
5836
6048
6305
6467
6657
6744
6895
7056
7148
7347
7556
7861

2720
2926
3041
3388
3706
4070
4315
4440
4557
4756
5177
5363
5480
5511
5661
5765
5840
6074
6335
6470
6660
6747
6917
7058
7153
7369
7558
8191

2723
2936
3042
3453
3729
4086
4324
4472
4628
4760
5279
5368
5484
5513
5670
5773
5958
6158
6346
6475
6663
6751
6942
7061
7169
7375
7584
8201

3753
4208
4903
5564
6087
6308
7057
7731

4083
4228
4910
5567
6094
6385
7059
7958

4095
4357
4911
5627
6128
6422
7062
8495

4104
4385
4939
5644
6162
6430
7064
8527

4105
4437
4942
5666
6212
6434
7093
8529

2906
3105
3443
4223
4556
4823
5113
5526
5928
6223
6588
7084
7249
7518
8199

3037
3108
3446
4388
4587
4884
5118
5550
5955
6229
6844
7086
7260
7519
8263

3070
3110
3449
4390
4729
4885
5202
5552
5964
6352
6845
7089
7267
7560
8266

3071
3142
3774
4398
4731
4886
5286
5562
6009
6362
6886
7131
7336
7562
8279

3074
3143
3779
4402
4790
4887
5293
5576
6014
6373
6887
7139
7338
7590
8525

3075
3146
3807
4465
4791
4888
5294
5655
6039
6382
6927
7152
7340
7594
8651

T 10K I . MC R [ 10, 1 14 1 1
BRX

EBR
FLG
HR

MAG
MASK

ONE

PC
PI
TO
T1
UBR
XWOl
(D) A
DBLAC
DFP
DREAD

11: 45 11-AUG-1984
643 #
4293
5136
5652
6288
64.016
6605
7197
8258
8816
645 #
648 #
5820
639 #
3528
3626
5914
7014
7334
637 #
4214
4626
647 #
2256
3662
4770
5721
6132
7431
7634
644 #
3419
4320
5447
6099
6369
6694
7721
8833
638 #
3811
8808
649 #
7420
651 #
5599
6420
652 #
5704
646 #
650 #
1314 #
1318 #
1324 #
1317 #

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 247

4119
4297
5160
5653
6301
6425
6671
7198
8260

4147
4374
5245
5695
6310
6452
6678
7296
8508

4153
4427
5248
5916
6315
6454
6772
7446
8512

4224
4467
5318
6015
6323
6456
6776
7501
8514

4247
4579
5319
6085
6325
6487
6780
7502
8516

4267
4582
5321
6096
6334
6490
6784
7565
8531

4271
4593
5360
6097
6340
6506
6788
7648
8535

4275
5040
5365
6121
6345
6518
6792
8195
8702

4279
5092
5555
6170
6357
6520
6808
8248
8711

4285
5121
5572
6178
6396
6600
7076
8249
8714

4289
5129
5638
6259
6398
6602
7196
8252
8719

6974
3620
6596
2288
3537
3639
6907
7015
7650
2423
4392
4627
2149
2259
3942
4890
5790
6154
7432
7651
2179
3486
4735
5522
6134
6379
6817
7846

7177
5507
8245
2294
3540
3918
6984
7018
7664
4129
4410
5222
2150
2262
3982
4901
5879
6269
7433
7707
2183
3500
5032
5671
6135·
6383
6818
7932

7449
5608
8491
2300
3542
3920
6990
7019
7793
4132
4432
5223
2151
2265
3985
5207
5881
6591
7439
7860
2228
3526
5100
5829
6177
6387
6824
7939

7492
5609
8511
2306
3543
3922
6999
7020
7802
4151
4436
5546
2154
2516
4030
5227
5883
7248
7458
8224
2230
3535
5141
5950
6241
6388
6846
7942

8670
5616
8530
2315
3544
3924
7000
7021
7804
4154
4439
5637
2157
2739
4090
5228
5885
7291
7468
8226
2275
3538
5143
5991
6246
6424
6888
7945

5743
8532
2319
3563
3926
7001
7022
7806
4155
4480
5692
2190
2760
4226
5229
5887
7292
7486
8240
2362
3613
5148
6024
6309
6438
6930
7948

5746
8693
2328
3567
3928
7005
7023
7808
4168
4482
5718
2201
2967
4260
5243
5889
7293
7500
8749
2413
3631
5165
6030
6321
6449
7255
7951

5749
8695
2333
3577
3930
7006
7024
7810
4174
4483
5753
2237
3015
4394
5448
5891
7427
7578

5752
8698
2434
3582
3932
7007
7025
7812
4176
4610
5788
2241
3579
4405
5508
5893
7428
7581

5812
8707
2782
3585
3938
7008
7217

5819
8792
2787
3605
4036
7013
7239

4210
4615
5792
2244
3627
4433
5581
5895
7429
7617

4212
4620
5794
2247
3641
4558
5631
6130
7430
7628

2416
3634
5166
6051
6328
6501
7278
8758

2946
3978
5250
6069
.. 6348
6525
7308
8768

3337
4025
5251
6079
6355
6619
7360
8818

3403
4041
5435
6098
6360
6641
7644
8829

2227
3829

2231
4014

2249
4215

2342
4217

2404
4692

2429
4701

3325
6963

3452
7351

3457
7470

3688
7622

3805
7857

3591
7421
4195
5600
7362
4412

3592
7422
4199
5601
7498
4552

3606
7423
4435
5604

7009
7424
4446
5612

7010
7425
4453
5615

7328
7426
4456
5617

7342
7435
4458
5657

7344

7349

7359

7361

4459
5723

5563
5731

5571
5732

5597
6353

5218

5220

5224

5239

5242

5587

5672

5675

5694

3944
3508

3984
3678

6966
7484

7112

7134

7186

7193

8655

8789

2774
5533
2765

5534
2766

5622
4078

5683
4079

4162

4380

.~

~,

~!
\

T10KI.MCR[10.1141]
DSHIFT
FP
FPI
lOT
RD-PF

READ

SHIFT
WRITE
(U) ACALU
AC+N

B
(D) ACDISP
(U) ACN

BINO
BINl
OLEN
DSTP
MARK
SRCLEN

11: 45 ll-AUG- 1'984
1320
1322
5273
5340
1321
1325
7549
1323
2634
2831
4136
1315
2622
2674
2851
2922
3204
3226
3361
3382
3411
4138
1319
1316
2658
1218
1220
3116
4211
4459
4620
5954
6113
6210
6271
636Q
6693
6933
1219
1345
1221
4174
4214
4482
5546
6366
1228
1229
6221
1225
6331
6839
1226
1227
1223

#
#
#
#

#

#

#
#

#
#

#
#
#

#
#
#
#
#
#

MICRO 31(254)

2956
5259
5304
5418
5263
6995
7550
2546
2641
2848
4303
2549
2627
2679
2860
2931
3205
3236
3362
3392
3412
4139
2951
2548
2663

2957
5260
5305
5419
5271
6996
7551
2551
2646
2858
4308
2554
2632
2808
2861
2932
3206
3237
3363
3393
3413
4305
2952
2553
2668

2172
4083
4212
4478
4626
5962
6128
6212
6272
6362
6694
6935
3515
2370
4176
4326
4483
5637
6385
2172
2173
6251
5954
6340
6939
5972
6509

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 248

5261
5306

5262
5308

5264
5310

5265
5311

5267
5333

5268
5334

5269
5335

5270
5337

5272
5339

5309
7203
7552
2556
2651
2868

5338
7524
7817
2561
2656
2878

7525
7818
2599
2661
2898

7526
8187
2604
2666
2909

7527

7535

7536

7537

7538

2609
2671
2919

2614
2676
2929

2619
2806
4049

2624
2816
4063

2629
2826
4111

2559
2637
2809
2870
3185
3207
3238
3364
3394
3414
4306
2953
2558
2673

2564
2643
2818
2871
3186
3208
3239
3365
3395
3415
4310

2583
2644
2819
2880
3187
3219
3240
3375
3396
3646
4311

2601
2648
2828
2881
3188
3220
3241
3376
3397
4051
4681

2602
2649
2829
2900
3189
3221
3242
3377
3398
4052
4682

2606
2654
2833
2901
3190
3222
3243
3378
3399
4065
4683

2607
2659
2834
2911
3201
3223
3358
3379
3408
4066
4684

2612
2664
2841
2912
3202
3224
3359
3380
3409
4113
4685

2617
2669
2850
2921
3203
3225
3360
3381
3410
4114
5383

2563
2678

2611
2775

2616
2843

2621
2844

2626

2631

2636

2653

2173
4095
4213
4480
4627
5972
6145
6215
6279
6366
6806
6939

2180
4174
4214
4482
5546
5975
6160
6221
6281
6379
6813
6942

2370
4176
4326
4483
5637
6005
6162
6223
6286
6385
6820
6947

2382
4178
4410
4609
5690
6008
6188
6251
6292
6386
6839

2488
4186
4432
4610
5692
6021
6191
6253
6308
6509
6841

2771
4188
4436
4613
5698
6028
6193
6254
6319
6540
6848

2780
4195
4439
4614
5757
6035
6200
6258
6331
6545
6868

3021
4197
4453
4615
5765
6045
6201
6265
6340
6550
6889

3042
4209
4454
4618
5803
6083
6202
6266
6346
658'7
6925

3086
4210
4456
4619
5810
6093
6204
6267
6357
6589
6927

6995
2382
4178
4410
4609
5690

6996
2488
4186
4432
4610
5692

7203
2771
4188
4436
4613
5698

.2780
4195
4439
4614
5757

3021
4197
4453
4615
5765

3042
4209
4454
4618
5803

.3086
4210
4456
4619
5810

3116
4211
4459
4620
6292

4083
4212
4478
4626
6308

4095
4213
4480
4627
6319

6188
2180
6253
5962
6346
6942
6145
6587

6210
6160
6258
5975
6357
6947
6540

6215
6162
6272
6005
6360

6223
6191
6281
6008
6362

6254
6193

6265
6200

6266
6201

6267
6202

6271
6204

6279
6212

6035
6379

6045
6386

6083
6693

6093
6694

6128
6806

6286
6820

6545

6589

6813

6868

6889

6933

6935

I

T10KI.MCR[10,1141]
SRCP
(U) AD

A

~

:::

z
~

~
0

If

~

i

1
!
~

e

';;

IJi

I

E

~

11

i.

I

A+B

.l:

A+Q
A-.25
A-B-.25
A-D-.25
A-Q-.25
A.AND.B
A.AND.Q

11: 45 11-AUG-1984

MICRO 31( 254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

6021
2154
2319
4405
6154
7432
7707
2149
2429
3009
3095
3428
3593
3829
4185
4345
4459
4628
4958
5222
5320
5433
5504
5585
5638
5721
5807
6085
6340
6466
6678
6935
7177
7375
7594
7958

6028
2157
2516
5220
6269
7433
7860
2151
2488
3010
3098
3440
3629
3841
4203
4374
4463
4692
4963
5223
5321
5435
5522
5597
5642
5723
5810
6121
6345
6470
6730
6942
7179
7446
7600
8201

6113
2190
2737
5879
6591
7439
8224
2227
2520
3018
3101
3452
3640
4117
4205
4386
4472
4701
5037
5227
5325
5438
5523
5599
5644
5731
5832
6128
6346
6472
6747
6943
7186
7453
7622
8260

6550
2201
2739
5881
7248
7468
8226
2231
2771
3037
3105
3453
3652
4119
4217
4388
4492
4706
5040
5228
5326
5439
5528
5600
5655
5732
5840
6162
6353
6510
6753
6947
7187
7474
7626
8263

6841
2237
2758
5883
7291
7486
8240
2249
2787
3042
3108
3456
3706
4122
4223
4390
4540
4713
5058
5229
5345
5445
5555
5601
5661
5740
5928
6201
6357
6520
6844
6954
7193
7482
7632
8279

6848
2241
2760
5885
7292
7500
8749
2294
2971
3070
3142
3457
3709
4144
4224
4402
4545
4729,
5093
5242
5353
5480
5562
5604
5666
5747
5973
6221
6362
6545
6848
7009
7194
7501
7666
8495

2179
3613
4228
4592
5526
6229
6501
6974
7939
4435

2183
3631
4284
4735
5576
6231
6525
7249
7942
4446

2228
3634
4288
5141
5657
6241
6619
7255
7945
4467

2230
3774
4368
5143
5950
6309
6641
7278
7948
5100

2275
3779
4464
5148
6014
6321
6668
7308
7951
5564

4420
6133
6422

4421
6352
6427

5099

tI'

4364
6097
6182

550 #
567 #
6130
566 #

4153
7028
4151

4168
7031
4392

4385
7361
4436

1224 #
533 #
2265
4394
5925
7431
7651
562 #
2426
3007
3092
3388
3578
3824
4183
4339
4453
4557
4939
5207
5298
5403
5503
5583
5631
5711
5786
6074
6334
6463
6667
6927
7169
7369
7590
7857
8816
535 #
3403
4199
4586
5447
6218
6457
6966
7932
534 #
546 #
551 #
5962
547

Page 249

6925
2244
3579
5887
7293
7578

6927
2247
3662
5889
7581

2256
3942
5891
7428
7617

2259
3982
5893
7429
7628

2262
4030
5895
7430
7634

2306
2983
3071
3143
3524
3711
4145
4226
4414
4546
4752
5113
5243
5355
5484
5563
5612
5670
5750
5993
6223
6384
6552
6867
7010
7196
7519
7723
8501

2333
2990
3074
3146
3525
3729
4147
4247
4418
4547
4760
5121
5245
5360
5486
5567
5615
5671
5762
6008
6258
6385
6588
6886
7101
7198
7543
7725
8519

2342
2994
3075
3147
3531
3734
4149
4260
4433
4552
4814
5129
5285
5363
5492
5570
5617
5674
5765
6028
6271
6386
6605
6889
7131
7296
7556
7731
8525

2384
3004
3076
3299
3551
3807
4167
4315
4437
4553
4890
5177
5286
5368
5500
5571
5627
5686
5779
6039
6272
6420
6630
6893
7146
7328
7558
7822
8541

2425
3005
3077
3325
3567
3813
4169
4324
4440
4555
4903
5202
5287
5401
5502
5578
5629
5689
5784
6045
6308
'6454
6660
6895
7148
7351
7565
7830
8793

2362
3944
4465
5165
6046
6328
6694
7449
8655
5572

2413
3978
4468
5166
6051
6348
6846
7484
8670
. 5673

2416
3984
4478
5250
6069
6369
6870
7494
8768
5676

2782
4025
4551
5251
6098
6383
6888
7502
8829
5829

3110
4041
4556
5299
6099
6438
6930
7721
8833

3337
4195
4582
5443
6204
6449
6950
7846

5118

5136

5160

5248

5357

5365

5713

6475

8651

8661

4456
7517
4480

4909

5508

5757

5790

5792

5803

5984

4482

4558

4610

4615

4620

4626

4627

74~7

~.

.~,

~
;;

T10KI.MCR[10,1141]

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

4823
594 #
593 #
559 #
7057
8730
558 #
586 #
585 #
561 #
2526
3083
3618
40J7
4354
4702
5020
5677
6029
6163
6478
6849
7156
7307
7693
7934
7952
8234
545 #
543 #
6135
8818
565 #
2365
2690
2753
3386
3592
3811
4150
4691
4810
4976
5156
5557
5997
6076
6160
6291
6378
6540
6670
6842
6963
7151

Page 250

MICRO 31( 254)

KS10 MICROCODE V124. 27-,JUL-84
Cross Reference Listing

4901

4910

5753

5788

4129
2906
7064

4132
4091
7095

4154
4911
7122

4155
5064
7139

4210
5916
7140

4212
6015
7340

4214
6048
7346

4483
6087
7488

6245
7584

6676
7619

7053
8516

5218
5794

5239
7294

5587

2159
2532
3139
3658
4033
4359
4717
5284
5726
6055
6294
6500
6851
7222
7309
7727
7935
7953
8238

2167
2537
3284
3694
4040
4426
4720
5288
5744
6056
6296
6504
6873
7226
7317
7729
7937
7955
8239

2169
2540
3328
3700
4121
4428
4736
5371
5782
6057
6339
6556
6913
7230
7318
7838
7938
8197
8537

2170
2571
3331
3739
4266
4445
4817
5373
5918
6072
6358
6576
6964
7234
7370
7845
7940
8207
8649

2173
2590
3334
3745
4270
4461
4883
5405
5921
6114
6371
6590
7066
7238
7382
7910
7941
8208
8685

2175
2735
3340
3816
4292
4470
4891
5409
5934
6117
6375
6642
7068
7252
7388
7919
7943
8210
8724

2182
2742
3343
3952
4296
4531
4899
5442
5936
6119
6377
6650
7069
7263
7395
7925
7944
8211
8755

2184
2749
3346
3974
4327
4538
4948
5482
5937
6123
6426
6724
7071
7268
7620
7929
7946
8218
8760

2375
2756
3405
3996
4333
4559
4961
5501
5967
6136
6433
6745
7074
7284
7662
7930
7947
8228
8796

2395
2786
3559
4002
4347
4689
4981
5569
5979
6147
6459
6767
7078
7287
7685
7931
7949
8230
8810

2494
3067
3607
4013
4352
4698
5013
5668
6013
6155
6473
6799
7155
7303
7691
7933
7950
8232

3419
6246

3526
6335

3535
6387

3538
6424

4274
6817

4278
6946

4548
7260

4579
7384

6009
7397

6030
7644

6134
8758

2148
2369
2715
2780
3431
3612
3826
4188
4696
4884
4978
5174
5649
6000
6084
6169
6292
6380
6550
6691
6845
6982
7208

2152
2370
2717
2964
3434
3616
3827
4193
4710
4885
4982·
5175
5700
6005
6093
6188
6293
6381
6559
6693
6868
7002
7210

2177
2382
2720
2981
3437
3677
3839
4208
4712
4886
5011
5200
5835
6021
6095
6191
6305
6399
6563
6731
6885
7003
7212

2178
2383
2721
2987
3443
3688
3840
4211
4716
4887
5016
5205
5911
6022
6113
6193
6314
6402
6578
6756
6887
7035
7214

2180
2388
2723
2999
3446
3716
3844
4213
4731
4888
5039
5282
5930
6032
6115
6200
6319
6451
6587
6806
6897
7037
7216

2218
2393
2726
3002
3449
3722
4001
4215
4764
4936
5052
5315
5939
6042
6122
6210
6331
6456
6589
6811
6912
7049
7221

2268
2404
2727
3040
3472
3749
4014
4316
4790
4945
5054
5347
5954
6059
6126
6251
6337
6461
6593
6813
6925
7060
7225

2338
2410
2729
3086
3548
3758
4103
4325
4791
4952
5092
5411
5957
6060
6139
6253
6347
6462
6614
6820
6929
7083
7229

2352
2568
2744
3089
3555
3769
4118
4326
4792
4966
_ 5101
5489
5971
6061
6141
6254
6350
6502
6621
6822
6933
7084
7233

2356
2587
2746
3268
3572
3771
4127
4408
4793
4968
5105
5505
5972
6062
6145
6259
6351
6509
6623
6839
6939
7092
7237

2361
2688
2751
3273
3587
3805
4146
4537
4794
4972
5112
5547
5975
6070
6157
6286
6366
6524
6654
6841
6958
7104
7245

11: 45 11-AUG-1984

T10KI.MCR[10,1141]

D+A

D+O
D-.25
D-A-.25
D-0-.25
D.AND.A

D.AND.O
D.EQV.A
D.EQV.O
D.OR.A

D.OR.O
D.XOR.A
D.XOR.O
0

0-.25
Q-A-.25
0-D-.25
ZERO

11:45 11-AUG-1984
7250
7359
7514
7833
8198
8725
8784
539 #
3832
6024
6553
7671
540 #
557 #
555 #
556 #
574 #
3528
3626
3938
4635
5412
5912
6256
6467
6984
7018
7061
7180
. 7341
7650
8252
8711
575 #
598 #
599 #
563 #
5294
6257
6792
7425
8698
564 #
590 #
591 #
560 #
4429
5488
6142
544 #
542 #
548 #
571 #
2980
4818

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 251

7254
7378
7546
7865
8200
8735
8808
2288
4056
6079
6629
7673
4984

7259
7380
7587
7912
8209
8741

7265
7391
7654
7917
8215
8750

7266
7393
7657
7921
8220
8754

7277
7417
7659
7924
8498
8766

7297
7443
7667
7936
8538
8770

7301
7454
7681
7954
8539
8772

7316
7470
7712
7956
8540
8774

7322
7472
7715
7957
8546
8776

7336
7491
7717
7959
8679
8778

7349
7496
7826
8194
8688
8780

2300
4083
6177
6736
8665
4992

2315
4086
6202
6744
8675
5023

2328
4748
6212
6818
8789
5042

3486
4756
6215
6824

3508
5034
6355
6892

3563
5103
6373
6894

3678
5115
6416
7298

3724
5924
6425
7447

3753
5927
6432
7492

3817
5991
6434
7665

3369

3500

4070

4095

4097

4100

5049

6360

6379

2421
3537
3627.
3985
4770
5507
5914
6263
6487
6990
7019
7063
7188
7343
7664
8491
8727
3112
2885

2423
3540
3639
3986
4942
5546
5955
6288
6490
6999
7020
7065
7197
7345
7793
8504
8752
4510

2434
3542
3641
3991
4949
5637
5958
6304
6506·
7000
7021
7086
7217
7347
7802
8511

2456
3543
3918
4036
5061
5672
6094
6323
6521
7001
7022
7089
7239
7458
7804
8514

2770
3544
3920
4104
5224
5675
·6096
6382
6637
7005
7023
7107
7281
7498
7806
8530

2813
3577
3922
4174
5289
5692
6132
6396
6671
7006
7024
7112
7331
7532
7808
8532

2936
3582
3924
4176
5293
5743
6158
6398
6674
7007
7025
7115
7333
7589
7810
8680

2967
3585
3926
4357
5318
5746
6165
6430
6737
7008
7052
7119
7334
7596
7812
8693

3015
3591
3928
4410
5351
5749
6178
6436
6751
7013
7054
7134
7335
7602
8195
8697

3275
3605
3930
4432
5388
5752
6198
6452
6907
7014
7056
7152
7337
7616
8199
8700

3298
3606
3932
4439
5392
5812
6240
6464
6917
7015
7058
7153
7339
7648
8248
8705

5210

5216

5230

5236

5323

5632

2150
5319
6301
6808
7426
8702
3114
2187

2419
5352
6310
6944
7560
8707
4395
2855

2457
5413
6315
6953
7861
8714

2865
5552
6325
7154
8191
8719

3293
5608
6596
7267
8245
8792

3988
5609
6600
7342
8249

3993
5616
6602
7420
8508

4105
5653
6663
7421
8512

4458
5705
6776
7422
8529

4543
5819
6780
7423
8531

5290
6170
6784
7424
8535

3290

4412

7456

7457

8258

3116
4434
5512
6544

4123
4438
5606

4131
4444
5613

4178
4452
5633

4186
4971
5645

4186
5133
5656

4197
5159
5715

4209
5247
5717

4351
5370
5761

4406
5375
5806

4423
5446
6103

4427
4975
2160
3021
4819

5032
2162
3270
4894

2165
3608
4895

2172
4222
4898

2174
4248
4954

2176
4318
5097

2193
4454
5139

2215
4532
5163

2399
4799
5249

2803
4812
5296

2160
3041
4822

.~

~.

~I

,

\

f

T 10K I . MCR [ 10, 1141 ]

-A-.25
-B-.25
-0-.25
-Q-.25
.NOT.A
.NOT.A.AND.B
.NOT.A.AND.Q
.NOT.B
.NOT.D
.NOT.O.AND.A
.NOT.D.AND.Q
.NOT.Q
O+A
O+B
0+0
O+Q
(U) AD PARITY OK

(U) ADFLGS
(U) AREAD
(U) B
AR

11: 45 ll-AUG-1984
5367
5771
6279
6727
7403
8507
554 #
4646
5775
553 #
549 #
552 #
5770
597 #
5496
578 #
577 #
596 #
600 #
6956
582 #
7076
583 #
595 #
538 #
537 #
541 #
536 #
710 #
2967
4716
6005
6210
6451
6933
1114 #
4639
1148 #
656 #
660 #
2356
2425
2576
2737
2813
2936
3004
3273
3369
3641
4033
4131
4408
4517
4557

MICRO 31 (254)

KSlO MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 252

5378
5799
6281
6802
7435
8527
2576
5279
5796
5696
4449
4397

5390
5980
6299
7027
7438
8739
2946
5354
5802

5394
5982 .
6333
7030
7445
8745
4320
5358
6264

5396
6016
6389
7093
7459
8764
4398
5389
6388

5397
6035
6393
7127
7674
8782
4475
5498
7360

5410
6083
6397
7137
7719
8783
4517
5514

5423
6088
6400
7181
7840
8814
4535
5543

5515
6100
6455
7257
7843

5688
6111
6579
7332
7913

5716
6140
6617
7377
8244

5755
6261
6657
7402
8266

4542
5544

4636
5695

4640
5706

4644
5707

4609
4448

4614
4474

4619
4515

4624
4516

5995
4533

6267
5376

6938
5481

6952
5483

5485

5487

2838
5511
4125
5718
5801
2895

2875
5513
5581

2916
5694
7059

2926
5704
7062

3287
5773
7338

4090
5964
7348

4329
5966
7518

45!34
6518

4638
7362

4645
7437

5448
7647

6173
2905

4613

4618

4623

6012

6040

6044

6180

6184

6266

2823
7344

3620
7562

4021
8520

5550
8695

5652

5703

5820

6404

6772

6788

7050

4908
5836

5769

5983

5582
2180
2981
5112
6021
6251
6509
6939
2577
4641
2320

5729
2356
3015
5200
6093
6253
6550
7546
3403

2369
3472
5282
6095
6254
6587
7833
3419

2370
3716
5315
6113
6286
6589
8221
3486

2587
3749
5347
6145
6291
6693

2688
3771
5411
6157
6292
6806

2690
3827
5557
19160
6293
6813

2721
3839
5954
6188
6314
6839

2727
4146
5957
6191
6319
6841

2780
4188
5972
6193
6331
6868

2964
4325
5975
6200
6366
6925

3500

4057

4071

4088

4098

4101

4228

2157
2361
2426
2688
2739
2823
2946
3005
3287
3386
3769
4041
4132
4414
4531
4587

2159
2369
2456
(2690
2742
2838
2964
3007
3290
3388
3774
4056
4149
4418
4534
4623

2174
2375
2457
2715
2744
2855
2967
3009
3293
3403
3779
4070
4150
4461
4535
4624

2237
2388
2494
2717
2746
2865
2971
3010
3298
3403
3827
4086
4167
4465
4540
4628

2241
2393
2520
2720
2749
2875
2981
3040
3299
3405
3985
4091
4215
4465
4545
4638

2244
2395
2526
2721
2751
2885
2983
3041
3328
3419
4001
4091
4318
4468
4548
4640

2256
2404
2532
2723
2753
2895
2987
3042
3331
3613
4002
4097
4320
4468
4551
·4645

2259
2413
2537
2726
2756
2906
2990
3067
3334
3613
4014
4100
4325
4472
4553
4646

2262
2413
2540
2727
2758
2906
2994
3083
3340
3631
4017
4103
4327
4475
4555
4689

2319
2416
2568
2729
2760
2916
2999
3139
3343
3634
4021
4123
4352
4478
4556
4698

2352
2416
2571
2735
2803
2926
3002
3268
3346
3634
4030
4129
4374
4492
4556
4702

T 10K I . MC R [ 10, 1 14 1 ]

ARX

11: 45 11-AUG-1984
4706
4822
4909
5049
5288
5370
5433
5486
5508
5578
5731
5784
5885
5967
6015
6051
6133
6184
6314
6384
6462
6552
6629
6691
6806
6846
6897
6947
7107
7238
7260
7384
7449
7602
7826
8201
8754
661 #
3678
3952
4155
4267
4429
4636
5141
5692
5993
6117
6231
6309
6436
7092
74~4

7910
7951

4717
4823
4911
5052
5289
5371
5438
5489
5511
5583 "
5732
5786
5887
5982
6021
6059
6136
6253
6331
6391
6463
6553
6637
6693
6811
6846
6912
6950
7146
7245
7263
7384
7449
7651
7833
8207
8755
2180
3709
3978
4168
4271
4438
4644
5141
5715
6024
6123
6240
6319
6576
7093
7617
7912
7957

MICRO 31(254)
4720
4883
4911
5054
5290
5373
5439
5492
5513
5585
5740
5801
5889
5983
6028
6098
6140
6256
6345
6399
6464
6556
6641
6694
6813
6848
6913
6950
7148
7249
7265
7388
7454
7654
7860
8495
8766
2184
3711
4025
4168
4275
4532
4712
5166
5790
6030
6128
6251
6337
6756
7281
7619
7917
7959

4729
4884
4966
5058
5299
5375
"5442
5496
5514
5629
5744
5807
5891
5991
6029
6098
6145
6257
6346
6400
6466
6578
6641
6724
6817
6849
6917
6952
7221
7249
7277
7391
7472
7659
7861
8498
8789
2365
3716
4083
4176
4279
4537
4716
5251
5790
6056
6134
6263
6366
6799
7284
7628
7921
8211

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing
4731
4885
4968
5136
5299
5376
5443
5498
5523
5666
5747
5810
5893
5995
6039
6099
6147
6258
6347
6402
6467
6579
6642
6730
6818
6851
6925
6953
7222
7250
7287
7395
7482
7665
7934
8501
8816
2370
3724
4095
4186
4285
4543
4903
5285
5792
6061
6160
6264
6377
6867
7292
7634
7924
8279

4735
4886
4978
5160
5325
5401
5443
5500
5526
5670
5750
5832
5895
6008
6040
6100
6154
6266
6348
6424
6500
6591
6654
6731
6820
6868
6929
6954
7225
7252
7301
7397
7486
7667
7935
8504
8829
2399
3749
4104
4199
4289
4559
4910
5353
5792
6069
6162
6269
6381
6870
7296
7657
7925
8527

4735
4887
4981
5174
5326
5403
5445
5501
5526
5674
5762
5835
5921
6009
6042
6113
6155
6267
6348
6427
6520
6593
6657
6736
6822
6873
6930
6956
7226
7254
7316
7397
7488
7671
7936
8516
8829
2423
3753
4105
4199
4293
4579
4936
5354
5794
6069
6191
6272
6383
6943
7298
7715
7929
8538

4736
4888
4982
5175
5347
5405
5447
5502
5528
5677
5765
5836
5950
6009
6044
6119
6157
6271
6353
6432
6524
6614
6660
6744
6824
6886
6933
6966
7229
7255
7317
7435
7488
7673
7937
8516
8833
2488
3826
4121
4205
4297
4579
4939
5365
5794
6072
6212
6292
6383
6944
7309
7719
7932
8655

Page 253
4764
4891
5011
5177
5351
5409
5447
5503
5544
5700
5773
5840
5950
6012
6045
6126
6165
6291
6371
6438
6525
6617
6663
6745
6839
6887
6938
6966
7230
7255,
7318
7439
7543
7674
7954
8546

4802
4899
5020
5248
5352
5411
5480
5504
5571
5703
5775
5879
5957
6014
6046
6130
6173
6293
6373
6438
6525
6619
6667
6747
6841
6888
6942
6974
7233
7257
7377
7443
7565
7712
7955
8735

4817
4908
5034
5279
5363
5412
5482
5505
5576
5705
5779
5881
5964
6014
6046
6130
6177
6296
6375
6449
6545
6619
6670
6753
6844
6888
6946
6974
7234
7259
7378
7446
7590
7721
7956
8741

4819
4909
5044
5286
5368
5413
5484
5508
5576
5707
5782
5883
5966
6015
6051
6133
6180
6305
6380
6461
6550
6621
6674
6802
6845
6889
6946
7104
7237
7260
7382
7447
7596
7721
8191
8750

2770
3829
4122
4208
4339
4582
4942
5543
5796
6074
6218
6294
6385
6963
7445
7731
7939
8655

2771
3942
4127
4222
4351
4582
4945
5645
5829
6079
6218
6304
6422
6964
7484
7838
7942
8665

2780
3944
4151
4228
4357
4593
4948
5657
5973
6093
6221
6308
6430
7052
7484
7843
7945
8670

2786
3944
4154
4248
4423
4635
5092
5657
5975
6097
6231
6309
6434
7054
7494
7846
7948
8670

,....,.

~
I

•

"\,

J

T10KI.MCR[10,1141]

BR

BRX

EBR
FLG

HR

MAG

11: 45 11-AUG-1984
8675
662 #
3070
3108
3437
3677
3824
4315
4402
4791
4976
5282
5550
5924
6005
6210
6355
6459
6935
7037
7083
7155
7212
7328
7514
7600
8234
663 #
4345
5165
5546
6062
6259
6339
6668
6792
7194
. 7501
8224
8531
665 #
668 #
5609
6070
6389
8507
8782
659 #
3537
3587
3928
6999
7020
7662
657 #

8679
2182
3071
3110
3440
3688
3839
4324
4420
4792
4986
5284
5552
5925
6013
6215
6358
6470
6939
7049
7084
7156
7214
7335
7519
7620
826Q
2178
4406
5200
5637
6085
6286
6340
6668
6808
7196
7556
8226
8535
2162
2165
5616
6076
6393
8695
8783
2177
3540
3605
3930
7000
7021
7793
2151

MICRO 31(254)
8685
2383
3074
3142
3443
3694
3840
4333
4421
4793
5013
5287
5563
5927
6032
6223
6360
6472
6958
7050
7086
7177
7216
7336
7532
7626
8263
2179
4464
5250
5638
6087
6288
6357
6671
7060
7197
7647
8238
8537
7169
2167
5755
6084
6455
8698
8784
2183
3542
3626
3932
7001
7022
7802
4226

8688
2384
3075
3143
3446
3700
3844
4347
4538
4794
5025
5293
5633
5930
6055
6229
6362
6473
7002
7053
7089
7179
7248
7370
7546
7632
8266
2179
5037
5250
5649
6095
6299
6387
6676
7062
7293
7707
8239
8540
7943
2169
5771
6088
6502
8707
8792
2183
3543
3639
3938
7005
7023
7804
4260

....-...

KSlO MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 254

2410
3076
3146
3449
3722
3982
4354
4542
4810
5061
5294
5671
5934
6060
6229
6369
6509
7003
7053
7095
7180
7266
7380
7558
7723
8519
4117
5040
5315
5652
6114
6301
6451
6676
7062
7427
7940
8240
8649

2419
3077
3147
3472
3739
3984
4359
4546
4812
5064
5298
5689
5936
6q2
6241
6369
6518
7009
7057
7095
7181
7267
7393
7560
7727
8520
4119
5097
5318
'5653
6121
6310
6478
6678
7064
7428
8194
8249
8702

2421
3089
3270
3486
3745
3984
4364
4547
4814
5100
5345
5696
5937
6188
6241
6379
6587
7010
7057
7119
7186
7268
7458
7562
7938
8539
4146
5099
5319
5686
6135
6315
6504
6767
7064
7429
8195
8252
8714

2587
3092
3275
3500
3771
3988
4368
4691
4949
5101
5389
5713
5939
6193
6254
6386
6589
7027
7059
7127
7188
7291
7470
7578
8198
8724
4147
5112
5321
5695
6158
6321
6506
6772
7066
7430
8197
8258
8719

2590
3095
3284
3508
3805
3993
4386
4696
4952
5103
5435
5911
5954
6200
6333
6388
6590
7028
7059
7131
7193
7294
7492
7581
8218
8725
4174
5118
5355
5914
6163
6321
6600
6776
7074
7431
8208
8508
8730

2905
3098
3428
3612
3807
3996
4388
4710
4954
5113
5448
5916
5962
6201
6334
6404
6842
7030
7068
7151
7198
7297
7496
7584
8228
8727
4193
5143
5357
5958
6170
6325
6602
6780
7076
7432
8209
8512
8730

3015
3101
3431 .
3618
3811
4090
4390
4770
4958
5115
5522
5916
5972
6202
6335
6456
6885
7031
7069
7152
7208
7307
7502
7587
8230
8808
4224
5148
5358
6048
6245
6328
6605
6784
7078
7433
8210
8514
8796

3037
3105
3434
3627
3816
4169
4398
4790
4961
5202
5547
5918
5979
6204
6335
6457
6927
7035
7071
7154
7210
7322
7502
7594
8232
8810
4247
5165
5360
6057
6245
6328
6650
6788
7187
7498
8220
8529

2170
5799
6111
6559
8760
8814
2268
3544
3652
3974
7006
7024
7806
4385

3620
5819
6115
6563
8764

5105
5820
6122
6596
8770

5139
5971
6141
6623
8772

5163
5997
6169
6727
8774

5249
6000
6261
7947
8776

5515
6016
6351
8200
8778

5608
6022
6378
8245
8780

2300
3548
3658
4013
7007
7025
7808
4433

2315
3559
3662
4036
7008
7217
7810
4456

2328
3563
3918
4040
7013
7239
7812
4890

2338
3572
3920
4601
7014
7278
7865
4895

2362
3577
3922
6907
7015
7303
7933
4898

2434
3582
3924
6982
7018
7308

3528
3585
3926
6990
7019
7334

5207

5227

Tl0KI.MCR[10.1141]

MASK
ONE
PC
PI
TO

T1
m

~

~

UBR
XWD1

iii

b

~;;

(D) B

11'

i

;t

~
u

'g

i

w

.,!
.ii
g

~~
~

I
g

I

AC

&:

BOTH
DBLAC
DBLB
MEM

SELF

11: 45 ll-AUG-1984
5228
667 #
664 #
658 #
3525
6246
669 .#
7348
671 #
4453
5612
7360
67·2 #
4428
5613
7953
666 #
670 #
1327 #
3190
3204
3217
3230
3243
3361
3382
3411
3468
3492
3852
3913
5861
7527
7740
7755
7768
7782
1331 #
2604
2634
2666
2817
2879
2940
1333 #
2912
1329 #
5622
1330 #
1332 #
2636
2828
2931
1328 #
2637

5229
2148
2154
2215
3526
6501
2193
7420
3592
4458
5615
7361
2190
4445
5656
8749
2160
2152
3'176
3192
3205
3219
3231
3349
3362
3392
3412
3475
3493
3853
5848
5862
7535
7741
7756
7769
7783
2546
2605
2635
2667
2826
2888
4049
2799
2922
2765
5683
4139
2548
2643
2833
2941
2549
2644

MICRO 31(254)

KS10 MICROCODE V124. 27-vUL-84
Cross Reference Listing

Page ·255

5243
2149
2173
2228
3535
6501
7332
7421
4145
4459
5617
7361
2201
4470
5668

5631
2150
2175
2230
3538
7474
7338
7422
4153
5557
5644
7491
2218
4552
5688

5721
3607
2782
2275
3551
7644
7338
7423
4185
5562
5717
7681
2247
5211
5694

5757
4125
6352
2288
3578
7729
7340
7424
4188
5569
5723
7685
2265
5219
5704

5803
5222
7941
2294
3593
7931
7340
7425
4195
5570
6350
7691
2516
5224
5726

7930
5223

5984

7919

7946

3018
3616
8758
7342
7426
4434
5597
6416
7693
3579
5231
6420

3337
3706
8768
7344
7517
4440
5599
6425
7952
4394
5242
6433

3453
3758
8768
7346
7518
4444
5600
6426

3456
3817
8818
7346
7518
4446
5601
7349

7348
7949
4448
5604
7359

4405
5581
7468

4412
5581
7500

4426
5606
7845

7112
7950
3177
3193
3206
3220
3232
3350
3363
3393
3413
3476
3494
3854
5849
5863
7536
7743
7757
7770
7784
2547
2609
2641
2671
2827
2889
4050
2809
2932
4078

7122

7122

7134

7137

7139

7139

7140

7140

7944

3178
3194
3207
3221
3233
3351
3364
3394
3414
3477
3495
3855
5850
5864
7537
7744
7758
7771
7785
2551
2610
2642 .
2672
2831
2898
4063
2819
2942
4079

3179
3195
3208
3222
3234
3352
3365
3395
3415
3478
3496
3856
5851
5869
7538
7746
7759
7773
7786
2552
2614
2646
2676
2832
2899
4064
2829
4052
4136

3180
3196
3210
3223
3236
3353
3375
3396
3461
3479
3503
3857
5852
5870
7549
7747
7760
7774
7787
2556
2615
2647
2677
2848
2909
4111
2834
4066
4137

3181
3197
3211
3224
3237.
3354
3376
3397
3462
3480
3504
3858
5853
5871
7550
7748
7761
7775
7788
2557
2619
2651
2766
2849
2910
4112
2851
4114
4162

3185
3198
3212
3225
3238
3355
3377
3398
3463
3481
3668
3908
5854
5872
7551
7749
7762
7776
7789
2561
2620
2652
2796
2858
2919
4681
2861

3186
3199
3213
3226
3239
3356
3378
3399
3464
3482
3669
3909
5856
5873
7552
7750
7764
7777

3187
3201
3214
3227
3240
3358
3379
3408
3465
3489
3670
3910
5857
7524
7736
7751
7765
7778

3188
3202
3215
3228
3241
3359
3380
3409
3466
3490
3765
3911
5858
7525
7737
7752
7766
7779

3189
3203
3216
3229
3242
3360
3381
3410
3467
3491
3851
3912
5859
7526
7738
7753
7767
7780

2562
2624
2656
2797
2859
2920
8187
2871

2583
2625
2657
2806
2868
2929

2599
2629
2661
2807
2869
2930

2600
2630
2662
2816
2878
2939

2881

2891

2901

4303

4304

4308

4309

4380

4306
2553
2648
2843
4051
2554
2649

4311
2558
2653
2844
4065
2559
2654

2563
2658
2850
4113
2564
2659

2601
2663
2860
4138
2602
2664

2606
2668
2870
4305
2607
2669

2611
2673
2880
4310
2612
2674

2616
2678
28eO
7203
2617
2679

2621
2798
2900

2626
2808
2911

2631
2818
2921

2622

2627

2632

3524
3832

T10KI.MCR[10,1141]
(U) BWRITE
(U) BYTE
BYTE 1
BYTE2
BYTE3
BYTE4
BYTE5
(U) CALL

(U) CHKL

(U) CHKR

(U) CLKL

..--.

~

~
11:45 11-AUG-1984
1157 #
2813
4129
816 #
817 #
6885
818 #
819 #
820 #
821 #
968 #
3630
4184
4513
5096
5374
5655
5787
6077
6203
6359
6564
6926
7471
7839
7946
721 #.
2526
3616
4013
4764
6897
7316
7845
7946
728 #
2526
3616
4013
4764
6897
7316
7845
7946
717 #
2362
3535
3990
5139
5924
6088
6378
6727
7283
7425

MICRO 31(254)

c,

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 256

2568
2823
4152

2574
2855
4154

2688
2865
5443

2690
2885
5447

2723
2895
5493

2729
2906
5515

2737
2916
8517

2739
2946
8817

2758
4057

2760
4071

2803
4123

4691
6887
4885
4886
4887
3040
2155
3633
4194
4691
5112
5482
5662
5793
6084
6211
6370
6577
6934
7473
7841
7949
2268
2532
3677
4017
4770
6912
7370
7865
7947
2268
2532
3677
4017
4770
6912
7370
7865
7947
2228
2690
3538
3995
5143
5927
6099
6389
6846
7308
7426

4696
6958

4710

4731

4884

6032

6042

6524

6670

6842

'6845

4790
2181
3828
4204
4696
5114
5484
5669
5913
6094
6214
6378
6592
6945
7489
7847
7952
2338
2537
3694
4040
4891
6982
7454
7930
7949
2338
2537
3694
4040
4891
6982
7454
7930
7949
2230
2721
3551
4025
5148
5930
6111
6393
6888
7342
7448

4791
2193
3831
4227
4700
5201
5486
5688
5953
6096
6217
6395
6599
7187
7493
7863
7954
2352
2540
3700
4118
5156
7104
7496
7931
7950
2352
2540
3700
4118
5156
7104
7496
7931
7950
2275
2729
3563
.4041
5163
5971
6115
6449
6897
7344
7518

4792
2398
3945
4337
4705
5213
5501
5712
5956
6102
6220
6421
6620
7256
7531
7911
8726
2361
2590
3722
4211
5205
7221
7620
7933
7952
2361
2590
3722
4211
5205
7221
7620
7933
7952
2288
2751
3593
4092
5166
5997
6122
6455
7051
7346
7644

4793
2770
3976
4358
4710
5215
5502
5716
5960
6116
6228
6450
6624
7280
7542
7913
8737
2365
2786
3739
4213
5911
7225
7667
7934
7953
2365
2786
3739
4213
5911
7225
7667
7934
7953
2289
2753
3617
4735
5176
6000
6141
6502
7077
7348
7665

4794
2780
3979
4413
4719
5233
5503
5720
5992
6125
6233
6453
6692
7283
7557
7930
8797
2382
3086
3745
4316
5930
7229
7712
7937
7955
2382
3086
3745
4316
5930
7229
7712
7937
7955
2295
3337
3631
4765
5228
6016
6169
6559
7091
7360
7665

4888
3550
4013
4419
4722
5235
5562
5745
5998
6146
6260
6458
6726
7302
7576
7933

6654
3589
4015
4433
4970
5322
5570
5748
6023
6161
6295
6533
6750
7349
7585
7935

3591
4120
4437
4980
5364
5598
5751
6047
6164
6304
6541
6850
7379
7614
7937

3592
4148
4443
5014
5367
5638
5783
6058
6177
6320
6551
6869
7392
7621
7940

3606
4175
4489
5041
5372
5643
5785
6073
6192
6332
6554
6874
7441
7646
7943

2393
3405
3758
4326
6350
7233
7715
7938
8679
2393
3405
3758
4326
6350
7233
7715
7938
8679
2300
3453
3759
4974
5229
6022
6246
6563
7138
7420
7846

2404
3548
3816
4410
6540
7237
7717
7940
8796
2404
3548
3816
4410
6540
7237
7717
7940
8796
2315
3456
3818
5033
5249
6051
6261
6598
7152
7421
7862

2410
3572
3844
4432
6590
7277
7727
7941
8810
2410
3572
3844
4432
6590
7277
7727
7941
8810
2316
3524
3830
5056
5251
6070
6299
6623
7154
7422
7932

2423
3587
3974
4439
6593
7307
7729
7943

2494
3612
4001
4736
6621
7309
7826
7944

2423
3587
3974
4439
6593
7307
7729
7943

2494
3612
4001
4736
6621
7309
7826
7944

2328
3525
3834
5105
5324
6076
6334
6664
7198
7423
7939

2339
3526
3978
5117
5587
6084
6351
6669
7278
7424
7942

T10KI.MCR[10,1141]

11 : 45 11-AUG-1984

MICROi31(254)
\

(U) CLKR

(U) CLRFPD
(D) COND FUNC

(U) CRY38

(U) DBM
APR FLAGS
BYTES
DP
DP SWAP
EXP
MEM

PF DISP
SCAD DIAG
VMA

7945
8778
724 #
3113
3605
3940
4635
5318
5754
6263
6507
6809
7014
7088
7334
7810
8699
1086 #
1350 #
2607
2637
2669
2829
2881
2942
4311
5311
951 #.
4100
4516
41,>40
5354
5543
5995
6352
6952
696 #
699 #
700 #
702 #
4885
6887
703 #
3769
6461
701 #
705 #
3571
5155
7103
7496
8739
698 #
697 #
704 #

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 257

8758
8833
2688
3542
3922
4127
5098
5489
5939
6345
6773
7001
7022
7141
7719
8254

8764

8770

8772

8774

8776

2723
3543
3924
4150
5102
5505
6166
6397
6777
7005
7023
7182
7793
8259

2727.
3544
3926
4357
5289
5608
6171
6400
6781
7006
7024
7189
7802
8506

2744
3577
3928
4396
5290
5609
6240
6405
6785
7007
7025
7217
7804
8510

2746
3582
3930
4458
5293
5616
6256
6430
6789
7008
7045
7239
7806
8513

2770
3585
3932
4512
5294
5632
6257
6436
6793
7013
7085
. 7250
7808
8524

4723
2559
2622
2654
2799
2851
2912
4114
5269

6389
2563
2626
2658
2808
2860
2921
4138
5272

2564
2627
2659
2809
2861
2922
4139
5273

2601
2631
2663
2818
2870
2931
4305
5305

2602
2632
2664
2819
2871
2932
4306
5306

2606
2636
2668
2828
2880
2941
4310
5310

3526
4420
4579
5099
5481
5770
6135
6424
8651

3535
4421
4609
5118
5483
5775
6182
6427
8661

3538
4427
4614
5136
5485
5796
6246
6475
8758

4070
4448
4619
5160
5487
5802
6264
6817
8818

4087
4474
4624
5248
5498
5836
6267
6938

4095
4515
4636
5279
5514
5962
6335
6946

4731
6042

4790
6524

4791
6654

4792
6670

4793
6842

4794
684:;

4884
6885

2717
4936
7336
7291
2351
3616
6350
7233
7715

2720
4952
7349
7292
2360
3676
6593
7237
7717

2723
5052
7359
7293
2364
3721
6621
7276
7825

2726
5092
8688

2729
5101

3268
5174

3273
6399

3592
6456

2392
3758
6897
7316
7840

2403
3843
6911
7438
7864

2409
4000
6967
7442
7913

2422
4763
6975
7454
8244

3547
4769
6982
7490
8678

8209

8725

7948
8780
2419
3115
3626
4022
4812
5319
5789
6302
6601
6907
7015
7109
7336
7812
8704
3689
2548
2611
2643
2673
2833
2890
4051
5260
5334
2576
4274
4517
4644
5357
5582
6009
6360
7260

7951
8782
2421
3386
3639
4038
4947
5351
5819
6304
6603
6919
7018
7114
7338
8193
87.09
3806
2549
2612
2644
2674
2834
2891
4052
5261
5335
2946
4278
4533
4646
5358
5695
6030
6379
7360

8200
8783
2434
3528
3770
4103
4955
5352
5820
6311
6673
6990
7019
7124
7340
8196
8715
3812
2553
2616
2648
2678
2843
2900
4065
5264
5339
3369
4320
4535
4975
5365
5706
6097
6387
7384

8507
8784
2456
3537
3918
4104
5018
5412
5835
6317
6677
6999
7020
7129
7472
8247
8729
4206
2554
2617
2649
2679
2844
2901
4066
5265
5340
3419
4364
4542
5032
5376
5713
6133
6388
7397

8515
8814
2457
3540
3920
4105
5063
5413
5917
6326
6731
7000
7021
7136
7674
8251
8792
4706
2558
2621
2653
2798
2850
2911
4113
5268
7203
3500
4397
4548
5049
5389
5729
6134
6422
7644

7002

7003

7060

7092

7266

3040
4886
6958
2388
3826
6462
5489
2160
3586
5204
7221
7586
8745
8214

4691
4887

4696
4888

4710
6032

2568
3840
6756
5505
2267
3608
5911
7225
7667

2715
4810
7084
5835
2338
3612
5930
7229
7712

7681

7924

8194

~.

I"',
\

J

Tl0KI.MCR[10,l141]
#

(U) DBUS
DBM

11:45 ll-AUG-1984
706 #
2237
2457
3540
3626
3930
4104
4800
5061
5318
5608
5749
5893
6076
6178
6315
6436
6579
6751
6990
7019
7052
7112
7248
7344
7425
7456
7596
7804
8226
8512
8675
8719
8792
687 #
693 #
2218
2338
2409
2717
3112
3571
3608
3724
3920
3991
4405
4764
4886
5011
5174
5318
5550
5743
5887

MICRO 31(254)

KSlO MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 258

2148
2241
2516
3542
3639
3932
4105
4942
5105
5319
5609
5752
5895
6084
6182
6323
6452
6591
6772
6999
7020
7054
7115
7267
7345
7426
7457
7602
7806
8240
8514
8680
8727

2150
2244
2744
3543
3724
3938
4357
4945
5115
5323
5616
5812
5912
6094
6198
6325
6464
6596
6776
7000
7021
7056
7119
7281
7347
7427
7468
7616
7808
8245
8520
8693
8749

2152
2247
2746
3544
3753
3942
4394
4949
5211
5351
5632
5819
5914
6096
6240
6351
6467
6600
6780
7001
7022
7058
7134
7331
7378
7428
7472
7617
7810
8248
8527
8695
8752

2154
2256
2751
3577
3817
3982
4395
4968
5216
5352
5652
5820
5939
6115
6256
6378
6475
6602
6784
7005
7023
7061
7152
7333
7380
7429
7486
7628
7812
8249
8529
8697
8770

2157
2259
2753
3579
3832
3986
4405
4972
5224
5388
5653
5879
5955
6122
6257
6382
6487
6617
6788
7006
7024
7063
7153
7334
7391
7430
7492
7634
7860
8252
8530
8698
8772

2177
2262
2770
3582
3918
3988
4412
4978
5231
5392
5672
5881
5958
6141
6263
6396
6490
6623
6792
7007
7025
7065
7154
7335
7393
7431
7498
7648
7861
8258
8531
8700
8774

2178
2265
3041
3585
3920
3991
4458
4982
5236
5412
5675
5883
5971
6154
6269
6398
6502
6637
6802
7008
7027
7076
7180
7337
7420
7432
7500
7650
8191
8266
8532
8702
8776

2187
2419
3112
3591
3922
3993 4510
5011
5;289
5413
5703
5885
5997
6158
6288
6404
6506
6657
6808
7013
7030
7086
7188
7339
7421
7433
7514
7664
8195
8491
8535
8705
8778

2190
2421
3114
3605
3924
4021
4537
5016
5290
5507
5705
5887
6000
6165
6301
6416
6521
6663
6907
7014
7035
7089
7197
7341
7422
7435
7578
7707
8199
8504
8651
8707
8780

2201
2434
3528
3606
3926
4030
4543
5049
5293
5550
5743
5889
6022
6169
6304
6425
6559
6671
6917
7015
7037
7093
7217
7342
7423
7439
7581
7793
8200
8508
8661
8711
8784

2218
2456
3537
3620
3928
4036
4635
5054
5294
5552
5746
5891
6070
6170
6310
6430
6563
6674
6984
7018
7050
7107
7239
7343
7424
7447
7589
7802
8224
8511
8665
8714
8789

2148
2237
2351
2410
2720
3114
3572
3612
3753
3922
3993
4412
4769
4887
5016
5204
5319
5552
5746
5889

2150
2241
2352
2419
2723
3268
3577
3612
3758
3924
4000
4458
4770
4888
5049
5205
5323
5608
5749
5891

2152
2244
2360
2421
2726
3273
3579
3616
3758
3926
4001
4510
4790·
4936
5052
5210
5351
5609
5752
5893

2154
2247
2361
2422
2729
3528
3582
3616
3769
3928
4021
4537
4791
4942
5054
5216
5352
5616
5812
5895

2157
2256
2.364
2423
2744
3537
3585
3620
38)7
3930
4030
4543
4792
4945
5061
5224
5388
5632
5819
5911

2160
2259
2365
2434
2746
3540
3586
3626
3826
3932
4036
4635
4793
4949
5092
5230
5392
5652
5820
5911

2177
2262
2388
2456
2751
3542
3587
3639
3832
3938
4104
4691
4794
4952
5101
5236
5412
5653
5835
5912

2178
2265
2392
2457
2753
3543
3591
3676
3840
3942
4105
4696
4800
4968
5105
5289
5413
5672
5879
5914

2187
2267
2393
2516
2770
3544
3592
3677
3843
3982
4357
4710
4810
4972
5115
5290
5489
5675
5881
5930

2190
2268
2403
2568
3040
3547
3605
3721
3844
3986
4394
4731
4884
4978
5155
5293
5505
5703
5883
5930

2201
2338
2404
2715
3041
3548
3606
3722
3918
3988
4395
4763
4885
4982
5156
5294
5507
5705
5885
5939

Tl0KI.MCR[10,1141]

~

~

~

-

~
0

If

~

;t

~

j
§

l8

DP

~

..2

1
«
g

!

~

It

PC FLAGS
PI NEW
RAM

11:45 ll-AUG-1984
5955
6096
6240
6350
6436
6521
6621
6772
6897
6990
7015
7037
7086
7153
7233
7292
7342
7421
7433
7472
7586
7667
7804
7913
8240
8512
8675
8707
8774
691 #
2786
3431
3653
4013
4209
4483
5133
5810
6162
6305
6605
6954
7930
7949
688 #
8808
689 #
692 #
2688
2936
3293
3771
4174
4439
4756

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 259

5958
6115
6256
6350
6452
6524
6621
6776
6897
6999
7018
7050
7089
7154
7233
7293
7343
7422
7435
7486
7587
° 7667
7806
7924
8244
8514
8678
8711
8776
2172
3021
3434
3694
4017
4210
4610
5159
5962
6204
6308
6678
7250
7931
7950
3627

5971
6122
6257
6351
6456
6559
6623
6780
6907
7000
7019
7052
7092
7180
7237
7316
7344
7423
7438
7490
7589
7681
7808
8191
8245
8520
8679
8714
8778
2173
3042
3434
3700
4040
4212
4615
5177
6008
6221
6340
6694
7307
7933
7952
3641

5997
6141
6263
6378
6461
6563
6637
6784
6911
7001
7020
7054
7093
7188
7237
7316
7345
7424
7439
7491
7596
7707
78108194
8248
8527
8680
8719
8780
2488
3077
3437
3709
4103
4214
4620
5202
6028
6223
6346
6731
7309
7934
7953
3688

6000
6154
6269
6382
6462
6579
6654
6788
6912
7002
7021
7056
7103
7197
7239
7331
'7347
7425
7442
7492
7602
7712
7812
8195
8249
8529
8688
8725
8784
2494
3110
3437
3711
4127
4436
4626
5247
6035
6258
6357
6820
7370
7937
7955
3805

6022
6158
6288
6396
6464
6591
6657
6792
6917
7003
7022
7058
7104
7217
7248
7333
7349
7426
7443
7496
7616
7712
7825
8199
8252
8530
8693
8727
8789
2520
3116
3440
3739
4150
4452
4627
5439
6045
6259
6362
6820
7543
7938
8201
3811

6032
6165
6301
6398
6467
6593
6663
6802
6958
7005
7023
7060
7107
7221
7266
7334
7359
7427
7447
7496
7617
7715
7826
8200
8258
8531
8695·
8739
8792
2526
3299
3443
3745
4178
4453
4628
5445
6048
6259
6384
6848
7620
7940
8760
3985

6042
6169
6304
6399
6475
6593
6670
6808
6967
7006
7024
7061
7112
7221
7267
7335
7378
7428
7454
7498
7628
7715
7840
8209
8266
8532
8697
8745

6070
6170
6310
6404
6487
6596
6671
6842
6975
7007
7025
7063
7115
7225
7276
7336
7380
7429
7454
7500
7634
7717
7860
8214
8491
8535
8698
8749

6076
6178
6315
6416
6490
6600
6674
6845
6982
7008
7027
7065
7119
7225
7277
7337
7391
7430
7456
7514
7648
7717
7861
8220
8504
8651
8700
8752

6084
6182
6323
6425
6502
6602
6751
6885
6982
7013
7030
7076
7134
7229
7281
7339
7393
7431
7457
7578
7650
7793
7864
8224
8508
8661
8702
8770

6094
6198
6325
6430
6506
6617
6756
6887
6984
7014
7035
7084
7152
7229
7291
7341
7420
7432
7468
7581
7664
7802
7865
8226
8511
8665
8705
8772

2532
3386
3443
3774
4186
4454
4706
5757
6083
6271
6385
6889
7662
7941
8796
4014

2537
3388
3446
3779
4195
4456
4736
5765
6085
6272
6386
6927
7727
7943
8810
4215

2540
3405
3446
3807
4197
4459
4891
5801
6087
6279
6544
6935
7729
7944

2590
3428
3449
3816
4208
4478
5064
5802
6121
6281
6545
6942
7731
7946

2771
3431
3449
3974
4208
4480
5113
5803
6128
6305
6590
6947
7845
-7947

6963

7458

7470

7417
2180
2690
2964
3298
3827
4176
4449
4966

2288
2721
2967
3369
3839
4188
4609
4975

2300
2727
2981
3472
4056
4193
4613
4976

2315
2780
2987
3486
4070
4211
4614
4988

2328
2813
2999
3500
4083
4213
4618
4992

2356
2823
3002
3508
4086
4316
4619
5027

2369
2855
3015
3555
4095
4325
4623
5034

2370
2865
3086
3563
4097
4326
4624
5039

2382
2885
3089
3678
4100
4408
4712
5047

2383
2895
3275
3716
4118
4410
4716
5103

2587
2905
3290
3749
4146
4432
4748
5112

,
T10KI.MCR[10,1141j

(U) DEST
A

AD

~,

~c

~,

11: 45 11-AUG-1984
5175
5700
6024
6132
6202
6293
6381
6587
6818
6939
7216
7562
7954
8750
622#
623#
2771
3440
4127
4791
5052
5810
6223
6385
6756
6954
625 #
2179
2244
2319
2410
2690
2780
2916
3287
3500
3563
3616
3706
3827
3932
4021
4097
4154
4339
4446
4623
4764
4976
5100
5175
5289
5352
5508
5571

MICRO 31( 254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 260

5200
5924
6040
6139
6210
6314
6402
6589
6822
6944
7245
7654
7956
8754

5282
5927
6044
6145
6212
6319
6422
6614
6824
6952
7254
7657
7957
8766

5315
5954
6059
6157
6215
6331
6427
6629
6839
6953
7259
7659
7959

5347
5957
6060
6160
6251
6337
6432
6691
6841
6956
7265
7665
8198

5411
5972
6061
6177
6253
6347
6434
6693
6868
7049
7297
7671
8498

5546
5975
6062
6180
6254
6355
6451
6736
6892
7083
7298
7673
8538

5547
5991
6079
6184
6266
6360
6509
6737
6894
7151
7301
7833
8539

5557
5995
6093
6188
6267
6366
6540
6744
6925
7208
7322
7912
8540

5637
6005
6095
6191
6286
6373
6550
6806
6929
7210
7532
7917
8546

5649
6012
6113
6193
6291
6379
6553
6811
6933
7212
7546
7921
8735

2388
3042
3443
4150
4792
5092
5835
6258
6386
6820
6958
2148
2180
2247
2328
2413
2721
2803
2926
3290
3508
3572
3620
3716
3829
3938
4025
4100
4155
4345
4458
4624
4770
4978
5103
5200
5290
5353
5511
5581

2404
3077
3446
4208
4793
5101
6008
6259
6399
6842
7084
2150
2183
2256
2338
2416
2727
2813
2936
3293
3524
3577
3626
3722
3832
3942
4030
4104
4169
4351
4465
4635
4812
4982
5105
5218
5293
5354
5513
5606

2488
3268
3449
4453
4794
5113
6028
6271
6456
6845
7250
2152
2190
2259
2352
2419
2737
2823
2946
3298
3525
3578
3627
3724
3839
3944
4036
4105
4185
4357
4468
4636
4823
4985
5112
5224
5294
5389
5514
5608

2520
3273
3592
4459
4810
5174
6032
6272
6461
6848
7336
2154
2193
2262
2356
2421
2739
2838
2964
3337
3528
3579
3631
3749
3844
3978
4041
4117
4199
4374
4517
4638
4908
5011
5115
5249
5299
5411
5515
5609

2568
3299
3709
4628
4884
5177
6042
6305
6462
6885
7349
2157
2201
2265
2361
2434
2744
2855
2967
3369
3537
3582
3634
3753
3918
3982
4056
4123
4215
4394
4532
4640
4909
5024
5139
5250
5315
5412
5526
5613

2715
3386
3711
4691
4885
5202
6045
6308
6524
6887
7359
2160
2215
2268
2362
2456
2746
2865
2981
3403
3540
3585
3639
3758
3920
3984
4070
4129
4222
4405
4534
4644
4910
5034
5141
5251
5318
5413
5543
5616

2717
3388
3769"
4696
4886
5439
6085
6340
6545
6889
7543
2162
2218
2275
2365
2457
2751
2875
3015
3419
3542
3587
3641
3771
3922
3985
4083
4131
4315
4406
4535
4645
4911
5037
5143
5279
5319
5443
5544
5633

2720
3428
3807
4706
4887
5445
6121
6346
6605
6927
7731
2165
2228
2288
2369
2516
2753
2885
3018
3453
3543
3593
3652
3805
3924
3988
4086
4132
4318
4412
4537
4646
4945
5043
5148
5282
5325
5447
5557
5644

2723
3431
3826
4710
4888
5489
6128
6357
6670
6935
8201
2174
2230
2294
2370
2576
2758
2895
3041
3456
3544
3605
3677
3811
3926
3993
4090
4145
4320
4423
4542
4716
4954
5054
5163
5285
5345
5448
5562
5656

2726
3434
3840
4731
4936
5505
6162
6362
6678
6942
8688
2177
2237
2300
2393
2587
2760
2905
3270
3472
3548
3612
3678
3817
3928
4001
4091
4146
4324
4429
4543
4729
4966
5061
5165.
5286
5347
5496
5563
5657

5692
6021
6126
6200
6292
6380
6578
6813
6938
7214
7560
7936
8741
2729
3437
4103
4790
4952
5765
. 6221
6384
6731
6947
2178
2241
2315
2399
2688
2770
2906
3275
3486
3551
3613
3688
3824
3930
4014
4095
4151
4325
4438
4556
4735
4968
5097
5166
5287
5351
5498
5570
5686

Tl0KI.MCR[10.1141]

~

az
."

m
~

i

;t

.~

.g

~

e

~

2

E
~

:5

I
~
~

g

i

.t

AD*.5

11: 45 ll-AUG-1984
5688
5773
5883
5927
5975
6016
6061
6099
6140
6184
6241
6267
6314
6347
6380
6420
6455
6559
6617
6691
6802
6846
6938
6982
7010
7027
7062
7119
7181
7221
7259
7297
7342
7397
7431
7470
7514
7590
7671
7806
7917
7957
8245
8514
8655
8727
8772
8816
632 #
3040
4408
4958
5523
5671
6654

5689
5775
5885
5930
5983
6021
6062
6100
6141
6188
6245
6269
6315
6348
6381
6422
6464
6563
6619
6693
6806
6867
6939
6990
7013
7030
7064
7122
7186
7225
7260
7298
7344
7420
7432
7472
7518
7596
7673
7808
7921
7959
8249
8516
8665
8730
8774
8818
2151
3092
4414
5360
5528
5692
6660

MICRO 31(254)
5694
5790
5887
5939
5991
6022
6069
6111
6145
6191
6246
6286
6319
6350
6383
6424
6467
6578
6621
6727
6808
6868
6943
6999
7014
7035
7076
7127
7188
7229
7265
7301
7346
7421
7433
7474
7532
7602
7674
7810
7924
8191
8252
8519
8670
8735
8776
8829
2423
3095
4545
5368
5546
5700
6667

5695
5792
5889
5950
5993
6024
6070
6113
6154
6193
6251
6288
6321
6351
6387
6425
6501
6579
6623
6736
6811
6886
6944
7000
7015
7037
7083
7134
7193
7233
7266
7308
7348
7422
7435
7484
7546
7617
7681
7812
7932
8194
8258
8520
8675
8741
8778
8833
2425
4167
4546
5370
5547
5703
6730

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 261

5696
5794
5891
5954
5995
6030
6074
6115
6157
6202
6253
6291
6325
6353
6388
6427
6502
6587
6629
6744
6813
6888
6946
7001
7018
7049
7086
7137
7197
7237
7267
7316
7360
7423
7439
7486
7556
7628
7707
7826
7936
8195
8260
8527
8679
8749
8780

5704
5796
5893
5957
5997
6039
6076
6122
6158
6210
6254
6292
6328
6355
6389
6430
6506
6589
6637
6753
6817
6897
6950
7002
7019
1050
7089
7139
7198
7239
7277
7322
7361
7424
7443
7488
7558
7634
7712
7833
7939
8198
8266
8529
8695
8750
8782

5715
5799
5895
5958
6000
6040
6079
6126
6160
6212
6256
6293
6331
6360
6393
6432
6509
6591
6657
6772
6818
6907
6952
7003
7020
7052
7092
7140
7208
7245
7278
7328
7377
7425
7445
7491
7560
7647
7715
7843
7942
8200
8495
8531
8698
8754
8783

5717
5819
5911
5964
6005
6044
6084
6130
6165
6215
6257
6299
6333
6366
6397
6434
6518
6593
6663
6776
6822
6912
6953
7005
7021
7053
7093
7151
7210
7248
7281
7332
7378
7426
7447
7492
7562
7654
771.9
7846
7945
8209
8498
8535
8702
8758
8784

5731
5820
5914
5966
6009
6046
6088
6132
6169
6218
6261
6301
6334
6369
6400
6436
6520
6596
6668
6780
6824
6917
6956
7006
7022
7054
7095
7152
7212
7249
7291
7334
7380
7427
7449
7494
7565
7657
7721
7860
7948
8220
8504
8538 .
8707
8764
8789 .

5732
5836
5916
5971
6012
6051
6093
6133
6170
6229
6263
6304
6335
6373
6402
6438
6525
6600
6671
6784
6839
6925
6963
7007
7023
7057
7104
7154
7214
7254
7292
7335
7384
7428
7454
7496
7578
7659
7793
7861
7951
8224
8507
8539
8714
8766
8792

5755
5879
5924
5972
6014
6059
6095
6134
6177
6231
6264
6309
6337
6378
6404
6449
6550
6602
6674
6788
6841
6929
6966
7008
7024
7059
7107
7169
7216
7255
7293
7338
7391
7429
7458
7500
7581
7665
7802
7865
7954
8226
8508
8540
8719
8768
8808

5771
5881
5925
5973
6015
6060
6098
6135
6180
6240
6266
6310
6345
6379 .
6416
6451
6553
6614
6676
6792
6844
6933
6974
7009
7025
7060
7112
7180
7217
7257
7296
7340
7393
7430
7468
7502
7587
7667
7804
7912
7956
8240
8512
8546
8725
8770
8814

2426
4168
4547
5375
5550
5705
7177

2983
4174
4553
5376
5552
5829
7179

2987
4176
4803
5435
5637
5840
7187

2999
4186
4814
5484
5638
6463
7194

3002
4188
4890
5486
5645
6466
7196

3004
4193
4939
5502
5649
6470
7498

3005
4224
4942
5503
5652
6472
7501

3009
4386
4949
5522
5653
6552
7519

.,...,.

~)
T10KI.MCR[10,1141]

AD*2
PASS

O_AD

0_0*.5

0_0*2

(U) DISP
ADISP
AREAD
BDISP

BYTE
CONSOLE
DP
DP LEFT
DROM

·11: 45 11-AUG-1984
7594
630 II
4712
6457
627 II
2249
2787
3700
4017
4478
4752
5757
6055
6352
6893
7230
7351
7651
7857
7943
8208
8541
626 II
4223
4463
4614
5039
5378
5564
5706
7717
631 II
4260
4492
5403
5747
629 II
4271
4557
5480
5674
861 II
868 II
864 II
869 II
2813
3388
4129
5968
8517
874 II
862 II
867 II
865 II
863 II

MICRO 31(254)

~

KSlO MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 262

7600
2149
5049
6641
2159
2306
3110
3729
4040
4480
4760
5801
6056
6358
6895
7234
7369
7666
7910
7944
8210
8724
2382
4316
4464
4618
5099
5390
5567
·5711

8263
2971
5058
6747
2167
2333
3325
3734
4125
4483
4891
5802
6057
6371
6913
7238
7370
7685
7925
7946
8211
8793
2980
4326
4467
4619
5156
5394
5572
5716

8279
2994
5211
7131
2169
2342
3405
3739
4153
4610
4948
5803
6072
6377
6930
7252
7375
7691
7930
7947
8215
8796
3086
4385
4474
4818
5205
5396
5582
5718

3007
5231
7146
2170
2429
3452
3745
4195
4615
4961
5921
6103
6454
6964
7263
7402
7693
7931
7949
8218
8810
3112
4395
4482
4894
5216
5397
5587
5729

3010
5242
7148
2173
2494
3457
3774
4210
4620
4971
5928
6119
6510
7028
7284
7403
7725
7933
7950
8228

3037
5355
7446
2175
2526
3531
3779
4212
4626
4981
5934
6142
6576
7031
7287
7453
7727
7934
7952
8230

4122
5358
7482
2176
2532
3567
3813
4214
4627
5013
5937
6155
6588
7071
7294
7517
7729
7935
7953
8232

4149
5363
7626
2182
2537
3629
3816
4217
4689
5093
5962
6173
6590
7101
7307
7584
7822
7937
7955
8234

4205
5438
7632
2184
2540
3640
3841
4392
4692
5121
5967
6204
6630
7156
7309
7619
7830
7938
7958
8238

4448
6200
7723
2227
2590
3662
3974
4436
4701
5129
5984
6294
6694
7222
7317
7620
7838
7940
8197
8239

4588
6201
8501
2231
2786
3694
4013
4456
4736
5245
6029
6296
6724
7226
7318
7622
7845
7941
8207
8525

3114
4397
4510
4901
5221
5410
5627
5753

4118
4410
4515
4963
5236
5423
5632
5769

4144
4432
4516
4972
5239
5481
5642
5770

4183
4435
4533
4975
5296
5483
5655
5788

4203
4437
4558
4992
5320
5485
5661
5980

4211
4439
4609
5016
5323
5487
5673
6139

4213
4450
4613
5032
5367
5555
5676
6540

2383
4267
4540
5433
5750
2990
4279
4579
5492
5723
4560

2384
4275
5040
5576
5784
3071
4289
4582
5500
5740

3070
4285
5207
5601
5786
3074
4297
4594
5504
5762

3089
4293
5227
5604
5832
3075
4434
4599
5578
5779

3098
4388
5228
5612

3142
4390
5229
5615.

4119
4398
5243
5617

4147
4402
5298
5631

4226
4418
5321
5666

4247
4433
5326
5707

4248
4440
5401
5721

3076
4444
4819
5583
5807

3101
4472
4822
5585
5982

3105
4475
4895
5597

3108
4548
4898
5599

3143
4551
4903
5600

3146
4552
5222
5629

3147
4555
5223
5670

2574
2855
3472
4154
6167

2688
2865
3486
5206
6374

2690
2885
3500
5435
6728

2723
2895
3510
5443
6800

2729
2906
3695
5447
6807

2737
2916
3702
5493
7532

2739
2946
3740
5505
7559

2758
3270
4057
5515
7577

2760
3276
4071
5522
7588

2803
3369
4123
5926
7615

4721

6149

6852

6873

4428
6754
2357

4445
7418
2366

4470
8216
2371

6473

6500

8760

2379

2400

2406

2430

2435

5935

5938

2320
2568
2823
3389
4152
6112
8817
4704
4426
6459
2353

. T10KI.MCR[10.1141]
;

EAMODE
MUL
NICOND
NORM
PAGE FAIL
RETURN

~

!'l
...z

SCADO

0

~;;
II'

i

~

~
g

~

e

a
!

E
~

~

I
)
.t

(U)
(U)
(U)
(U)

DIVIDE
DONT CACHE
DP FUNC
DT
2T
3T

11: 45 11-AUG-1984
875 #
871 #
873 #
3337
3793
866 #
5526
5838
872 #
870 #
4492
4891
6224
6739
7198
7672
7731
876 #
6885
962 #
1132 #
1149 #
931 #
934 #
935 #
2786
3434
3815
4193
4422
4621
4966
5299
5496
5675
5752
5838
6040
6132
6191
6266
6360
6490
6614
6813
6938
7061
7254
7331
7619
7729
7938
7955
8538
8750

MICRO 31(254)

KS10 MICROCODE V124. 27-vUL-84
Cross Reference Listing

Page 263
7656

2278
4267
2227
3428
4217
5299
5677

2344
4275
2228
3452
4481
5328
5731

.3553
4285
2230
3453
4484
5405
5732

4743
4293
2231
3456
4692
5480
5742

4746
5579
2291
3457
5439
5482
5744

5922
5605
2297
3524
5445
5492
5764

6890
5607
2521
3525
5804
5496
5774

6898
5724
3042
3551
7351
5498
5776

3088
3593
7622
5500
5781

3116
3710
8201
5501
5782

5504
5809

2456
4514
5105
6234
6770
7264
7675
7922
4691
7687
4551

2457
4515
5242
6239
6786
7288
7701
7926
4696

3558
4517
5243
6242
6803
7363
7713
7960
4710

3562
4601
5525
6280
6812
7407
7715
8547
4786

4023
4628
5527
6281
6814
7515
7717
8745
5282

4026
4730
5528
6431
6840
7518
7719
8833
5425

4229
4732
5617
6437
6875
7590
7721

4272
4736
5812
6608
6908
7597
7723

4280
4771
5819
6631
6914
7603
7725

4290
4804
5820
6696
6919
7660
7727

4298
4823
5835
6727
6959
7668
7729

5427

5980

5982

6033

6843

4552

4596

4600

7584

7619

7725

8526

8542

2180
2987
3437
3973
4211
4432
4637
4975
5328
5498
5677
5761
5912
6044
6136
6193
6267
6366
6509
6615
6818
6939
7063
7259
7333
7620
7845
7940
7956
8539
8752

2370
2999
3446
3986
4213
4439
4644
4976
5345
5500
5689
5764
5954
6059
6139
6198
6268
6373
6540
6629
6822
6944
7065
7261
7337
7648
7912
7941
7957
8540
8754

2382
3002
3449
3991
4326
4452
4691
4991
5365
5501
5700
5770
5955
6060
6145
6200
6286
6379
6544
6691
6824
6952
7083
7265
7339
7650
7917
7943
7959
8546
8766

2383
3016
3591
4012
4328
4533
4696
5021
5371
5504
5719
5774
5972
6061
6149
6202
6292
6380
6550
6693
6839
6953
7092
7266
7341
7654
7918
7944
8198
8680
8795

2493
3086
3591
4016
4330
4609
4704
5034
5373
5507
5731
5776
5975
6062
6160
6210
6319
6381
6553
6736
6841
6956
7151
7295
7343
7657
7921
7946
8199
8693
8809

2525
3089
3606
4039
4334
4611
4710
5039
5405
5512
5732
5781
5991
6079
6177
6212
6323
6382
6557
6737
6852
7002.
7208
7297
7345
7659
7930
7947
8248
8697

2531
3331
3606
4083
4348
4613
4712
5103
5446
5526
5742
5782
5995
6093
6178
6215
6331
6396
6578
6738
6868
7003
7210
7298
7347
7664
7931
7949
8491
8700

2536
3334
3693
4095
4387
4614
4721
5132
5480
5547
5743
5806
6005
6094
6180
6251
6336
6398
6587
6744
6873
7049
7212
7301
7370
7671.
7933
7950
8498
8705

2539
3343
3699
4121
4393
4616
4736
5158
5482
5649
5744
5809
6012
6096
6184
6253
6337
6402
6589
6751
6925
7056
7214
7307
7584
7673
7934
7952
8511
8711

2589
3346
3738
4126
4408
4618
4891
5175
5488
5668
5746
5812
6021
6113
6188
6254
6347
6452
6590
6806
6929
7058
7216
7309
7589
7725
7936
7953
8530
8735

2780
3405
3744
4188
4410
4619
4962
5247
5492
5672
5749
5830
6024
6126
6189
6265
6355
6487
6594
6811
6933
7060
7245
7322
7616
7727
7937
7954
8532
8741

3325
3786

\

,

T 10K I . MC R [ 10, 1141 1
4T
5T
(U) EXT ADR
(U) FETCH
(D) FL-B
AC

(U)
(U)
(U)
(U)
(U)

BOTH
MEM
FLG.C
FLG.PI
FLG.SN
FLG.W
FMWRlTE

(U) FORCE EXEC
(U) FORCE USER
(U) GENL

(U) GENR

~,

~

~
936 #
937 #
1155 #
7843
8830
1121 #
3019
4217
1338 #
1339 #
5338
1341 #
1340 #
1304 #
1303 #
1305 #
1302 #
957 #
2520
3437
4186
4456
4706
5757
6008
6087
6258
6352
6678
6954
7287
7910
8232
1119 #
7495
7939
1118 #
7581
7948
719 #
2362
3535
3990
5139
5924
6088
6378
6727
7283
7425
7945
8778
726 #
3113
3605

Page 264

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

3954
7846
8833
2227
3325
4692

3978
7929

3998
7932

4025
7939

6971
7942

6979
7945

7453
7948

7495
7951

7584
8657

7619
8673

7725
8794

2228
3337
4701

2230
3452
7351

2231
3453
7622

24 50
3456
7858

2276
3457
8752

2290
3524

2296
3525

2343
3551

2404
3593

2429
3708

5259
5383
5261
5260
8246
3621
5507
8246
2159
2771
3440
4195
4459
4948
5765
6028
6103
6259
6357
6694
6964
7317
7925
8234
3954
7503
7942
3954
7617
7951
2228
2690
3538
3995
5143
5927
6099
6389
6846
7308
7426
7948
8780
2419
3115
3626

5262
5384
5265
5264
8511
8693
5608
8530
2167
3021
3443
4197
4478
4961
5801
6029
6119
6271
6358
6724
7071
7318
7935
8238
3978
7578
7945
3978
7628
8657
2230
2721
3551
4025
5148
5930
6111
6393
6888
7342
7448
7951
8782
2421
3386
3639

5263
5418
5269
5268
8532
8792
5609
8696
2169
3042
3446
4208
4480
4971
5802
6035
6121
6272
6362
6820
7156
7402
8197
8239
3998
7581
7948
3998
7634
8673
2275
2729
3563
4041
5163
5971
6115
6449
6897
7344
7518
8200
8783
2434
3528
3770

5267
5419
5273
5272
8696

5270

5271

5304

5308

5309

5333

5337

5306
5305
8699

5311
5310

5335
5334

5340
5339

5743

5746

5749

5752

5812

5819

5820

2172
3110
3662
4210
4610
5013
5810
6048
6142
6281
6377
6889
7226
7543
8207

2173
3116
3709
4212
4615
5064
5921
6055
6155
6294
6384
6913
7230
7651
8208

2175
3299
3711
4214
4620
5113
5934
6056
6162
6296
6385
6927
7234
7685
8210

2176
3388
3774
4436
4626
5177
5937
6057
6173
6305
6386
6930
7238
7691
8211

2182
3428
3779
4452
4627
5202
5962
6072
6204
6308
6545
6935
7252
7693
8218

2184
3431
3807
4453
4628
5439
5967
6083
6221
6340
6576
6942
7263
7731
8228

2488
3434
4178
4454
4689 .
5445
5984
6085
6223
6346
6605
6947
7284
7838
8230

6971
7628
8657
6971
7846
8830
2289
2753
3617
4735
5176
6000
6141
6502
7077
7348
7665
8515
8814
2457
3540
3920

6979
7634
8673
6979
7860
8833
2295
3337
3631
4765
5228
6016
6169
6559
7091
7360
7665
8758
8833
2688
3542
3922

7439
7843
8794
7439
7929

7453
7846
8830
7453
7932

7455
7860
8833
7486
7939

7469
7929

7486
7932

7495
7942

7578
7945

2300
3453
3759
4974
5229
6022
6246
6563
7138
7420
7846
8764

2315
3456
3818
5033
5249
6051
6261
6598
7152
7421
7862
8770

2316
3524
3830
5056
5251
6070
6299
6623
7154
7422
7932
8772

2328
3525
3834
5105
5324
6076
6334
6664
7198
7423
7939
8774

2339
3526
3978
5117
5587
6084
6351
6669
7278
7424
7942
8776

2723
3543
3924

2727
3544
3926

2744
3577
3928

2746
3582
3930

2770
3585
3932

11: 45 11-AUG-1984

5616
8708
2170
3077
3449
4209
4483
4981
5803
6045
6128
6279
6371
6848
7222
7403
8201
8724
402~

7617
7951
4025
7843
8794
2288
2751
3593
4092
5166
5997
6122
6455
7051
7346
7644
8507
8784
2456
3537
3918

T10KI.MCR[~0.1141J

(U) HALT

~
~

~
~
~
~

;t

BW14
CSL
HALT
ILLII
ILLINT
IOPF
MULERR
NICOND 5
POWER
(U) HOLD USER

~
.~

~
w

(D) I

~
~
.~

~

~

E

I
g

I
.t

(U) I.C03
I.C04
I.C05
I.C06
I.C07
(U) 10 BYTE
(U) 10 CYCLE

(U)
(U)
(U)
(U)

11: 45 l1-AUG-1984
3940
4635
5318
5754
6263
6507
6809
7014
7088
7334
7810
8699
1281
1291
1285
1284
1288
1289
1287
1293
1292
1283
1088
3701
4131
4641
1346
2635
2799
2890
3174
3194
3216
3351
3467
3491
3670
3856
3871
3883
3898
3913
5850
5864
7738
7753
7767
7780
1183
1184
1185
1186
1187
1168
1162

4022
4812
5319
5789
6302
6601
6907
7015
7109
7336
7812
8704
#
#
#
#
#
#
#
#
#
#
#

#

#
#
#
#
#
#
#

2516
2247
3579
7468
7500
8749
2190

MICRO 31(254)
4038
4947
5351
5819
6304
6603
6919
7018
7114
7338
8193
8709

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

Page 265

4103
4955
5352
5820
6311
6673
6990
7019
7124
7340
8196
8715

4104
5018
5412
5835
6317
6677
6999
7020
7129
7472
8247
8729

4105
5063
5413
5917
6326
6731
7000
7021
7136
7674
8251
8792

4127
5098
5489
5939
6345
6773
7001
7022
7141
7719
8254

4150
5102
5505
6166
6397
6777
7005
7023
7182
7793
8259

4357
,5,289
5608
6171
6400
6781
7006
7024
7189
7802
8506

4396
5290
5609
6240
6405
6785
7007
7025
7217
7804
8510

4458
5293
5616
6256
6430
6789
7008
7045
7239
7806
8513

4512
5294
5632
6257
6436
6793
7013
7085
7250
7808
8524

3403
3791
4206
4745
2557
2652
2827
2910 '

3486
3812
4228
5349
2600
2662
2842
2930
3179
3199
3230
3356
3478
3496
3800
3864
3876
3888
3906
4137
5856
5870
7746
7759
7773
7786

3500
4004
4231
5361
2605
2667
2849
2939
3180
3210
3231
3461
3479
3503
3801
3865
3877
3889
3907
4304
5857
5871
7747
7760
7774
7787

3557
4057
4338
5426
2610
2672
2859
2940
3181
3211
3232
3462
3480
3504
3851
3866
3878
3890
3908
4309
5858
5872
7748
7761
7775
7788

3561
4071
4373
5714
2615
2677
2869
2941
3183
3212
3233
3463
3481
3515
3852
3867
3879
3891
3909
5108
5859
5873
7749
7762
7776
7789

3597
4088
4404
6388
2620
2796
2879
2942
3184
3213
3234
3464
3482
3517
3853
3868
3880
3892
3910
5384
5861
5907
7750
7764
7777

3619
4098
4490
6389
2625
2797
2888
2954
3192
3214
3349
3465
3489
3668
3854
3869
3881
3893
3911
5848
5862
7736
7751
7765
7778

3689
4101
4639
6988
2630
2798
2889
2955
3193
3215
3350
3466
3490
3669
3855
3870
3882
3897
3912
5849
5863
7737
7752
7766
7779

7617

7628

7634

7860

2265

2218
2216
3757
4132
4706
2547
2642
2807
2891
3175
3195
3217
3352
3468
3492
3671
3857
3872
3884
3899
3914
5851
5866
7740
7755
7768
7782

2577
3787
4156
4723
2552
2647
2817
2899
3176
3196
3227
3353
3475
3493
3765
3858
3873
3885
3900
4050
5852
5867
7741
7756
7769
7783

3197
3228
3354
3476
3494
3798
3862
3874
3886
3904
4064
5853
5868
7743
7757
7770
7784

3419
3806
4218
4997
2562
2657
2832
2920
3178
3198
3229
3355
3477
3495
3799
3863
3875
3887
3905
4112
5854
5869
7744
7758
7771
7785

7579
7439

7629
7486

7635
7578

7581

~177

~

~
TlOKI .MCR[ 10,1141]
(U) J

ABORT
ACBSET
AC ARX
ADD
ADDCRY
ADJBP
ADJBPO
ADJBP1
ADJBP2
ADJBP3
ADJBP4
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
BACKD
BACKS
BADDATA
BDABT
BDCFLG
BDEC

11: 45 11-AUG-1984
524 #
2457
4515
5105
5938
6727
6959
7668
7729
8745 #
7119 #
7731 #
4056 #
6239 #
4936 #
4939 #
4958 #
4968 #
5011 #
5023 #
5037 #
5058 #
3769 #
3786 #
3791 #
2813 #
2823 #
2875 #
2838 #
3508 #
3486 #
3403 #
7035 #
7027 #
7030 #
2456 #
2980 #
3083 #
3089 #
3105 #
3116 #
3098 #
3110 #
2990 #
2987 #
2983 #
2994 #
3007 #
6958 #
6933 #
6925 #
8237 #
6402 #
6404 #
6286 #

2320
3558
4517
5242
6224
6739
7198
7672
7731
3945
7111
3831
4049
6214
4690
4941
4960
4965
4996
5035
5031
5060
3765
3778
3783
2806
2816
2868
2831
3503
3475
3392
7003
7002
2398
2951
2955
3087
3094
3077
3100
3102
2990
2980
2969
3007
3012
6926
8775
8782
8222
6338
6383

MICRO 31(254)
2353
3562
4561
5243
6234
6770
7264
7675
7854
8726
6945
4050
6220

2807
2817
2869
2832
3504
3476
3393

2371
4229
4730
5528
6280
6812
7407
7715
7960

2357
4023
4601
5525
6239
6786
7288
7701
. 7922

2366
4026
4628
5527
6242
6803
7363
7713
7926

4051
6233

4052

2808
2818
2870
2833

2809
2819
2871
2834

2838
2875

3477
3394

3478
3395

3479
3396

3107
3113

6934
8783

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

8785

Page 266

2379
4272
4732
5617
6281
6814
7515
7717
8547

2400
4280
4736
5812
6431
6840
7518
7719
8745

2406
4290
4771
5819
6437
6875
7590
7721
8833

3480
3397

3481
3398

3482
3399

2430
4298
4804
5820
6608
6908
7597
7723

2435
4492
4823
5835
6631
6914
7603
7725

2456
4514
4891
5935
6696
6919
7660
7727

T10KI.MCR[10,1141]

~

~

~
~
~

i

;t

5
'g

iw

.,5
.li
.2

BDECO
BDEC1
BDEC2
BDEC3
BDEC4
BDEC5
BDECLP
BDF I LL
BDSET
BDSUB
BDSUB1
BDSUB2
BDTBL
BITCHK
BIXUB
BIXUB1
BLT
BLT-CLEANUP
BLTBU1
BLTCLR
BLTGOT
BLTGO
BLTLP
BLTLP1
BLTX
BLTXLP
BLTXV
BLTXW
BOTH
BWRITE

~

i

I
«
g

I

BYTEAS
BYTEA
BYTEAO
BYTFET
BYTIND
CAlM

Ii:

CHKSN
CLARXL
CLARXO
CLDISP
CLEANED
CLEANUP
CLRB1
CLRBIN
CLRFLG
CLRPTL
CLRPT
CLRSN
CMPDST
CMS
CMS2
CMS3

11:45 11-AUG-1984
6292
6299
6304
6314
6319
6331
6369
6353
6377
6416
6420
6436
6393
6907
7556
7565
5112
5173
5227
5132
5160
5158
5155
5121
5200
5204
5239
5245
2328
2467
2813
4129
4743
4745
4748
4769
4763
3369
3362
5812
7719
6430
8760
8763
8762
6281
6279
6917
7384
7375
5820
6145
6093
6134
6110

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

6290
6308
6312
6300
6314
6317
6388
6362
6397
6320
6417
6439
6376
5913
7549
7561
5108
8767
5208
5147
5135
5124
5170
5157
7799
5253
5225
5240

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

6322
6327
6400
6370

5956
7550
7563

6094
·7551

6096
7552

6453

5152

.

2723
2895

2729
2906

2737
2916

2739
2946

2758
4057

2760
4071

2803
4123

3353

3354

3355

3356

3358

3359

3360

3361

4646
6954

6161
8755

6295

6421

2568
2823
4152
4767
4700
4744
4751
4759
3350
3363
5793
5096
4639
6927
5178
8760
6279
6164
5960
7387

2574
2855
4154
6850
4719

2688
2865
8517

2690
2885
8817

4755

6892

6893

3351
3364

3352
3365

7493
4641
6935
8757

4645
6948

5598
6125

5688

6104
6136

Page 267

6260
6332

6140

I

.......

~
T10KI .MCR[ 10,1141]
CMS4
CMS5
CMS6
CMS7
CMS8
CMSDST
COMO
COMOA
COM1
COM1A
COM2
COM2A
CONSO
CONSZ
CONT
CONT1
CPYSGN
DAC
DADO
DADD1
DBABT
DBDN1
DBDONE
DBFAST
DBIN
DBIN1
DBIN2
DBINLP
DBLDBL
DBLDIV
DBLMUL
DBLNEG
DBLNGA
DBLNG1
DBNEG
DBSLOW
DBSLO
DBXIT
DDIV
DDIV1
DDIV2
DDIV3A
DDIV3
DDIV4
DDIV5A
DDIV5B
DDIV5C
DDIV5
DDIV6
DDIV7
DDIV8A
DDIV8
DDIV9
DDIVS
DFAD

11 : 45

11-AUG-1984
6113
6139
6125
6130
6141
6929
4628
4623
4627
4618
4626
4613
7028
7031
7857
7864
4103
2488
4083
4086
6245
6258
6253
6198
6154
6169
6173
6177
6229
4579
4223
4635
4636
4644
6263
6210
6191
6251
4385
4402
4405
4410
4406
4418
4432
4456
4458
4426
4461
4463
4472
4470
4478
4492
5546

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

6118
6142
6127
6139
8781
4623
4627
4618
4626
4613
7010
7009
7852
4044
4089
2495
4078
4092
6181
6256
6247
6194
6172
6169
6195
6217
4433
4194
2780
2770
4358
6252
2181
6199
6179
4380
4389
4403
4415
4400
4411
4423
4447
4453
4422
4454
4463
4473
4419
5533

MICRO 31(254)

KS10 MICROCODE V124, 27-uUL-84
Cross Reference Listing

4624

4099
2765

6402

6185
6272

6205
6228
4443

5716

6304
6192

4393

4456

4437

5712

5720

Page 268

T 10K I . MCR [ 10, 1141 ]
DFADJ
DFADJ1
DFADJ2
DFADJ3
DFADJ4
DFADJ5
DFADJ6
DFAS1
DFAS2
DFAS3
DFAS5
DFAS6
DFAS7
DFDV

DFDV1
DFDV2
DFDV3
DFDV4A
DFDV4B
DFDV4
DFMP
DFMP1
DFMP2
DFPR1
DFPR2
DFSS

DIV

DIV1

DIV2
DIVA
DIVS
DIVC
DIVHI
DIVIDE
DIVSET
DIVSGN
DIVSUB
DMLINT
DMOVNM
DMOVN
DMOVN1
DMTRAP
DMUl
DMUl1
DMUl2
DMUlGO
DNEG
DNEG1
DNEG2
DNN1
DNN2
DNNORM
DNNRM1
DNORM
DNORMO

11: 45 11-AUG-1984
5597
5604
5606
5612
5613
5615
5617
5555
5562
5567
5576
5581
5583
5686
5692
5700
5711
5726
5731
5713

5627
5629
5655
2421
2422
5543
4324
4333
4336
4345
4351
4364
4586
4551
4545
4531
4510
4231
2780
2770
2782
4215
4167
4188
4193
4222
5769
5771
5773
5799
5801
5779
5806
5740
5677

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
.II
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

MICRO 31(254)

5562
5605

5570

5608
5609
5607
5615
5551
5556
5558
5564
5582
5581
5683
5699
5693
5703
5729
5728
5709
5622
5630
5652
2415
2420
5534
4308
4319
4349
4331
4346
4356
4580
4551
4541
4513
4337
4196
2775
2766
2774
4209
4162
4177
4187
4175
5743
5769
5770
5795
5797
5732
5789
5678
5587

5612

KS10 MICROCODE V124, 27-JUl-84
Cross Reference listing

5616
5553
5572

4311

4309
4321

4310
4375

4361
4583

4597

5367
4970

4980

5014

5746

5749

5752

5774

5776

5781

5731

5742

5764

5809

page 269

~)'
T 10K I . MC R[ 10, 114 1 ]
DNORM1
DNORM2
DOCVT
DOCVT1
DOCVT2
DOCVT3
DONE

DPB
DPB1
DPB7
DPBSLO
DRND1
DROUND
DSMS1
DSTEA
DSTIND
DSUB
DUMP
DVSUB1
DVSUB2
DVSUB3
EACALC
EAPF1
EDBYTE
EDEXMD
EDFILL
EDFIL1
EDFLT
EDFLT1
EDISP
EDISP1
EDIT
EDITLP
EDM,SG
EDMSG1
EDN1A
EDNOP
EDNOP1
EDNOP2
EDOPR
EDSEL
EDSFL T
EDSKP
EDSKP1
EDSPUT
EDSSIG
ED STOP
EDSTP1
ENDSKP
EQV
EXCH

~1:45

11-AUG-1984
5761
5803
6291
6366
6387
6384
2227
3331
7072
7543
4712
4883
4890
4894
5835
5829
7517
6892
6897
4095
7929
4537
4538
4540
2282
8829
6629
6540
6556
6571
6587
6605
6470
6472
6449
6454
6614
6623
6660
6649
6640
6650
6667
6499
6550
6576
6637
6641
6563
6533
6518
6524
6261
2885
2587

#
#

#
#
#
#
#

#
#
#
#

#
#

#
#
#
#
#

#
#
#
#

#
#

#
#
#

5754
5801
6341
6291
6367
6406
2527
3334
7126
4685
4722
4884
4883
5831
5745
7514
6898
6894
4079
7913
4534
4532
4544
2345
8811
6592
6511

#
#
#

6558
6533
6601
6464
6472

#
#
#
#
#
#

6678
6479
6616
6665
6481

#

#
#

#
#

#
#
#
#
#

#
#
#
#
#

6644
6661
6476
6503
6560
6488
6638
6571
6505
6501
6527
6085
2878
2583

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 270

6357

2541
3349
7222

2841
3461
7226

2842
3712
7230

3021
4218
7234

3174
4723
7238

6874
4885'

4886

4887

4888

4912

5842
5751

5783

5785

5787

5833

6485

6499

6508

6534

6545

5839
5748
7519

3175
5065
7285

3183
5140
7309

3184
5164
7319

3284
5249
7370

3328
7031
7404

6566

6572

6625

6626

6895
7920

6620

6577
6603

6483
6667

6491

6493

6581
6561
2879

2880

2881

T10KI.MCR[10,1141]
EXTDSP
EXTEA
EXTEAO
EXTEA 1
EXTEND
EXTEXT
EXTIND
FAO
FAS1
FAS2
FAS3
FAS4
FDV
FDVO
FDV1
FDV2
FDV3
FDV4
FDV5
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

11: 45 11-AUG-1984
5925
5924
5921
5922
5911
5934
5930
5282
5284
5293
5296
5298
5345
5351
5353
5354
5355
5357
5360
5363
5367
5370
5378
2338
5423
4555
4557
5438
8758
5433
5445
5442
5443
2514
5493
5388
5396
5392
5401
5403
5315
5320
3930
2395
2399
5279
5409
7193
6841
4000
7034
7013
7207
6839
6848

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

#

#
#

#
#
#'
#
#
#
#
#

#
#
#
#
#
#
#

#
#
#

5919
5930
5907
5926
5927
5259
5284
5289
5298
5333
5348
5351
5352
5353
5358
5357
5360
5368

5940
5260

5261

5262

5290

5293

5294

5334

5335

5337

5263

5264

5265

5338

5339

5340

5311

5354

#
#

#
#
#
#
#

#
#
#

#
#
#
#
#
#
#
#
#

#
#
#

#
#
#

#
#
#
#
#

#
#
#
#

5370
2303
5418
4556
4555
5428
4231
5434
5442
5435
5449
5443
5489
5383
5393
5389
5394
5404
5304
5318
3908
2389

5375
2308
5419

5267
5384
3976
6116
8831
6995
6996
7203
6073
6844

5376
2330

5438
6418

5493

5515

5305
5319
3909

5306

5308

5309

5310

3910

3911

3912

3913

5268

5269

5270

5271

5272

5447

5396

6551

6726

5273

Page 271

~

.~

~.\

TiOKI.MCR[10.1141]
GTFILL
GTPCW1
H1
HALT
HAL TED
HALTLP
HARO
HLL
HLLE
HLLO
HLLZ
HLR
HLRE
HLRM
HLRO
HLRS
HLRZ
HRL
HRLE
HRLM
HRLO
HRLS
HRLZ
HRR
HRRE
HRRO
HRRZ
HSBDON
IBP
IBPS
IBPX
IDIV
IDPB
IDST
IDSTX
ILDB
IMUL
IMULl
IMUL2
IMUL3
INCAR
INCPC
INDEX
INDRCT
IOEA
IDEAl
IOEA2
IOEAI
IOEAX
lOR
lORD
IORDl
IORD2
IORD3
IOT700

11: 45 11-AUG-1984
6911
7196
7848
3577
7838
7854
8724
2690
2756
2760
2758
2717
2749
2726
2753
2729
2751
2715
2742
2720
2746
2723
2744
2688
2735
2739
2737
7956
4688
4729
4736
4315
4710
6885
6889
4696
4117
4123
4125
4131
7721
2275
2315
2333
7644
7650
7654
7662
7671
2865
7575
7584
7594
7600
7793

#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
"#
#
#
#
#
#
#

#
#
#
#
#
#
#

5953
7187
7914
3529
2190
7848
7707
2599
2629
2619
2609
2646
2676
2648
2666
2649
2656
2604
2634
2606
2624
2607
2614
2601
2671
2661
2651
4681
4691
3828
4303
4684
6146
6886
4682
4111
4340
4122
4128
6047
2270

MICRO 31(254)

KS10 MICROCODE V124. 27-uUL-84
Cross Reference Listing

6450
7196
2247

2265

2516

8224
2600
2630
2620
2610
2647
2677

8226
2643
2631
2621
2611

8240
2715
2632
2622
2612

2678

2679

2667

2668

2669

2657
2605
2635

2658

2659

2636

2637

2625

2626

2627

2615
2641
2672
2662
2652

2616
2642
2673
2663
2653

2617
2717
2674
2664
2654

4696
4729
4304

4710
4305

4306

4113

4114

2859
7542

2860
7557

2861

7601
7737

7738

3579

6869
4112

7473

#

#
#
#
#
#
#
#
#
#
#
#
#

7576
7652
7650
7655
7658
2858
7531
7580
7589
7595
7736

Page 272

7614

2926

7468

7500

8749

T10KI.MCR[10.1141)
IOT710
IOT720
IOT730
IOT740
IOT750
IOT760
IOT770
IOWl
IOW2
IOW3
IOW4
IOW5
IOWA IT
IOWR
IOWR1
IOWR2
IOWR3
ITRAP
JEN
JEN1
JEN2
JFCL
JFFO
JFF01
JFFOL
JMPA
JRA
JRST
JRSTO
JRST1
JRST10
JRSTF
JSA
JSP
JSR
JSTAC
JSTAC1
JSYS
JUMP
JUMP-TABLE
JUMPJUMP A
KIEPT
KIF10
KIF30
KIF40
KIF50
KIF80
KIF90
KIFILL
KIMUUO
KIUPT
L-BDEC
L-CMS
L-DBIN

11: 45 11-AUG-1984
7795
7802
7804
7806
7808
7810
7812
7684
7696
7699
7704
7707
7680
7613
7619
7626
7632
8208
3585
7514
3591
35~7

3015
3023
3037
3440
3839
3524
3553
3571
3582
3547
3824
3805
3811
3706
3709
3924
3472
3425
3452
3456
8670
8661
8678
8685
8693
8714
8719
8649
4012
8655
5885
5879
5883

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

7740
7743
7746
7755
7764
7773
7782
7689
7686
7706
7700
7694
7585
7546
7629
7616
7627
6049
3539
3591
3583
3517
2954
3020
3039
3845
3801
3465
3550
3566
3536
3527
3800
3799
3798
3696
3760
3905
3462
3472
3431
3440
8664
8654
8659
8689
8687
8710
8280
3955
8677
5858
5848
5856

MICRO 31(254)
7741
7744
7747
7756
7765
7774
7783

7748
7757
7766
7775
7784

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

7749
7758
7767
7776
7785

7750
7759
7768
7777
7786

7751
7760
7769
7778
7787

3466
3510
3600
3449

3467

3468

3808

4006

5852

5853

5854

7692

7621
7566
7635
7633
3606

3515
3574
3570

3589

3703

3741

3463
3486
3434
3443
8667

3464
3500
3437
3446

8674
8716

8731

5859
5849
5857

5850

7752
7761
7770
7779
7788

Page 273

7753
7762
7771
7780
7789

~
T 1OK I . MC R [ 10. 1 14 1 ]
L-EDIT
L-MVS
L-SPARE-A
L-SPARE-B
L-SPARE-C
L-XBLT
LOB
LOBi
LDB7
LDBSH
LDBSWP
LDPI2
LOADAR
LOADARX
LOADPI
LOADQ
LSH
LSHC
LSHCL
LSHCR
LSHCX
LSHL
LUUO
LUU01
MAP
MAPDON
MOVE
MOVElP
MOVF1
MOVFIL
MOVLPO
MOVM
MOVN
MOVPAT
MOVRJ
MOVS
MOVSTX
MOVSTO
MOVST1
MOVST2
MOVST3
MOVST4
MSKPAT
MUL
MUL+
MULMULBY4
MULSBl
MULSUB
MULTIPLY
MUUO
MVABT

,......,

,...."

11: 45 ll-AUG-1984
5881
5887
5891
5893
5895
5889
4698
4785
4799
4814
4808
7360
7712
7715
7359
7717
2964
3066
3074
3070
3076
2971
4030
4033
8191
8814
2574
4104
5991
6691
6697
6000
2571
2576
6466
6021
2568
6074
6069
6070
6083
6087
6079
6467
4144
4266
4284
6228
4248
4247
4259
3937
3873
3885
6005

#
#
#
#
#
#
#
#
#
#
#
#
#
#'
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

5851
5861
5867
5868
5869
5866
4683
4705
4790
4809
4787
3592
6395
6750
2193
5114
2953
2957
3066
3070
3071
2966
3851
5879
8187
8769
2548
4105
5971
6697
6023
5985
2561
2556
6461
5977
2551
5974
6025
5994
6083
6036
6462
4136
4250
4276
6211
5638
4120
4227
3862
3874
3886
5996

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

5862

5863

5864

5870

5871

5872

5873

6149 '
4791

6854
4792

4793

4794

7349
6458
7280

6541

7646

Page 274

6102
3074
3143

3148

3852
5881

3853
5883

3854
5885

3855
5887

3856
5889

3857
5891

3858
5893

5895

2571
4131
6000

2578
4132

2602
4156

2644
4966

2826

2827

2828

2829

2843

2563
2557
6463

2564
2558
6466

2559

2552

2553

2554

272,1

2727

2744

2746

2751

2753

4137
4262
4294

4138
4268

4139
4286

4148
5643
3863
3875
3887

5041
5655
3864
3876

5322
5662
3865
3877
3889

3866
3878
3890

3867
3879
3891

3868
3880
3892

3869
3881
3893

3870
3882

387·1
3883

2844

6084

6080
6075

38~8

3872
3884

T10KI.MCR[10.1141]

~

a
~
0

m

~
~

ot

!
.~

i;;;

",e

.ii

g

~
~

1

!g

I
ot

MVABT1
MVABT2
MVEND
MVS
MVS1
MVSK2
MVSK3
MVSKP
MVSKP1
MVSKP2
MVSO
MVS01
NEXT
NEXTAR
NICOND
NICOND-FETCH
NIDISP
NODDIV
NODIV
NO MOD
NXTWRD
ORCA
ORCB
ORCM
PAGE-FAIL
PF120
PF125
PF130
PF140
PF25
PFD
PFDBIN
PFDONE
PFGACO
PFMAP
PFPI1
PFPI2
PFT
PFT1
PFT10
PFT1A
PFT2
PFT3
PI
PI10
PI40
PI50
PIEXIT
PIJSR
PIP1
PIP2
PIP3

11: 45 11-AUG-1984
6008
6012
6015
5950
5967
6055
6045
6028
6039
6051
5979
5982
4025
8833
2236
5445
2255
3457
3088
5714
4489
4373
2319
4735
2905
2936
2926
8206
8519
8538
8501
8495
8263
8214
6952
8491
6954
8244
8733
8741
8749
8750
8793
8757
8789
8792
7417
7435
7453
7454
7349
7468
7427
7428
7429

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#.
#
#
#
#
#
#

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUl-84
Cross Reference listing

Page 275

6010
6008
5965
6029
6041
6021
6034
6043
5972
5982
4013
8797
2521
5804
2227
3524
3788
4426
4367

4428
4371

4731
2898
2929
2919

2899
2930
2920

8499
8536
8497

8742
8503

8265
8216
8779
8717

8721

8200
8218

8228
8230

8693
8738
8791
8753
8765
8818
7419
7427
7450
7504
3621
7457
7420
7421
7422

6039

6052

6063

7930

7933

7935

7937

7940

7943

7946

7949

7952

7954

3042
8201
2228
3525
3792

3088

3116

3428

3710

3786

3793

4481

4484

5439

2230
3551
4338

2231
3593
4373

2291
4217
4404

2297
4692
4490

3325
7351
4707

3337
7622
4997

3452

3453

3456

5349

5361

5426

2900
2931
2921

2901
2932
2922

8232

8234

7429

7430

7431

7432

7433

8792
7428

T10KI.MCR[10,1141]
PIP4
PIP5
PIP6
PIP7
PISET
PIXPCW
POP
POPJ
POPX1
PUSH
PUSH1
PUSHJ
PUTDST
PWRON
QDNEG
QMULT
Q RSH
RDAPR
RDCSB
RDCSTM
RDEBR
RDEBR1
RDERA
RDHSB
RDINT
RDIO
RDPI
RDPUR
RDSPB
RDTIME
RDTIMl
RDUBR
ROT
ROTC
ROTCL
ROTCR
ROTL
RTNREG
SAVVMA
SBRL
SETBLT
SETCA
SETCM
SETO
SETPDL
SETSN
SETUBR
SETZ
SFM
SHIFT
SKIP
SKIP-COMP-TABLE
SKIPE
SKIPS
SNNEG

11:45 11-AUG-1984
7430
7431
7432
7433
3620
3629
3716
3749
3744
3676
3678
3688
6867
7843
4609
4226
5243

7083
7210
7214
7177
7179
7005
7216
7322
7542
7328
7212
7208
72il 1
7307
7186
2999
3138
3146
3142
3009
7369
7924
7723
5092
2895
2916
2946
3701
5819
7127
2803
3639
2375
2230
3322
3331
3386
5496

#
#
#

#
#
#
#
#
#
#

#
#

#
#
#

#

II

7423
7424
7425
7426
7475
7460
3670
3671
3732
3669
3690
3668
5998
2219
4413
4184
5215

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 276

6077

6359

6378

6564

6599

6624

6692

7096
7911
6203
5201
2889
2910
2940

7183

7190

7208

7210

7212

7214

7216

2890
2911
2941

2891
2912
2942

2936

5374

5669

2797

2798

2799

3343
3388

3346
3389

6261
6112

6389

7028

3376
5483

3377
5485

3378
5487

3379

3380

3381

3382

3405

4489
4204
5235

#

#
#
#
#
#
#

7179

#
#
#

7535

7537

#
#
#
#
#
#
#
#
#

#
#

#
#
#

#
#
#

#
#
#
#

#
#
#

#
#

#
#

7305
7304
2952
2956
3138
3142
3001
7046
7839
5364
5112
2888
2909
2939
3746
5372
7121
2796
3541
2385
3340
3369
6088
3375
5481

3146
7323

7328

T10KI.MCR[10.1141]
SNNORM
SNNOT
SNNOT1
SNNOT2
SNORM
SNORMO
SNORM1
SOu
50S
SRCMOD
SRND1
SROUND
SSWEEP
STAC

~

;;

I-

a
.,;

lit

~

~

;t

~
'g

i

w

IoX
2
~

~

I
J

Ii:

STAC34
START
STBOTH
STBTH1
STDBTH
STMAC
STMEM
STOBR
STOPC
STORE
STPF1A
STRPF
STRPFO
STRPF1
STRPF2
STRPF3
STRPF4
STRTIO
STSELF
STUBRS
SUB
SWEEPL
SWEEP
T1LSH
TDONE
TDX
TDXX
TENLP
TEST-TABLE
TICK
TIOX
TOCK
TOCK1
TOCK2
TOCK3
TRAP
TRNAR
TRNFNC

11: 45 11-AUG-1984
5!;i00
5511
5514
5515
5480
5405
5492
3500
3419
6724
5525
5522
7406
2520
5758
6271
2249
2531
2536
2493
3693
2525
7727
7729
2539
6950
6938
6939
6942
6953
6947
6956
7725
2483
7131
4070
7397
7391
5242
3299
3270
3231
3275
3225
2179
. 3281
7245
7531
7248
7252
7259
7263
6963
6745
6767

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#,
#
#
#

5496
5507
5509
5511
5299
5378
5488
3489
3408
5992
5522
5482
7379
2489
5765
6266
3820

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 277

5498

5500

5504

5513
5328
5390

5514
5405
5397

5480
5412

5492
5413

3490
3409
6177

3491
3410
6819

3492
3411
6823

3493
3412
6825

3494
3413

3495
3414

5484
7392
2533
5810

5486

5501

5502

5503

5523

2538
6016

2546
6524

2547
7827

2562

2591

2771

2972

2985

2994

3496
3415

3835

2484
3685
7834
3630
3633
2791
6942
8771
6956

3979
7847
3641

7471

8773

6950
8777
7441
2549
7133.
4063
7400
7143
5213
3290
3178
3236
3176
3229
2186
3270
6058
7524
7302
7258
7253
7270
2240
6554
6755

7489

7863

4064

4065

4066

7169
5233
3293
3187
3240
3180
3233

3192

3196

3201

3205

3210

3214

3219

3223

3227

3185
3238

3189
3242

3194

3198

3203

3207

3212

3216

3221

3276

7532

7525
8737

7526

7527

2243

2246

2258

2261

2264

6774

6778

6782

6794

.......,

~;

c~I

,

\

T 10K I . MCR [ 10, 1141 ]
TRNNS1
TRNNS2
TRNRET
TRNSIG
TRNSS
TRNSS1
TRP1
TSX
TSXX
TXXX
TXZX
UMOVEM
UMOVE
UUO
UU0101
UU0102
UU0103
UU0106
UU0107
UU0247
UUOFLG
UUOGO

UUOPCW
VECINT
VECIN1
WRAPR
WRAPR1
WRAPR2
WRCSB
WRCSTM
WREBR
WREBR1
WRHSB
WRINT
WRIO
WRPI
WRPUR
WRSPB
WRTHSB
WRTIME
WRTIM1
WRUBR
XCT
XCT1
XCT1A
XCT2
XCTGO
XJEN
XJRSTF

11: 45 11-AUG-1984
6817
6820
6799
6780
6806
6802
6982
3268
3232
3273
3226
3284
3298
7830
7822
3936
3918
3920
3922
3926
3928
3932
4021
3942
3626
6999
7020
7806
3973
7482
7501
7049
7068
7074
7224
7232
7146
7148
7236
7315
7546
7331
7228
7220
7917
7275
7287
7101
3650
3662
3652
2342
2267
3605
3612

#
#
#
#
#
#

#
#
#
#
#
#
#
#

#
#

#
#
#
#
#
#

#
#

#
#
#
#
#
#
#
#
#
#

#
#

6807
6817
6768
6790
6801
6810
6972
3179
3237
3177
3230
3299
3287
7818
7817
3897
3898
3899
3900
3906
3907
3914
4015
2434
3639
7000
7021
7808
4018
7445
7499

MICRO 31(254)

6980
3188
3241
3181
3234

3197

3.202

3206

3211

3215

3220

3224

3228

3186
3239

3190
3243

3195

3199

3204

3208

3213

3217

3222

3537
3920
7005
7023
7812

3540
3922
7006
7024

3542
3924
7007
7025

3543
3926
7008
7217

3544
3928
7013
7239

3577
3930
7014
7334

3582
3932
7015
7793

3585
6907
7018
7802

3605
6990
7019
7804

3904

3528
3918
7001
7022
7810
7485

7148
7538

#
#

#
#
#
#
#
#
#
#
#

#
#

7841
7256
3646
3656
3660
3663
2251
3533
3532

Page 278

3193

7080
7067

7536

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

7283
6989
7859
3635

7867

T10KI.MCR[10,1141]
XJRSTFO
XLATE
XLATE 1
XOR
XOS
XPCW
ZAPPTA
(D)
(U)
(U)
(U)
(U)

J
JFCLFLG
LD FLAGS
LD PCU
LDVMA

~
~

z>-

"

~
~
~
;t

=

j

"i
~

iii

(U) LOADFE

.,e

oil

g

~

i
i

~

(U) LOADSC

g

I
~

(U) LSRC
(U) MACRO%
ABORT MEM CYCLE
AC
AC[ ]
AC[LQ
AC[ LQ.AND. []
AC[ ] -[]
AC[] [ ] TEST

11:45 11-AUG-1984
3531 #
6744 #
6753 #
2855 #
3404 #
3626 #
7402 #
1343 #
1108 #
1112 #
1100 #
1151 #
2290
2783
3457
3614
3841
4042
5129
5928
6630
7308
7503
7843
7942
8657
955 #
3011
4883
5288
5411
5584
5785
6650
953 #.
3070
4118
4433
5038
5409
5612
6461
7146
7626
605 #

3609
6730
6757
2848
3419
3534
7388

1998
1848
1849
1750
1739
1726
6162
6386
1727

2160
4117
4482
3116
4436
2488
6221
6545
6820

#
#
#
#
#
#

#

3597
2217
4005
2160
2296
2787
3524
3629
3953
4217
5143
5951
6745
7351
7584
7846
7945
8671
2378
3023
4896
5316
5480
5586
5787
6651
2174
3074
4146
4441
5053
5427
5627
6463
7148
7632

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 279

2849

2850

2851

3556

3560

3618

4003

7459

7474

8755

2179
2302
2788
3525
3631
3954
4217
5144
6099
6892
7351
7619
7846
7945
8673
2396
3038
4899
5325
5484
5650
5808
6652
2184
3084
4183
4548
5059
5428
5630
6466
7177
7680

2183
2306
3019
3526
3631
3954
4692
5148
6348
6893
7369
7622
7857
7948
8739
2411
3084
4900
5327
5486
5667
5833
6653
23.77
3093
4203
4551
5282
5429
5638
6470
7179
7687

2227
2329
3325
3531
3640
3978
4692
5149
6375
6894
7375
7622
7913
7948
8745
2965
4699
4902
53.47
5492
5678
5841
6850
2396
3096
4223
4591
5286
5431
5642
6412
7187
7696

2227
2333
3325
3535
3680
3978
4701
5166
6420
6895
7438
7644
7929
7951
8793
2968
4703
4904
5353
5500
5701
5979
6853
2411
3100
4249
4937
5287
5434
5645
6643
7194
7700

2228
2342
3337
3538
3707
3997
4748
5167
6426
6971
7453
7666
7929
7951
8794
2972
4715
5212
5354
5502
5727
5980
6872
2427
3107
4261
4940
5296
5438
5655
6649
7196
8261

2230
2362
3452
3551
3717
3998
4752
5245
6433
6979
7453
7725
7932
7958
8794
2982
4808
5214
5368
5503
5741
5982
6890
2988
3138
4267
4953
5298
5548
5661
6655
7386
8264

2231
2404
3452
3564
3729
4025
4756
5251
6449
7101
7453
7822
7932
8244
8830
2984
4813
5232
5390
5504
5748
6148

2231
2414
3453
3567
3734
4025
4760
5251
6454
7278
7454
7830
7939
8525
8830
3000
4815
5234
5394
5523
5751
6519

2249
2417
3456
3593
3750
4034
5093
5925
6510
7303
7495
7840
7939
8541
8833
3003
4817
5242
5396
5528
5763
6520

2275
·2429
3457
3608
3813
4041
5121
5927
6588
7308
7495
7843
7942
8656
8833
3006
4820
5243
5397
5569
5780
6526

2990
3139
4275
4959
5320
5558
5716
6660
7399
8496

3066
3140
4285
4964
5367
5568
5717
6667
7406
8502

3067
3142
4293
4977
5401
5602
6293
7128
7594

3068
3146
4336
4993
5404
5605
6322
7132
7601

3608
4144
5690
4178
4480
2771
6223
6848

7438
4315
5698
4186
4610
3042
6258
6889

7840
4406
6201
4197
4615
4453
6271
6927

7913
5345
6265
4209
4620
4459
6272
6935

8244
5410

8739
5551

8745 '
5553

4626
5765
6308
6942

4627
5810
6340
6947

6008
6346

6028
6357

6045
6362

6128
6385

~

~,

~)1

,-

T10KI.MCR[10,1141]
Ac[L[] VIA AD
AC[]_[]*2
AC[L[]+1
AC[L[]+Q
AC[L[]+[]
AC[L[]-[]
AC[ L[] .AND. []
AC[] [].EQV.Q
AC [ ] -Q
AC[L-[]
AC[ L.NOT. []
AC[LO
AC[ Ll
AC_-[]
AC_.NOT.[]
AC Q
AC=[ ]
AC [ ] TEST
AC [] VIA AD
AC=[]+ 1
AC_[ ]+Q
AC []+[]
AC-[ J.OR. []
AD-FLAGS
AD FLAGS EXIT
AD PARITY

ADD .25

ADL PARITY
ADR PARITY
AREAD
ASH
ASH AROV
ASH36 LEFT
ASHC

B DISP

11: 45 11-AUG-1984
1724
1729
1728
1734
1736
1735
1738
1740
1746
1741
1744
1748
1749
1742
1745
1747
1730
5113
7731
1731
1725
1732
1733
1737
1743
2026
4639
2074
1952
2967
4716
6005
6210
6451
6933
1983
4100
4516
4640
5354
5543
5995
6352
6952
1945
1949
2069
1960
2011
2977
1965
4472
5605
·5763
2070

#
#
#
#
#

11
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#

#
#
#
#
#
#
#

#

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 280

4195
6694
4478
5962
4456
4210

6204
5757
4212

5803
4214

4483

2172
2173
5802
5801
4452
2520
5177
8201
3431

3021

4454

6035

6083

6279

6281

3077
5202

3299
5439

3388
5445

3428
6085

3440
6121.

3709
6384

3711
6605

3807
6678

3434

3437

3443

3446

3449

4208

6259

6305

3774
6048
3403

3779
6087
3419

3486

3500

4057

4071

4088

4071
2356
3015
5200
6093
6253
6550
7546
2946
4278
4533
4646
5358
5695
6030
6379
7360

2369
3472
5282
6095
6254
6587
7833
3369
4320
4535
4975
5365
5706
6097
6387
7384

2370
3716
5315
6113
6286
6589

2587
3749
5347
6145
6291
6693

2688
3771
5411
6157
6292
6806

2690
3827
5557
6160
6293
6813

3419
4364
4542
5032
5376
5713
6133
6388
7397

3500
4397
4548
5049
5389
5729
6134
6422
7644

3526
4420
4579
5099
5481
5770
6135
6424
8651

2984
3106

3109

3099
4492
5615
5784
2574

3102
5298
5617
5786
2688

3106
5401
5629
5808
2690

3109
5403
5670
5833
2723

4628
6954

4706
7543

4098

4101

4228

2721
3839
5954
6188
6314
6839

2727
4146
5957
6191
6319
6841

2780
4188
5972
6193
6331
6868

2964
4325
5975
6200
6366
6925

3535
4421
4609
5118
5483
5775
6182
6427
8661

3538
4427
4614
5136
5485
5796
6246
6475
8758

4070
4448
4619
5160
5487
5802
6264
6817
8818

4087
4474
4624
5248
5498
5836
6267
6938

4095
4515
4636
5279
5514
5962
6335
6946

4267
5433
5674

4275
5577
5709

4285
5579
5723

4293
5583
5741

4399
5585
5747

4403
5601
5750

2729

2737

2739

2758

2760

2803

6930
3110
5064
2577
4641
4057
2180
2981
5112
6021
6251
6509
6939
2576
4274
4517
4644
5357
5582
6009
6360
7260
2320
2424
2990
2990
2990
4476
5612
5780
2568

T10K! .MCR[ 10.1141]

BAD PARITY
BASIC DIV STEP
BWRITE DISP

~

BYTE
BYTE
CALL
CALL
CALL

DISP
STEP
IBP
LOAD PI
[ ]

~
~

c

ll!

~

~

;t

5
'!
!
",.iie
~

~
j

I

CHANGE FLAGS

CHK PARITY

I
CHK PARITY L
CHK PARITY R
CLEANUP DISP
CLEAR ARXO
CLEAR CONTINUE
CLEAR EXECUTE
CLEAR RUN
CLEAR []O
CLR FPD
CLR 10 BUSY
CLR 10 LATCH

11: 45 11-AUG-1984
2813
3388
4129
5968
8517
1954
4527
2071
2813
4129
2088
4676
4670
2094
1984
3633
4194
4691
5112
5482
5662
5793
6084
6211
6370
6577
6934
7473
7841
7949
2004
3597
4005
4231
5361
1953
2526
3616
4013
4764
6897
7316
7845
7946
1946
1950
2096
1702
1993
1994
1995
1701
2013
1999
2000

#
#
#
#
#
#
#
#

#

#

#
#
#
#
#
#
#
#
#
#
#

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 281

2823
3389
4152
6112
8817

2855
3472
4154
6167

2885
3500

4548
2568
2823
4152
4704
5980
4691
3592
2181
3828
4204
4696
5114
5484
5669
5913
6094
6214
6378
6592
6945
7489
7847
7952
2216
3618
4057
4338
5426
2268
2532
3677
4017
4770
6912
7370
7865
7947

4551
2574
2855
4154
4721
5982
4696
7349
2193
3831
4227
4700
5201
5486
5688
5953
6096
6217
6395
6599
7187
7493
7863
7954
2217
3619
4071
4373
5714
2338
2537
3694
4040
4891
6982
7454
7930
7949

8760
2770

2770
3689
7575
7660

2865
3486
5206
6374

6728

2688
2865
8517
6149

2690
2885
8817
6852

6873

2398
3945
4337
4705
5213
5501
5712
5956
6102
6220
6421
6620
7256
7531
7911
8726
2577
3689
4088
4404
6388
2352
2540
3700
4118
5156
7104
7496
7931
7950

2770
3976
4358
4710
5215
5502
5716
5960
6116
6228
6450
6624
7280
7542
7913
8737
3403
3701
4098
4490
6389
2361
2590
3722
4211
5205
7221
7620
7933
7952

2780
3979
4413
4719
5233
5503
5720
5992
6125
6233
6453
6692
7283
7557
7930
8797
3419
3757
4101
4639
6987
2365
2786
3739
4213
5911
7225
7667
7934
7953

4635

6263

6304

6430

6436

4357
3806
7613
7668

4635
3812

6240
4206

6256
4706

7672

7675

7684

54~5

2895
3510
5443
6800

2906
3695
5447
6807

2916
3702
5493
7532

2946
3740
5505
7559

3270
4057
5515
7577

3276
4071
5522
7588

3369
4123
5926
7615

2723
2895

2729
2906

2737
2916

2739
2946

2758
4057

2760
4071

2803
4123

3550
4013
4419
4722
5235
5562
5745
5998
6146
6260
6458
6726
7302
7576
7933

3589
4015
4433
4970
5322
5570
5748
6023
6161
6295
6533
6750
7349
7585
7935

3591
4120
4437
4980
5364
5598
5751
6047
6164
6304
6541
6850
7379
7614
7937

3592
4148
4443
5014
5367
5638
5783
6058
6177
6320
6551
6869
7392
7621
7940

3606
4175
4489
5041
5372
5643
5785
6073
6192
6332
6554
6874
7441
7646
7943

3630
4184
4513
5096
5374
5655
5787
6077
6203
6359
6564
6926
7471
7839
7946

3486
3787
4131
4641
7459
2382
3086
3745
4316
5930
7229
7712
7937
7955

3500
3791
4132
4706
7474
2393
3405
3758
4326
6350
7233
7715
7938
8679

3556
3806
4156
4723
8755
2404
3548
3816
4410
6540
7237
7717
7940
8796

3557
3812
4206
4745

3560
4003
4218
4997

3561
4004
4228
5349

2410
3572
3844
4432
6590
7277
7727
7941
8810

2423
3587
3974
4439
6593
7307
7729
7943

2494
3612
4001
4736
6621
7309
7826
7944

6263
4723

6304
6389

6430

6436

7690

7699

7704

4710

TiOKI .MCR[ 10.1141]
CLRCSH
DFAD,J
DISMISS
DIV
DIV 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
FE=FE+1
FE FE+10
FE-FE+2
FE-FE+4
FE-FE+P
FE-FE+S#
FE-FE+SC
FE-FE-1
FE-FE-19
FE-FE-200
FE-FE.AND.S#
FE-P
FE-S
FE-S#
FE-S#-FE
FE-S+2
FE-SC+EXP
FE-SC-EXP
FIRST DIV STEP
FIX [] SIGN
FL NO DIVIDE
FL-EXIT
FM WRITE

~,

.~.

~
11: 45 11-AUG-1984
1990
5594
2093
1968
2087
4528
2079
4879
2068
2036
2037
2034
8507
2073
2813
4154
2025
1805
3337
4701
1925
1923
1922
1909
1936
1912
1910
1919
1918
1924
1931
1926
5751
1928
1927
1930
1934
1937
1913
1929
1911
1935
1914
1915
1916
1920
1921
1917
1932
1933
4529
1715
2029
2075
1722

#
#
#
#
#
#
#
#
#
#
#
#

7381
5605
3591
4548

4551
2227
4884
2278
5139
8607
5139
8764
# 2568
.2823
8517
# 5489
# 2227
3452
7351
#
# 3023
#
# 4808
# 5353
# 4813
# 2965
# 4817
#
#
# 2396
# 2968
5785
# 4815
# 5325 '
# 3038
# 6520
# 5667
# 6652
# 5480
#
# 5327
# 4703
it 4699
#
# 3023
# 5727
# 5979
# 5316
# 5347
# 4548
# 3386
# 5349
# 5443
# 2159

MICRO 31(254)

KS10 MICROCODE V124. 27-,JUL-84
Cross Reference Listing

Page 282

7382

7385,

3606
4551

4552

4599

5480

5492

5500

5504

5597

2231
4885
2344
5163

3325
4886
3553
5249

3452
4887
4743

3457
4888
4746

4217

4692

7351

7622

5922

6898

7656

5163
8782
2574
2855
8817
5505
2228
3453
7622

5249
8783
2688
2865

6016
8814
2690
2885

6088

6111

6261

6389

2723
2895

2729
2906

2737
2916

5835
2230
3456
7858

2231
3457

2250
3524

2290
3525

2411
2982
5787
4820

5288
3003
5833
4896

5569
5368
5841
4904

5484

5678

6653

5492

5500

5504

4900
4899

6148
6650

5212

5214

5411
5701

5650

4103
5361
5447
2167

4127
5714
5493
2169

5599

5600

6393

6455

6727

2739
2946

2758
4123

2760
4129

2803
4152

2296
3551

2404
3593

2429
3708

3019
4217

3325
4692

5486

5502

5503

5523

5528

5748

5584

5586

5741

5763

5780

5808

6526
6850

6651
6890

6853

5232

5234

5390

5394

5396

5397

6519

4150

6731

7250

5515
2170

2172

2173

2175

2176 '

2182

2184

4902
5354
3000
4883

2488

Tl0KI.MCR[10,l141]

FORCE EXEC
GEN 17-FE
GEN MSK []
HALT []
HOLD LEFT

HOLD RIGHT

IBP DP
IBP SCAD
IBP SPEC
INH CRY18
INST DISP
INTERRUPT TRAP
JFCL FLAGS
JUMP DISP

11: 45 11-AUG-1984
2520
3437
4186
4456
4706
5757
6008
6087
6258
6352
6678
6954
7287
7910
8232
1785
1940
1718
2095
1944
2362
3535
3990
5139
5924
6088
6378
6727
7283
7425
7945
8778
1948
3113
3605
3940
4635
5318
5754
6263
6507
6809
7014
7088
7334
7810
8699
4667
4668
4669
1956
2072
2085
2022
2078

#
#
#
#
#

#

#
#
#
#
#

#
#
#

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

2771
3440
4195
4459
4948
5765
6028
6103
6259
6357
6694
6964
7317
7!325
8234
7455
4785
4819
2190
2228
2690
3538
3995
5143
5927
6099
6389
6846
7308
7426
7948
8780
2419
3115
3626
4022
4812
5319
5789
6302
6601
6907
7015
7109
7336
7812
8704
4691
4691
4691
3509
2353

3021
3443
4197
4478
4961
5801
6029
6119
6271
6358
6724
7071
7318
7935
8238
7469

3042
3446
4208
4480
4971
5802
6035
6121
6272
6362
6820
7156
7402
8197
8239
7503

3077
3449
4209
4483
4981
5803
6045
6128
6279
6371
6848
7222
7403
8201
8724

3110
3662
4210
4610
5013
5810
6048
6142
6281
6377
6889
7226
7543
8207

4822
2247
2230
2721
3551
4025
5148
5930
6111
6393
6888
7342
7448
7951
8782
2421
33'86
3639
4038
4947
5351
5819
6304
6603
6919
7018
7114
7338
8193
8709
4696
4696
4696
3679
2357

4895
2265
2275
2729
3563
4041
5163
5971
6115
6449
6897
7344
7518
8200
8783
2434
3528
3770
4103
4955
5352
5820
6311
6673
6990
7019
7124
7340
8196
8715
4710
4710
4710
3726
2366

4898
2516
2288
2751
3593
4092
5166
5997
6122
6455
7051
7346
7644
8507
8784
2456
3537
3918
4104
5018
5412
5835
6317
6677
6999
7020
7129
7472
8247
8729
6032
6032

5982
3579
2289
2753
3617
4735
5176
6000
6141
6502
7077
7348
7665
8515
8814
2457
3540
3920
4105
5063
5413
5917
6326
6731
7000
7021
7136
7674
8251
8792
6842
6842

3755
2371

3775
2379

3597
3472

3486

3500

3510

Page 283

3116
3709
4212
4615
5064
5921
6055
6155
6294
6384
6913
7230
7651
8208

3299
3711
4214
4620
5113
5934
6056
6162
6296
6385
6927
7234
7685
8210

3388
3774
4436
4626
5177
5937
6057
6173
6305
6386
6930
7238
7691
8211

3428
3779
4452
4627
5202
5962
6072
6204
6308
6545
6935
7252
7693
8218

3431
3807
4453
4628
5439
5967
6083
6221
6340
6576
6942
7263
77:)1
8228

3434
4178
4454
4689
5445
5984
6085
6223
6346
6605
6947
7284
7838
8230

7468
2295
3337
3631
4765
5228
6016
6169
6559
7091
7360
7665
8758
8833
2688
3542
3922
4127
5098
5489
5939
6345
6773
7001
7022
7141
7719
8254

7500
2300
3453
3759
4974
5229
6022
6246
6563
7138
7420
7846
8764

8749
2315 .
3456
3818
5033
5249
6051
6261
6598
7152
7421
7862
8770

2316
3524
3830
5056
5251
6070
6299
6623
7154
7422
7932
8772

2328
3525
3834
5105
5324
6076
6334
6664
7198
7423
7939
8774

2339
3526
3978
5117
5587
6084
6351
6669
7278
7424
·7942
8776

2723
3543
3924
4150
5102
5505
6166
6397
6777
7005
7023
7182
7793
8259

2727
3544
3926
4357
5289
5608
6171
6400
6781
7006
7024
7189
7802
8506

2744
3577
3928
4396
5290
5609
6240
6405
6785
7007
7025
7217
7804
8510

2746
3582
3930
4458
5293
5616
6256
6430
6789
7008
7045
7239
7806
8513

2770
3585
3932
4512
5294
5632
6257
6436
6793
7013
7085
7250
7808
8524

5104
2430

2435

6885
6885

6958

3780
2400

5029
2406

.......

~
T10KI.MCR[10,1141]
JUMPA
LDB SCAD
LEAVE USER
LOAD AC BLOCKS
LOAD BYTE EA
LOAD OST EA
LOAD FE

LOAD
LOAD
LOAD
LOAD
LOAD
LOAD
LOAD
LOAD
LOAD
LOAD

~

,

FLAGS
IND EA
INST
INST EA
IR
PAGE TABLE
PCU
PI
PXCT
SC

LOAD SRC EA
LOAD VMA

LSH
LSHC
LUUO
MEM CYCLE

11: 45 11-AUG-1984
2080
4781
2020
1988
1979
1982
1862
3011
4883
5288
5411
5584
5785
6650
2024
1980
1977
1978
1973
1987
2018
1991
1985
1861
3070
4118
4433
5038
5409
5612
6461
7146
7626
1981
1784
2290
2783
3457
3614
3841
4042
5129
5928
6630
7308
7503
7843
7942
8657
1961
1964
2082
1781
2231
2306

#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#

#
#

#
#
#
#

3453
4790
2216
2162
4699
6886
2378
3023
4896
5316
5480
5586
5787
6651
2217
2340
2269
3549
5917
7376
4005
3607
3659
2174
3074
4146
4441
5053
5427
5627
6463
7148
7632

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 284

3525
4793

3551
4794

3593

5918

5930

6849

2965
4699
4902
5347

2968
4703
4904
5353
5500
5701
5979
6853
4003

2972
4715
5212
5354
5502
5727
5980
6872
7459

2982
4808
5214
5368
5503
5741
5982
6890
7474

8755

2396
3096
4223
4591
5286
5431
5642
6472
7187
7696

2411
3100
4249
4937
5287
5434
5645
6643
7194
7700

2427
3107
4261
4940
5296
5438
5655
6649
7196
8261

2988
3138
4267
4953
5298
5548
5661
6655
7386
8264

2183
2306
3019
3526
3631
3954
4692
5148
6348
6893
7369
7622
7857
7948
8739

2227
2329
3325
3531
3640
3978
4692
5149
6375
6894
7375
7622
7913
7948
8745

2227
2333
3325
3535
3680
3978
4701
5166
6420
6895
7438
7644
7929
7951
8793

2228
2342
3337
3538
3707
3997
4748
5167
6426
6971
7453
7666
7929
7951
8794

4580
5883
2183
2250
2330

4583
5885
2227
2267
2333

5887
2227
2275
2334

5889
2227
2290
2338

3524
4792

3456
4791
4004
7125
4718
6888
2396
3038
4899
5325
5484
5650
5808
6652
3556

7142
4766
6897
2411
3084
4900
5327
5486
5667
5833
6653
3560

3654
3573

6983
3588

7866
7663

7362

7437

7919

2184
3084
4183
4548
5059
5428
5630
6466
7177
7680

2377
3093
4203
4551
5282
5429
5638
6470
7179
7687

2160
2296
2787
3524
3629
3953
4217
5143
5951
6745
7351
7584
7846
7945
8671

2179
2302
2788
3525
3631
3954
4217
5144
6099
6892
7351
7619
7846
7945
8673

3070
5879
2160
2231
2307

3074
5881
2179
2249
2329

54~2

5678
5841
6850
3618

3000
4815
5234
5394
5523
5751
6519

3003
4817
5242
5396
5528
5763
6520

3006
4820
5243
5397
5569
5780
6526

2990
3139
4275
4959
5320
5558
5716
6660
7399
8496

3066
3140
4285
4964
5367
5568
5717
6667
7406
8502

3067
3142
4293
4977
5401
5602
6293
7128
7594

3068
3146
4336
4993
5404
5605
6322
7132
7601

2230
2362
3452
3551
3717
3998
4752
5245
6433
6979
7453
7725
7932
7958
8794

2231
2404
3452
3564
3729
4025
4756
5251
6449
7101
7453
7822
7932
8244
8830

2231
2414
3453
3567
3734
4025
4760
5251
6454
7278
7454
7830
7939
8525
8830

2249
2417
3456
3593
3750
4034
5093
5925
6510
7303
7495
7840
7939
8541
8833

2275
2429
3457
3608
3813
4041
5121
5927
6588
7308
7495
7843
7942
8656
8833

5891
2228
2290
2342

5893
2228
2296
2351

5895
2230
2296
2360

2230
2301
2362

2231
2302
2363

2984
4813
5232
5390
5504
5748
6148

8533

Tl0KI.MCR[10,l141]

MEM READ

MEM WAIT

MEM WRITE

MEM Q
MEM::::r]

11: 45 ll-AUG-1984
2364
2493
2790
3452
3526
3565
3629
3699
3750
3954
4025
4692
4757
5130
5169
5928
6420
6588
6894
6982
7236
7309
7453
7584
7712
7843
7930
7940
7948
8244
8793
1809
3612
5930
7229
7715
1808
2536
3699
4736
6544
7229
7586
7931
7950
1810
3744
6590
7937
7955
1817
1816
3745
7620
7943

#

#

#

#
#

2392
2525
3019
3453
3526
3567
3629
3707
3752
3973
4025
4692
4760
5132
5204
5928
6426
6590
6894
7101
7237
7315
7453
7586
7715
7843
7931
7941
7948
8525
8794
2267
3616
6350
7233
7717
2267
·2539
3721
4763
6590
7233
7620
7933
7952
2493
3815
7307
7938
8795
5133
2494
3816
7727
7944

MICRO 31(254)
2403
2531
3019
3453
3531
3568
3631
3708
3758
3978
4034
4701
4761
5143
5245
5930
6433
6593
6895
7102
7275
7316
7453
7619
7717
7845
7932
7942
7948
8541
8794
2338
3676
6593
7237
7825
2338
2589
3738
4769
6593
7237
7667
7934
7953
2525
3973
7309
7940
8809
5159
2526
3974
7729
7946

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

2404
2536
3325
3456
3531
3571
3631
3717
3813
3978
4035
4701
4763
5144
5245
5951
6449
6621
6895
7103
7276
7351
7454
7620
7725
7846
7932
7942
7949
8656
8795
2351
3721
6621
7276
7864
2351
2786
3744·
4891
6621
7276
7712
7937
7955
2531
4012
7370
7941

2404
2539
3325
3456
3535
3586
3632
3718
3814
3978
4039
4729
4769
5146
5247
5952
6449
6630
6897
7220
7278
7351
7454
7622
7727
7846
7932
7942
7950
8657
8809
2360
<3758
6897
7316
8678
2360
3405
3758
5132
6897
7307
7715
7938
8678
2536
4016
7620
7943

5247
2532
4013
7845
7947

6544
2537
4017
7930
. 7949

Page 285

2414
2588
3325
3457
3535
3593
3635
3721
3815
3997
4041
4735
4890
5148
5251
6099
6454
6630
6911
7221
7279
7351
7469
7622
7729
7846
7933
7943
7951
8658
8830
2364
3843
6911
7442

2415
2589
3337
3457
3538
3593
3640
3729
3825
3998
4042
4736
4891
5149
5251
6099
6454
6745
6967
7224
7303
7369
7490
7622
7822
7857
7934
7944
7951
8671
8830
2392
4000
6967
7454

2417
2783
3337
3457
3538
3608
3640
3731
3841
3999
4043
4748
5093
5151
5252
6348
6510
6746
6970
7225
7304
7369
7495
7644
7823
7858
7937
7945
7951
8672
8833
2403
4763
6975
7490

2418
2784
3404
3524
3547
3612
3676
3734
3842
4000
4217
4749
5094
5155
5911
6349
6510
6892
6971
7228
7307
7370
7495
7645
7825
7864
7938
7945
7952
8673
8833
2422
4769
6982
7496

2422
2786
3405
3524
3551
3614
3680
3736
3843
4012
4217
4752
5121
5158
5925
6350
6542
6892
6975
7229
7308
7375
7496
7666
7830
7913
7939
7945
7953
8678
8833
3547
5155
7103
7586

2429
2787
3452
3525
3551
3615
3681
3738
3953
4016
4217
4753
5122
5166
5927
6375
6544
6893
6978
7232
7308
7438
7503
7666
7831
7929
7939
7946
7955
8739

2429
2788
3452
3525
3564
3616
3693
3744
3954
4025
4692
4756
5129
5167
5927
6376
6588
6893
6979
7233
7308
7442
7504
7667
7840
7929
7939
7947
7958
8745

3571
5204
7221
7667

3586
5911
7225
7712

2364
3547
3815
5155
6911
7309
7717
7940
8795
2539
4039
7727
7944

2392
3571
3843
5158
6967
7316
7727.
7941
8809
2589
4736
7729
7946

2403
3586
3973
5204
6975
7370
7729
7943

2422
3612
4000
5247
6982
7442
7825
7944

2493
3616
4012
5911
7103
7454
7845
7946

2525
3676
4016
5930
7221
7490
7864
7947

2531
3693
4039
6350
7225
7496
7930
7949

2786
4891
7845
7947

3405
5132
7930
7949

3693
5158
7931
7950

3699
5247
7933
7952

3738
6544
7934
7953

2540
4040
7931
7950

2590
4736
7933
7952

2786
4891
7934
7953

3405
6590
7937
7955

3694
7307
7938
8796

3700
7309
7940
8810

3739
7370
7941

~
Tl0KI.MCR[10.1141]

~

NEXT INST FETCH
NEXT [] 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
Q- []
Q.AND.NOT.[]
Q #
Q--1
Q--AC[]
Q--Q
Q::::-[]
Q_.NOT.AC[ ]
Q .NOT.Q
Q::::O
Q_O XWD []
Q AC
Q-AC[ ]
Q::::AC[].AND.MASK
Q_AC [ ] . AND. [ ]
Q MEM
Q-Q*.5
Q-Q*2
Q-Q+.25
Q-Q+1
Q-Q+AC
Q::::Q+[ ]
Q Q-l
Q::::Q-WORK[ ]
Q Q.AND.#
Q-Q.AND.NOT.[]
Q::::Q.AND.[]
Q Q.DR.#
Q-WORK[ ]
Q::::[]

2086
4245
4244
2066
5445
2067
3457
1839
2028
2092
5526
5838
1967
2083
2091
1793
1797
1795
1794
1792
1791
1798
1796
1666
1667
1682
1674
1675
1676
1673
1672
1681
1683
5423
1684
1677
1678
1679
1680
1827
1689
1690
1685
1686
1688
1695
1687
1774
1692
1694
1693
1691
1756
1668
5642

Page 286

MICRO 31(254)

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

4267
4271
4267
2521
5804
2227
3524
3978
4338
5299
5677

4275
4279
4275
3042
8201
2228
3525
4025
4373
5328
5731

4285
4289
4285
3088

4293
4297
4293
3116

5579

5605

5607

5724

3428

3710

3786

3793

4481

4484

5439

2230
3551
7846
4404
5405
5732

2231
3593
7932
4490
5480
5742

2291
4217
7939
4997
5482
5744

2297
4692
7942

3325
7351
7945

3337
7622
7948

3452

3453

3456

7951

8833

5492
5764

5496
5774

5498
5776

5500
5781

5501
5782

4819
8693

4822

4895

4898

5982

5131
5168
4754
4762
2362
2334
5928
3719

5145
5252
6892

5150

5246

#
#
#

5123
5095
4750
4758
2320
2329
5927
3682
4427

#
#

4972

5016

4609
4397
5706
4613
5769
2980
5716

4614
4474

4818
5980

4118
2382

4316
3086

4410
5156
4226
5222
5582

11:45 l1-AUG-1984

MUL DISP
MUL FINAL
MUL STEP
NEXT INST

~

#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#

#
#
#
#

#
#
#

#
#
#

6893
2417

2785

2789

3730

3735

4619
4515

4516

4533

5481

5483

5485

5487

5770

4894

5296

5367

5378

5390

5394

5396

5397

4211

4213

4326

6540

4432
5205
4260
52.23
5729

4439
7717
4433

5207

5227

5228

5229

5243

5631

5721

4467

5564

5572

5673

5676

4510

5216

5236

5323

5632

4901
4395
6139
4183
5661

4203
5711

4223

4437

4463

4963

5320

5555

5567

2414
3569

5504
5809

3751

4618
5410

#

#
#
#
#
#
#

#
#

#
#
#

#
#
tJ
#

#

4992
4435
5032
4975
3112
5718
4482
3114
5039
4144
5655

5627

Tl0KI . MCR.[ 10.1141]
Q_[ ]+[]

Q_[]-[]
Q_[] .AND.Q

Q []. AND. [ ]
Q-[].OR.Q
RAM_[ ]
READ Q
READ XR
READ [ ]

~
~
~

..
III
0

RETURN []

~

~

;t

ii

.,.'l

~

w

ii
.;;
~
~

~
~

)
~

J

ot

ROT
ROTC
SCAD DISP
SC- - 1
SC -2
SC=-SHIFT
SC- -SHIFT-1
SC -SHIFT-2
SC=O
SC - 1
SC - 11.
SC- 14.
SC 19.
SC-2
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

11: 45 11-AUG-1984
1670
1669
1696
1671
1697
1777
1707
1705
1706
3328
4002
4461
5020
5677
6147
6642
7078
8685
2090
4492
4891
6224
6739
7198
7672
7731
1963
1966
2089
6885
1906
1907
1870
1871
1872
1905
1904
1895
1894
1893
1903
1892
1891
1890
1889
1888
1887
1902
1886
1885
1884
1901
1900
1899
1898

#
#
#
#
#
#
#
#
#

#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

4464
5099
4558
4385
5239
2182
5446
3555
2375
3331
4033
4470
5284
5726
6163
6650
7155
8755
2456
4514
5105
6234
6770
7264
7675
7922
3006
3142
4691
7687

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 287

5753

5788

5587
2184
5488

5512

5761

5806

2571
3340
4327
4538
5371
5782
6375
6767
7303

2735
3343
4333
4559
5373
5918
6426
6799
7382

2742
3346
4347
4698
5405
5936
6433
6849
7388

2749
3559
4352
4702
5409
5979
6459
6851
7395

2756
3607
4354
4717
5442
6013
6473
6873
7662

3067
.3618
4359
4720
5482
6114
6478
7066
7919

3083
3658
4426
4817
5501
6117
6500
7068
7929

3139
3952
4428
4883
5569
6123
6504
7069
8537

3284
3996
4445
4899
5668
6136
6556
7074
8649

3558
4517
5243
6242
6803
7363
7713
7960

3562
4601
5525
6280
6812
7407
7715
8547

4023
4628
5527
6281
6814
7515
7717
8745

4026
4730
5528
6431
6840
7518
7719
8833

4229
4732
5617
6437
6875
7590
7721

4272
4736
5812
6608
6908
7597
7723

4280
4771
5819
6631
6914
7603
7725

4290
4804
5820
6696
6919
7660
7727

4298
4823
5835
6727
6959
7668
7729

4710

4786

5282

5425

5427

5980

5982

6033

6843

5642

5655

5661

5717

2395
3334
4121
4531
5288
5744
6339
6745
7268
8760
2457
4515
5242
6239
6786
7288
7701
7926
3011
3146
4696

3067

3139

6649

6660

2174
6470
6293
5716
5320

5367

4953
4336
4118

4433
4146

4441
4183

4964
4203

4977
4223

4993
5038

5638

7594
5401
6461

7626
5627
7128

6463
8261

7146
8496

7177

7187

7194

.~.

~
\
'

l
!

T10KI.MCR[10,1141]
SC 8.
SC-9.
SC-EXP
SC-FE
SC-FE+S#
SC=S#

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 DIVIOE
SET FOV
SET FPD
SET HALT
SET NO DIVIOE
SET PDL OV
SET P TO 36-S
SET TRAP1
SHIFT
SKIP AC REF
SKIP AO.EQ.O

SKIP AD.LE.O
SKIP AOL.EQ.O

SKIP ADL. LE. 0
SKIP ADR.EQ.O
SKIP
SKIP
SKIP
SKIP

CRYO
CRY1
CRY2
OPO

SKIP OPi8

11:45 11-AUG-1984
1897
1896
1877
1880
1879
1881
4964
5661
7187
1878
1866
1873
1874
1876
1875
1867
1868
1869
1997
2006
2009
2007
2012
1992
2008
2015
4672
2016
1864
2060
2044
4393
5371
6268
2045
2056
5752
6490
8511
2047
2057
7061
7497
2052
2053
2054
2042
3773
4360
4553
5442
6031
6339
8650
2043

#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#

#

#
#

#
#
#
#

#

MICRO 31(254)

4937
2396
2427
3093
2174
4977
5716
7194
3096
7687

5053
2411
5645
5427
4118
4993
5717
7406
5429

5282

5548

5287
3084
2377

5568
5409

2165
4131
5349

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

5286

5558

4146
5038
6293
1>594

4183
5053
6461
7626

4203
5320
6463
7680

7070
4132
5361

7155
4156
5714

4218

5426

4231
7848
4338
3701
4731

4745
7914
4373
3757
6042

6388
4404
3787
6845

4490
3791
6887

2972

2984

3006

3016
4422
5373
6557
3334
2187
5812
6522
8530
7657
3085
7063
7517
3684
4084
·5770
2397
3776
4365
4994
5549
6073
6356

3331
4452
5446
6594
3346
3986
5912
6986
8532

2376

Page 288

4441
5638
7128

4937
5642
7146

4953
5655
7177

4328
4644
5806

4330
4962
6136

4334
4991
6189

4348
5345
6265

5365
5672
6198
7457

5689
5675
6382
7648

6336
5743
6398
7650

7261
5746
6452
7664

7918
5749
6487
8248

6396
7339
8680
5483
6232

6751
7341
8697
5485
6423

7028
7343
8700
5487
6434

7031
7345
8705

7056
7347

7058
7444

2756
4150
4420
5284
5713
6117
6695

3039
4153
4427
5288
5726
6123
6725

3111
4208
4442
5317
5963
6163
6767

3328
4216
4461
5347
5976
6255
6821

3340
4317
4479
5355
5993
6260
6940

3431
4353
4531
5389
6006
6297
7105

3443
4355
4538
5411
6013
6306
7250

6183

6387

6476

6799

6800

7483

8653

4223
5367
6470
7696

4336
5401
6649
8261

4433
5627
6660
8496

4997

5349

5361

5714

3011

5242

5243

3343
4533
5488
6615
3437
3991
5955
7110
8693

3434
4611
5512
6738
3449
5388
6094
7117
8711

3446
4616
5668
7295
4387
5393
6096
7153
8752

4121
4621
5719

4126
4637
5761

5021
5507
6178
7456

3591
7065
7589
3727
4096
5830
2412
3781
4369
5138
5651
6075
6428

3606
7331
7616
3756
5797

,5119
7333
8199
5357
6213

6323
7337
8491
5481
6219

2571
4103
4391
5162
5698
6097
6478

2749
4128
4408
5248
5702
6114
6504

2735

2742

5936

T10KI.MCR[10,l141]

11: 45 11-AUG-1984

SKIP EXECUTE
SKIP FPD
SKIP IF ACO
SKIP 10 LEGAL
SKIP IRPT
SKIP JFCL
SKIP KERNEL
SKIP. -lMS
SKIP-COMP DISP
SPEC MEM READ
SPEC MEM WRITE
START NO TEST WRITE
START READ

~

E
~

i

~
~

START WRITE

~
i
i
;;;

STATE [ ]

;t

Ii

';

~
g

STEP SC

~
j

I
g

8

SWEEP
TAKE INTERRUPT
TEST DISP
TL []

~

d:

TR []
TURN OFF PXCT
TXXX TEST
UNHALT
UPDATE USER
UUO

VMA
VMA EXTENDED
VMA PHYSICAL

8663
2061
2049
2041
2051
2058
2055
2050
2059
2077
1811
1812
1804
1802
2363
3524
3708
4761
6510
7228
7858
1803
3825
6542
7948
2033
6169
8778
1863
3142
4959
5630
7632
1989
2084
2076
1711
5955
7664
1710
7333
8697
1986
2062
1996
2019
2081
3626
6999
7020
7806
1851
1789
1786
7932

#
#
#
#
#
#
#
#
#
#
#
#
#

#

#
#

#
#
#
#
#

#
#
#
#
#

#
#
#

8686
7852
4170
2483
2433
5142
3598
3529
6028
3369
2409

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

4691
3387
3536
6033

4696
4688
3539
8212

4710

6287

8733

8764

8815

3533

3534

3541

3650

6965

3388

3389

6112

2228
2415
3526
3752
5169
6746
7236
8672
2784
4025
7304
8833
5971
6378
8784
2988
4249
5296
6466
8264
7395

2230
2418
3531
3842
5252
6892
7275

2231
2429
3535
3999
5927
6893
7279

2250
3019
3538
4043
5928
6894
7315

2290
3325
3551
4217
5952
6895
7351

2296
3337
3565
4692
6099
6970
7504

2301
3452
3568
4701
6349
6978
7622

2307
3453
3593
4749
6376
7102
7645

2330
3456
3615
4753
6449
7220
7666

2334
3457
3635
4757
6454
7224
7823

2790
4035
7308

3404
4729
7369

3629
4735
7469

3632
4890
7831

3640
5122
7846

3681
5130
7932

3731
5146
7939

3736
5151
7942

3814
5245
7945

5997
6502

6000
6559

6022
6563

6070
6623

6076
8200

6084
8770

6115
8772

6122
8774

6141
8776

2990
4261
·5298
6472
8502
7398

3066
4267
5404
6667

3068
4275
5428
7132

3070
4285
5431
7148

3074
4293
5434
7179

3100
4548
5438
7196

3107
4551
5602
7386

3138
4591
5605
7399

3140
4940
5612
7601

5749
6487

5752
6490

5812
7648

5912
7650

7061
7616

7063
8199

7065
8491

7331
8680

Page 289

2227
2404
3525
3718
5094
6630
7232
8658
2588
3978
6588
7951
5105
6351
8780
2184
3146
5059
6322
7700
7394
8792
3270
3986
6094
8248
3591
7337
8700
2239
3284
7851
3557
2434
3639
7000
7021
7808

3276
3991
6096
8511
3606
7339
8705
2242

7532
5507
6178
8530
6323
7341

5672
6198
8532
6396
7343

5675
6382
8693
6751
7345

5743
6398
8711
7056
7347

5746
6452
8752
7058
7589

2245

2257

2260

2263

2277

3561
3528
3918
7001
7022
7810

3619
3537
3920
7005
7023
7812

3540
3922
7006
7024

3542
3924
7007
7025

3543
3926
7008
7217

3544
3928
7013
7239

3577
3930
7014
7334

3582
3932
7015
7793

3585
6907
7018
7802

3605
6990
7019
7804

3954
7939

3978
7942

3998
7945

4025
7948

6971
7951

6979
8657

7453
8673

7495
8794

7843
8830

7846
8833

7929

T10KI.MCR[10.1141]

VMA_[] WITH FLAGS
VMA_[ ]+1

i:!
zI0

m
~

.,.tii
)
'i

iw

e

~

VMA_[ ]+XR
VMA_[ ]+[]
VMA_[]-1
VMA_[ ] . DR. [ ] WITH FL
WORK[ ]
WORK [] . NOT. [ ]
WORK[ ]-0
WORK[]-1
WORK[ ]-0
WORK[ C[]

WORK[ ] [] CLR LH
WORK[ ] [ ] - 1
WORK[]_[].AND. []
WRITE TEST

g

~
j

I
)

XR
[ ] LEFT -1
[ ] LEFT-O
[ ] RIGHT_-1
[] RIGHT 0
[]+[]
[]-#
[ ] -[ ]
[].AND.#
[].AND.NOT.WORK[]
[].AND.NOT.[]
[].AND.O
[].AND.WORK[]
[ ] . AND. [ ]
[ ] . OR . [ ]

[].XOR.#
[ ] . XOR. [ ]
[L#

[ ]j- [ ]

1788
1787
1831
3531
4760
7101
8541
1832
1834
6099
1836
1837
1835
1833
1852
1762
1757
1758
1755
1759
5937
6371
7238
7925
8238
1760
1761
1763
1801
3825
6542
7948
1850
1652
1650
1653
1651
1517
1519
1518
1520
1764
1523
1521
1765
1522
1524
1525
1526
1528
4968
6076
7035
8776
1527

#
#
#

#
#
#
#
#
#
#
#
#

#
#
#

#
#

#
#

#
#
#
#
#
#

#
#
#

Page 290

MICRO 31( 254)

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

7453
3954
2227
3567
5093
7351
8793·
7725
2228
6449
4748

7495
7843
2231
3629
5121
7369

8830
7929
2249
3640
5129,
7375

8794
2306
3729
5245
7453

2333
3734
5928
7622

2342
3813
6454
7666

2429
3841
6510
7822

2787
4217
6588
7830

3325
4692
6630
7857

3452
4701
6893
7958

3457
4752
6895
8525

2230
7278
4756

2275
7308
6892

2362

3337

3631

4041

5143

5148

5166

5251

6894

3526
7584
6131
6173
2176
2175
4971
2159
5967
6377
7252
7935
8239
3662
6352
5984
2588
3978
6588
7951

3535
7619
6353

3538

7644

6552

6619

6697

6728

6731

7402

7403

6103
2167
6029
6576
7263
8197
8724
7651

6142
2169
6055
6724
7284
8207

2170
6056
6913
7287
8208

4689
6057
6964
7317
8210

4948
6072
7071
7318
8211

4961
6119
7156
7685
8218

4981
6155
7222
7691
8228

5013
6294
7226
7693
8230

5921
6296
7230
7838
8232

5934
6358
7234
7910
8234

2784
4025
7304
8833

2790
4035
7308

3404
4729
7369

3629
4735
7469

3632
4890
7831

3640
5122
7846

3681
5130
7932

3731
5146
7939

3736
5151
7942

3814
5245
7945

2739
2737
2760
2758
2782
6182
4364
5388

4228
6475
4420
5392

4368
8651
4421

5136
7115

5160
7153

5248

5357

5365

5713

6097

6q21

8661
5118
6984

4125
4392
6737
4153

7028

7031

7517

7456

7457

2152
4982
6115
7378
8780

2177
5011
6122
7380
8784

7218
5105
6169
7393

2744
5939
6351
7472

2746
5971
6378
7514

2751
5997
6502
8200

2753
6000
6559
8770

4537
6022
6563
8772

4945
6070
6623
8774

11: 45 11-AUG-1984

VMA PHYSICAL READ
VMA PHYSICAL WRITE
VMA_[ ]

~

~.

~

~
.
i

#
#

#
#
#
#

#
#
#

#

2187
7294
2148
4978
6084
7037
8778

2178
5054
6141
7391

T10KI.MCR[10,1141]

~

1:
~
~
~
~

"

;t

!
.~
b

~

w

e

.;

.ii
~

~
~

j
I
.t

11: 45 11-AUG-1984

[] (#-[])*2
[C(-[])*·5
[] (-[]-.25)*.5 LONG
[]=(-[]-.25)*2 LONG
[]_(AC[].AND.[])*.5
[] (MEM.AND.[])*.5
[C(O+ 1)*.5
[] ([]+#)*2
[]-([]+1)*2
[]=([]+[])*.5 LONG
[] ([]+[])*2 LONG
[]=([]+[]+.25)*.5 LO
[] ([]-[])*.5 LONG
[]-([]-[])*2 LONG
[ C ( [ ] . AND. #) *.5
[C([]·AND.#)*2
[] ([].AND.NOT.#)*.5
[]-([].AND.NOT.#)*2
[]=([].AND.[])*.5
[] ([].AND.[])*2
[C([]·OR.#)*.5
[L([]·OR.#)*2
[ L+SIGN
[L+SIGN*.5
[ ] -1
[ ] -2
[ ] -AC
[ ] -AC [ ]
[ ] -0
[ ] -0*.5
[] -0*2
[L -SIGN
[L-SIGN*.5
[L -WORK[]
[L-[ ]
[] -[]*2
[C-[]-·25
[L·NOT.AC[]
[L.NOT .AC
[L.NOT .0
[L. NOT. WORK[]
[ ] .NOT.[]
[ ]_0

[LO XWD [ ]
[]_0*.5 LONG
[ LAC [ ]

1614
1615
1616
1617
1612
1826
1613
1627
1628
1629
1630
1633
1631
1632
1619
1620
1621
1622
1623
1624
1625
1626
1656
1661
1529
1530
1545
1546
1531
1533
1532
1657
1662
1772
1534
5389
1536
1535
1538
1537
1539
1771
1540
5511
1541
4532
6016
6455
8507
1543
4030
6591
1542
1560
6160

#
#
#
#
#
#
#
#
#
#
#

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 291

5049
4398
4475
4174
2423
5829

5707
5637

5692

5289
5703
7360

5293

5318

5351

5412

2457
5653
6938
2946
5514

5290
5705
6952
4517
5543

5294

5319

5352

5.413

4535
5695

4542
5775

4636
5796

,4640
6264

4644

4646

5279

5354

2905
5983
6040
2875
5694
2162
4954
6100
7127
8782
2157
4405
7427

4623
6044
2916
5704
2165
5097
6111
1137
8783
2201
5879
7428

6180
2926
5773
2174
5139
6140
7181
8814
2237
5881
7429

6184
3287
5964
2193
5163
6261
7257

6956
4090
5966
2215
5249
6299
7332

4534
6518
2399
5515
6333
7377

4638
7647
2803
5688
6389
7445

4645

5448

5496

3270
5755
6393
7674

4222
5771
6397
7719

4318
5799
6400
7843

2241
5883
7430

2244
5885
7431

2256
5887
7432

2259
5889
7433

2262
5891

3942
5893

3982
5895

2370
6191

2780
6193

5954
6210

5972
6251

5975
6253

6005
6254

6021
6286

6093
6292

6113
6319

6145
6331

4176

5546

4949

7498

2456
5652
6388

6641
5576
4582

#

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#

#
#
#

4579
4942

4168

2421
5550
4320
4624
6267
5376
4448
2419
5552
5995
2576
5498
5358
5544
6266
2895
4908
6012
2838
5513
2160
4812
6088
6727
8764
2154
4394
7248
4248
2180
6188

I

T10KI.MCR[10,1141]

11: 45 11 - AUG-"1984

[ LAC [ ] *.5
[LAC[]*2
[LAC[]-1
[LAC[]-[]
[LAC[].AND.[]
[ ]_AC
[LAC*.5
[] AC*.5 LONG
[ CAC*2
[ LAC+1
[LAC+ 1000001
[] AC+[]
[ CAC-1
[LAC-[]
[LAC-[ ]-.25
[LAC. AND. MASK
[ LAPR
[ LCURRENT AC [ ]
[ LEA
[LEA FROM [ ]
[ LEXP
[ ]JE
[] FLAGS
[()O DATA
[ ]_MEM

[]_MEM THEN FETCH
[] MEM*.5
[ CMEM. AND. MASK
[] .p

[CPC WITH FLAGS
[]_O
[LO*.5
[ LO*2
[LO*2 LONG
[] 0+1
[CRAM
[ CTIME
[LVMA
[LVMA FlAGS
[]_VMA 10 READ
[LVMA IO WRITE
[LWORK[ ]

[]_WORK[]+1

.~

.~

t)
6366
6933
1562
1561
1557
1556
1558
1544
3749
5411
1547
1548
1549
1550
1551
1552
1553
1554
1555
1559
1563
1564
1567
1565
1568
1569
1570
1821
1822
3616
6897
7496
1823
1824
1825
1571
1572
1573
5715
1574
1575
1576
1577
1578
1579
1580
1842
1843
1844
1770
6381
7210
7659
8539
1773

#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#
#
#
#
#
#

#
#
#
#
#
#

#

MICRO 31(254)

6589

6693

6806

6813

6839

6841

6868

6925

2587
3839
6095
3002

2688
4146
6157
4193

2690
4325
6291
4408

2721
4716
6293
5547

2727
5112
6314
5649

2964
5200
6451
5700

2981
5282
7546

3472
5315
7833

3716
5347

7092

7266

3985
7587
2352
3758
7104
7715

7458
8220
2361
3844
7221
7826

2365
4001
7225
7865

2393
4764
7229
8679

2410
5911
7233

3548
5930
7237

3572
6350
7277

3587
6593
7316

3612
6621
7454

6670
3805
4131

3811
4351

4014
4406

4215
4423

6963
4429

7470
4438

8808
5606

5613

5633

5656

5370

5375

5645

8209
7581
7581

8725
7617
7860

7628

7634

7860

6059
6691
7245
7936
8741
6177

6060
6811
7254
7954
8750
6355

6061
6822
7259
7956
8754
6818

6062
6929
7265
7957
8766
6824

6126
7049
7297
7959

6337
7083
7301
8198

6347
7151
7322
8498

6380
7208
7654
8538

6550

2356
3771
5557
2987
2383
4712
3486
3508
5103
3500
·3369
4097
2967
7002

2369
3827
5957
2999
3089

4770
6524
3688
4123
5717
4186

Page 292

6587

6509
6939
4188
6200
6360
4095

2319
5925
5489
3040
3627
7443
2268
3677
6912
7667
2404

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

6379

3678 .
4070

4100

3015
7003

7060

5505
6654
3641
7491
2338
3722
6982
7712

4434
5100

4444

7291
7681
7439
7439
7617
4966
6402
7212
7912
8540
5991

7292
7924
7486
7486
7628
4976
6578
7214
7917
8546
6024

5835

7293
8194
7578
7578
7634
5175
6614
7216
7921
8735
6079

T10KI.MCR[10,1141J
[J XR
[ ]-[ ]

[L[ ] SWAP
[L[] XWD 0
[ ] [ ] *.5

(]_(]*.5 LONG

[ ]

[)*2

[]_[]*2 LONG

[ L[ ] *4
[L[ ]+#
[ L[ ]+.25
[L[ J+O
[L[]+1

[J [J+1000001
[ ]-[ ]+AC
[C[J+AC[J
[]-[ ]+Q
[ ]-[ J +RAM
[C[ ]+WORK[]
[] [] +XR
n-[]+[]
[L[]+[)+·25
[L[] -#

[L[] -1
[] []-1000001
[C[] -AC
[] []-RAM
[]-[]-WORK[]
n:::[]-[]
[ ] []-[] REV
[] [] .AND.AC
[]-[].AND.NOT.#

11: 45 11-AUG-1984
1581
1582
3824
5037
5686
6520
7296
1583
3769
6461
1584
1585
4386
5435
6466
7501
1586
4402
5298
5666
1587
5355
7723
1588
4472
5583
5807
1589
1590
1591
1592
1593
5447
6438
1594
1595
1596
1597
1598
1766
1599
1600
6046
7502
1601
1602
1603
1604
1605
1606
1775
1607
1608
1634
1635

#
#

#
#
#

#

#
#

#

#
#

7657
2294
3829
5285
5689
6753
7328
2388
3826
6462
6154
2151
4414
5484
6470
7519
2384
4418
5321
5721
2149
5363
8501
2990
4552
5585

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

3018
4117
5286
5731
6844
7474
2568
3840
6756
6269
2425
4545
5486
6472
7594
3070
4433
5326
5747
2971 '
5438

3453
4145
5287
5732
6867
7556
2715
4810
7084
7707
2426
4546
5502
6552
7600
3098
4440
5401
5750
2994
6201

3456
4169
5325
5973
6886
7558
2717
4936
7336
8224
2983
4547
5503
6660
8263
3142
4492
5403
5784
3007
6747

3524
4185
5345
5993
6943
7565
2720
4952
7349
8226
3004
4553
5522
6667
8279
4119
4540
5433
5786
3010
7131

3525
4315
5353
6039
7009
7590
2723
5052
7359
8240
3005
4814
5523
6730

3551
4324
5562
6074
7010
8260
2726
5092
8688

3578
4339
5563
6334
7169
8495
2729
5101

3593
4345
5570
6345
7186
8519
3268
5174

3652
4374
5571
6353
7193
8816
3273
6399

3706
4729
5644
6420
7198

3009
4890
5528
7177

3092
4939
5638
7179

3095
4958
5671
7187

4167
5360
5840
7194

4224
5368
6463
7196

4147
5040
5601
5832
3037
7146

4226
5207
5604

4247
5227
5612

4260
5228
5615

4388
5229
5617

4390
5243
5631

4122
7148

4149- ··4205
7446
7482

5058
7626

5242
7632

3071
4555
5597

3074
4557
5599

3075
4903
5600

3076
5222
5629

3101
5223
5670

3105
5480
5674

3108
5492
5723

3143
5500
5740

3146
5504
5762

3147
5578
5779

3753

6416

6425

7447

7492

8665

8675

8789

2179
5950
6501
3817
4056
4083
4446
6432
5034
2288
3944
6218
8655

2183
6051
6525
3832
4086
6202

2413
6069
6619
5115

2416
6098
6846

3403
6241
6888

3613
6309
7255

3634
6321
7721

4735
6328
8768

5141
6348
8829

5165
6369

5250
6383

6212

6215

6434
6373
2300
3984
6229
8670

6553
2315
4199
6231

6629
2328
4465
6668

6736
3563
4468
6950

6744
5924
4556
6966

7298
5927
5299
6974

7671
7665
5443
7249

7673
5526
7449

5657
7484

6014
7494

3419

6030

6134

6135

6246

6387

6424

6817

8758

8818

6422

6427

6009
6133
2813
3620

6335

6946

7260

7384

7397

2936

3275
5820

3298
6404

7532
6772

6788

7050

7076

7344

8520

6457
3724
5836

#
#

#
#

#
#
#

#
#

#

Page 293

3592
6456

#

#
#
#

#
#
#

#
#
#
#

A021

8695

T10KI.MCR[10,1141]

11: 45 11-AUG-1984

[ ]- [].AND.NOT.AC
[]_[].ANO.NOT.WORK[]
[]_[).AND.NOT.[]
[ ] []. AND. Q
[] []. AND. WORK [ ]
[ ]-[ ] . AND. [ ]
[ ]-[ ] . AND. #

[
[
[
[
[

]
]
]
]
]

...-..,.

,.........

t;

[].AND.# CLR LH
[].AND.# CLR RH
[].EQV.AC
[].EQV.Q
[ ] . OR. #

[] []. OR. AC
[ ]-[ ] . OR. FLAGS
[ C[ ] . OR . WORK [ ]
[ ] [ ] . OR . [ ]
[ ] []. XOR. AC
[ ] [].XOR.[]

[]_[].XOR.#
.NOT.[]
2T
3T

4T
5T
7-BIT DPB
7-BIT LOB
(D) MACRO%
AC

KS10 MICROCOOE V124, 27-uUL-84
Cross Reference Listing

Page 294

2823

7562

5581
4151
6132
4909
2421
3605
4036
6506
7007
7025
7197
7808
3041
5224
2885
4129
2150
5413
6600
7421
8529
2865

7059
4823

7062
4910

7338

7348

7518

5508
2434
3626
4104
6637
7008
7052
7217
7810
6579
5914

5790
2456
3639
5061
6671
7013
7054
7239
7812
6617
5958

5792
3528
3918
5289
6674
7014
7086
7281
8195
6657
6158

6130
3537
3920
5293
6907
7015
7089
7334
8252
6802

7361
3540
3922
5318
6917
7018
7107
7335
8504
7027

3542
3924
5351
6990
7019
7112
7596
8514
7030

3543
3926
5412
6999
7020
7119
7602
8727
7093

3544
3928
6165
7000
7021
7134
7793

3577
3930
6288
7001
7022
7152
7802

3582
3932
6464
7005
7023
7180
7804

7435

8266

8527

4132
2419
5608
6602
7422
8531
3293

4154
2457
5609
6663
7423
8535
7560

4155
3988
5616
6776
7424
8698

3993
5819
6780
7425
8702

4105
6170
6784
7426
8707

4458
6257
6792
7861
8714

4543
6301
6808
8191
8719

5290
6310
7154
8245
8792

5294
6315
7267
824'9

5319
6325
7342
8508

6953
4091
7140
3290

4911
7340

5916
7346

.6015
7488

6245
8516

6676
8730

·7053

7057

7064

7095

8258
7362
4421

7437
5288

5558

6132

6202

6266

6554

6691

6736

7301

2412
3726
4195
4559
5050
5424
5653
6034
6422
6843
7153
8542
3486
6188

2422
3751
4229
4624
5116
5427
5697
6097
6425
6850
7418
8665
3500
6213

2577
3755
4366
4641
5118
5481
5701
6204
6434
6871
7443
8676
4083
6254

3110
3772
4370
4699
5137
5483
5703
6218
6459
6885
7447
8760
4088
6427

3284
3777
4420
4714
5161
5485
5705
6232
6473
6889
7455
8790
4095
6475

3369
3782
4426
4785
5248
5487
5713
6264
.'6892
7456

3403
3819
4427
4803
5282
5546
5796
6267
6520
6894
7457

3419
3833
4428
4899
5316
5547
5802
6352
6521
6930
7492

3509
4057
4445
4943
5357
5550
5962
6355
6643
6985
7496

3599
4071
4449
4950
5388
5552
5980
6387
6650
7104
7498

4098
6615

4100
6738

4990
6939

4995
7918

5976
8215

#
#
#

2187
3718
4176
4478
5046
5392
5652
6030
6416
6753
7116
8525
3015
6183
8663
7687
4884
4790

7704
4885
4791

4886
4792

4887
4793

4888
4794

2123 #
2604

2546
2605

2547
2609

2551
2610 .

2552
2614

2556
2615

2561
2620

2562
2624

2583
2625

2599
2629

2600
2630

1637
1768
1636
1638
1767
1639
1609
3585
3938
6467
7006
7024
7188
7806
1610
1611
1640
1641
1642
5352
6596
7420
8512
1643
1644
1769
1645
7122
1647
1648
1646
1516
1854
7658
1855
3683
4174
4470
5030
5389
5651
5982
6388
6694
7110
7665
1856
6006
8653
1857
4880
4782

#
#
#
#
#
#
#

MICRO 31(254)

#
#
#
#
#

#
#
#
#
#
#
#
#
#
#

#

6944
2906
7139
2855
5794
4412
4329
4408

2557
2619

~500

T10KI.MCR[10,1141]

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

I-PF

lOT
IR
IW
M

R

11:45 11-AUG-1984
2634
2666
2817
2879
2940
2137
2125
2912
2127
5622
2112
2128
2118
2111
2129
5338
2131
2117
2130
2115
2116
5311
2103
3184
3213
3234
3464
3490
3670
3857
3872
3884
3899
3914
5858
5872
7748
7761
7775
7788
2104
2635
2817
2930
4309
2119
7549
2110
2109
2124
2636
2828
2931
2105
3204

#
#
#
#
#
#
#
#
#
#
#
#
#
#

•

#

#
#
#
#

#

2635
2667
2826
2888
4049
3515
2799
2922
2765
5683
2774
4139
5533
2765
5259
5383
5261
5263
5260
5259
5260
5334
2842
3192
3214
3349
3465
3491
3671
3858
3873
3885
3900
5108
5859
5873
7749
7762
7776
7789
2547
2642
2827
2939
6995
7550
3669
2798
2548
2643
2833
2941
2583
3205

MICRO 31(254)

KS10 MICROCODE V124, 27-vUL-84
Cross Reference Listing

Page 295

2647
2677
2848
2909
4111

2651
2766
2849
2910'
4112

2652
2796
2858
2919
4681

2656
2797
2859
2920
8187

2657
2806
2868
2929

2661
2807
2869
2930

2662
2816
2878
2939

2834
4066
4137

2851
4114
4162

2861

2871

2881

2891

2901

4303

4304

4308

4309

4380

4162
5270

4380
5271

5304

5308

5309

5333

'5337

5306

5311

5335

5340

5305
5304
5268

5310
5308
5269

5334
5333
5272

5339
5337
5273

5418
5305

5419
5306

5310

3176
3196
3227
3353
3476
3495
3801
3865
3877
3889
3907
5850
5864
7738
7753
7767
7780

3177
3197
3228
3354
3477
3496
3851
3866
3878
3890
3908
5851
5866
7740
7755
7768
7782

3178
3198
3229
3355
3478
3503
3852
3867
3879
3891
. 3909
5852
5867
7741
7756
7769
7783

3179
3199
3230
3356
3479
3504
3853
3868
3880
3892
3910
5853
5868
7743
7757
7770
7784

3180
3210
3231
3461
3480
3515
3854
3869
3881
3893
3911
5854
5869
7744
7758
7771
7785

3181
3211
3232
3462
3481
3517
3855
3870
3882
3897
3912
5856
5870
7746
7759
7773
7786

3183
3212
3233
3463
3482
3668
3856
3871
3883
3898
3913
5857
5871
7747
7760
7774
7787

2562
2657
2859
3475

2600
2662
2869
3489

2605
2667
2879
3765

2610
2672
2888
4050

2615
2677
2889
4064

2620
2796
2899
4112

2625
2797
2910
4137

2630
2807
2920
4304

7203
7552

7524
7817

7525
7818

7526
8187

7527

7535

7536

7537

7538

2890
2558
2653
2844
4065
3185
3207

2891
2563
2658
2850
4113
3186
3208

2941
2601
2663
2860
4138
3187
3219

2942
2606
2668
2870
4305
3188
3220

2611
2673
2880
4310
3189
3221

2616
2678
2890
7203
3190
3222

2621
2798
2900

2626
2808
2911

2631
2818
2921

3201
3223

3202
3224

3203
3225

2641
2671
2827
2889
4050
6995
2809
2932
4078

2642
2672
2831
2898
4063
6996
2819
2942
4079

2646
2676
2832
2899
4064
7203
2829
4052
4136

4306
5534
2766
5262
5384
5265
5271
5264
5262
'5261
5335
2954
3193
3215
3350
3466
3492
3798
3862
3874
3886
3904
5384
5861
5907
7150
7764
7777

4311
5622
4078
5263
5418
5269
5309
5268
5267
5264
5339
3174
3194
3216
3351
3467
3493
3799
3863
3875
3887
3905
5848
5862
7736
7751
7765
7778

5683
4079
5267
5419
5273
5338
5272
5270
5265
5340
3175
3195
3217
3352
3468
3494
3800
3864
3876
3888
3906
5849
5863
7737
7752
7766
7779

2552
2647
2832
2940

2557
2652
2849
2955

6996
7551
2799
2553
2648
2843
4051
2841
3206

T10KI.MCR[10.1141]

R-PF

ROUND
RW

S
SH
SHC
SJCSJCA
SJCE
SJCG
SJCGE
SJCL
SJCLE
SJCN
TCTCA
TCE
TCN
TNTNA
TNE
TNN
TOTOA
TOE
TON
TZTZA
TZE
TZN
W
W TEST
WORD-TNE
WORD-TNN
(U) MEM

~

~

~
3226
3361
3382
2106 #
2634
2831
4136
2132 #
5311
2108 #
2627
2679
2861
2932
3411
4139
2126 #
2637
2113 #
2114 #
3309 #
3313 #
3311 #
3316 #
3314 #
3310 #
3312 #
3315 #
3165 #
3167 #
3166 #
3168 #
3155 #
3158 #
3156 #
3159 #
3169 #
3171 #
3170 #
3172 #
3161 #
3163 #
3162 #
3164 #
2107 #
2658
2136 #
3157 #
3160 #
959 #
2231
2306
2363
2429
2723

Page 296

MICRO 31(254)

KSlO MICROCODE V124. 27-JUL-84
Cross Reference Listing

3236
3362
3646
2546
2641
2848
4303
5262
5337
2549
2632
2808
2870
3392
3412
4305
2549
2644
2951
2956
3349
3353
3351
3356
3354
3350
3352
3355
3210
3214
3212
3216

3237
3363
4681
2551
2646
2858
4308
5263
5338
2554
2637
2809
2871
3393
3413
4306
2554
2649
2952
2957
3358
3362
3360
3365
3363
3359
3361
3364
3211'
3215
3213
3217

3238
3364
4682
2556
2651
2868

3239
3365
4683
2561
2656
2878

3240
3375
4684
2599
2661
2898

3241
3376
4685
2604
2666
2909

3242
3377
5383
2609
2671
2919

3243
3378

3358
3379

3359
3380

3360
3381

2614
2676
2929

2619
2806
4049

2624
2816
4063

2629
2826
4111

5264
5339
2559
2643
2818
2880
3394
3414
4310
2559
2654
2953

5265
5340
2564
2644
2819
2881
3395
3415
4311
2564
2659

5270
5383
2601
2648
2828
2900
3396
4051

5271
5419
2602
2649
2829
2901
3397
4052

5272

5273

5308

5309

5310

2606
2654
2833
2911
3398
4065

2607
2659
2834
2912
3399
4066

2612
2664
2850
2921
3408
4113

2617
2669
2851
2922
3409
4114

2622
2674
2860
2931
3410
4138

2602
2664

2607
2669

2612
2674

2617
2679

2622

2627

2632

3375
3379
3377
3382
3380
3376
3378
3381
3219
3223
3221
3225

3392
3396
3394
3399
3397
3393
3395
3398
3220
3224
3222
3226

3408
3412
3410
3415
3413
3409
3411
3414

3461
3465
3463
3468
3466
3462
3464
3467

3475
3479
3477
3482
3480
3476
3478
3481

3489
3493
3491
3496
3494
3490
3492
3495

5849
5854
3503
3504
5850
5853

5852
5848

3178
3176
3180
3227
3231
3229
3233
3192
3196
3194
3198
2548
2663
2583
7524
7525
2160
2231
2307
2364
2493"
2729

3179
3177
3181
3228
3232
3230
3234
3193
3197
3195
3199
2553
2668
4682

3187
3185
3189
3236
3240
3238
3242
3201
3205
3203
3207
2558
2673
4684

3188
3186
3190
3237
3241
3239
3243
3202
3206
3204
3208
2563
2678

2611
2775

2616
2843

2621
2844

2626

2631

2636

2653

2179
2249
2320
2392
2525
2737

2183
2250
2329.
2403
2531
2739

2227
2267
2330
2404
2536
2758

2227
2275
2333
2404
2539
2760

2227
2290
2334
2414
2568
2783

2228
2290
2338
2415
2574
2784

2228
2296
2342
2417
2588
2786

2230
2296
2351
2418
2589
2787

2230
2301
2360
2422
2688
2788

2231
2302
2362
2429
2690
2790

11: 45 11-AUG-1984

7526
7527

Tl0KI.MCR[10.1141]

11: 45 l1-AUG-1984

(u) MICROCODE OPTION( INWV@AH

OPT
(U) MICROCODE OPTION(KIpAW@AH
OPT
(U) MICROCODE OPTION(KLpAW¢AH
OPT
(U) MICROCODE OPTION(NOCAV¢AH
OPT
(U) MICROCODE OPTION(NOWW
OPT
(U) MICROCODE OPTION(UBAAW AH
OPT
(U) MICROCODE OPTIONS
(U) MICROCODE VERSION
UCV
(D) MODE
(U) MULTI PREC
(U) MULTI SHIFT
(U) PHYSICAL

(U) PI.CLR

2803
3325
3456
3531
3571
3631
3717
3813
3978
4034
4217
4749
5094
5155
5443
. 5952
6449
6630
6897
7220
7278
7351
7454
7586
7712
7840
7929
7939
7945
7953
8673
8830
1239 #
1243 #
1263 #
1265 #
1269 #
1273 #
1245 #
1249 #
1251 #
1253 #
1257 #
1259 #
1232 #
1276 #
1277 #
1337 #
964 #
966 #
1133 #
7398
7860
8833
1192 #

2813
3325
3456
3535
3586
3632
3718
3814
3978
4035
4217
4752
5121
5158
5447
6099
6454
6630
6911
7221
7279
7351
7454
7619
7715
7843
7929
7939
7946
7955
8678
8830

MICRO 31(254)

KS10 MICROCODE V124. 27-..JUL-84
Cross Reference Listing

Page 297

2823
3325
3457
3535
3593
3635
3721
3815
3978
4039
4217
4753
5122
5166
5493
6099.
6454
6745
6967
7224
7303
7369
7469
7619
7717
7843
7929
7939
7947
7958
8739
8833

2855
3337
3457
3538
3593
3640
3729
3825
3997
4041
4692
4756
5129
5167
5515
6348
6510
6746
6970
7225
7304
7369
7490
7620
7725
7843
7930
7940
7948
8244
8745
8833

2865
3337
3457
3538
3608
3640
3731
3841
3998
4042
4692
4757
5130
5169
5911
6349
6510
6892
6971
7228
7307
7370
7495
7622
7725
7845
7931
7941
7948
8517
8793
8833

2885
3404
3524
3547
3612
3676
3734
3842
3999
4043
4692
4760
5132
5204
5925
6350
6542
6892
6975
7229
7308
7375
7495
7622
7727
7846
7932
7942
7948
8525
8794

2895
3405
3524
3551
3614
3680
3736
3843
4000
4057
4701
4761
5143
5245
5927
6375
6544
6893
6978
7232
7308
7438
7495
7622
7729
7846
7932
7942
7949
8541
8794

2906
3452
3525
3551
3615
3681
3738
3953
4012
4071
4701
4763
5144
5245
5927
6376
6588
6893
6979
7233
7308
7442
7496
7644
7822
7846
7932
7942
7950
8656
8794

2916
3452
3525
3564
3616
3693
3744
3954
4016
4123
4729
4769
5146
5247
5928
6420
6588
6894
6982
7236
7309
7453
7503
7645
7823
7857
7933
7943
7951
8657
8795

2946
3452
3526
3565
3629
3699
3750
3954
4025
4129
4735
4890
5148
5251
5928
6426
6590
6894
7101
7237
7315
7453
7504
7666
7825
7858
7934
7944
7951
8658
8809

3019
3453
3526
3567
3629
3707
3752
3954
4025
4152
4736
4891
5149
5251
5930
6433
6593
6895
7102
7275
7316
7453
7584
7666
7830
7864
7937
7945
7951
8671
8817

3019
3453
3531
3568
3631
3708
3758
3973
4025
4154
4748
5093
5151
5252
5951
6449
6621
6895
7103
7276
7351
7453
7584
7667
7831
7913
7938
7945
7952
8672
8830

4451
2984
3978
7453
7932

4466
3006
3998
7486
7939

4469
3011
4025
7495
7942

4476
4816
6971
7578
7945

4590
4821
6979
7581
7948

5544
4897
7381
7617
7951

5577
4905
7382
7628
8657

5697
5242
7385
7634
8673

5708
5243
7394
7843
8794

7395
7846
8830

7038
7042
7043
7039
7040
7041
7044
4399
2972
3954
7439
7929
7331

~

T10KI .MCR[ 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)

PI.C01
PI.C02
PI.OIR
PI.IP1
PI.IP2
PI.IP3
PI.IP4
PI.IP5
PI.IP6
PI.IP7
PI.MBZ
PI.ON
PI.REQ
PI. SCi
PI. SC2
PI. SC3
PI.SC4
PI. SC5
PI. SC6
PI. SC7
PI.TCF
PI. TCN
PI.TSF
PI.TSN
PI.ZER
PXCT
BIS-DST-EA
BIS-SRC-EA
CURRENT
01

02
E1
E2
(U) RAMAOR
AC#

AC*#

,~

~,

11: 45 11-AUG-1984
1181 #
1182 #
1191 #
1173 #
1174 #
1175 #
1176 #
1177 #
1178 #
1179 #
1190 #
1180 #
1193 #
1198 #
1199 #
1200 #
1201 #
1202 #
1203 #
1204 #
1195 #
1194 #
1196 #
1197 #
1172 #
1137 #
1143 #
1141 #
1138 #
3337
3708
1140 #
5150
1144 #
1139 #
1142 #
676 #
677 #
2855
3015
3431
3709
4086
4406
5103·
5439
6085
6605
678 #
3116
4211
4459
4620
5954
6113

MICRO 31(254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page 298

7337
7514

7333
7342
7339

7344

7347
7345
7343
7341
6886

6888

6894

6895

6897

2227
3452
4217
2320
5246
3682
2329
4699

2228
3453
4692
2362

2230
3456
4701
2414

2231
3457
7351
2417

2250
3524
7622
2785

2290
3525
7663
2789

2296
3549
7858
3730

2404
3551

2429
3573

3019
3588

3325
3593

3735

5123

5131

5145

3719
2334
4718

3751
2340
4758

4750
3569
4762

4754
3655
4766

5095

5168

5252

6892

6893

5918

5927

5928

5930

6849

2356
2865
3077
3434
3711
4097
4408
5112
5445
6087
6678
2172
4083
4212
4478
4626
5962
6128

2369
2885
3089
3437
3716
4100
4450
5113
5547
6095
6930
2173
4095
4213
4480
4627
5972
6145

2383
2895
3110
3440
3749
4117
4452
5177
5551
6121
6954
2180
4174
4214
4482
5546
5975
6160

2520
2905
3275
3443
3771
4118
4623
5200
5553
6157
7532
2370
4176
4326
4483
5637
6005
6162

2587
2936
3290
3446
3774
4144
4624
5202
5557
6259
7543
2382
4178
4410
4609
5690
6008
6188

2688
2964
3293
3449
3779
4146
4628
5282
5649
6291
7546
2488
4186
4432
4610
5692
6021
6191

2690
2967
3298
·3472
3807
4193
4706
5315
5700
6293
7560
2771
4188
4436
4613
5698
6028
6193

2721
2981
3299
3486
3827
4208
4712
5345
5801
6305
7562
2780
4195
4439
4614
5757
6035
6200

2727
2987
3369
3500
3839
4315
4716
5347
5802
6314
7731
3021
4197
4453
4615
5765
6045
6201

2813
2999
3388
3508
4056
4316
4992
5410
5957
6384
7833
3042
4209
4454
4618
5803
6083
6202

2823
3002
3428
3678
4070
4325
5064
5411
6048
6451
8201
3086
4210
4456
4619
5810
6093
6204

Tl0KI.MCR[10.1141]

RAM
VMA

~

a

XR#

~0

#

i

~

..~
It

~
'g

iw

.,5

.!i
.~

~
~

];

J

"g

I
It

(D) READ

11:45 11-AUG-1984
6210
6271
6360
6693
6933
681 #
680 #
2526
3616
4013
5911
7225
7491
7845
7944
8745
679 #
4748
682 #
4971
5934
6056
6132
6352
6576
6744
6964
7226
7297
7673
7954
8230
8741
1348 #
2564
2612
2632
2651
26'11
2808
2833
2869
2901
2932
3188
3220
3241
3376
3397
3489
4078
4304
4685
5271
5335

6212
6272
6362
6694
6935
2182
2160
2532
3677
4017
5930
7229
7496
7865
7946
8796
2278
4756
2159
4975
5937
6057
6139
6353
6578
6811
7049
7230
7298
7685
7956
8232
8750
2546
2583
2614
2634
2652
2672
2809
2834
2870
2909
2939
3189
3221
3242
3377
3398
3646
4079
4305
5259
5272
5337

MICRO 31(254)
6215
6279
6366
6806
6939
2184
2268
2537
3694
4040
6350
7233
7587
7913
7947
8810
2288
5922
2167
4976
5967
6059
6142
6355
6614
6818
7071
7234
7301
7691
7957
8234
8754
2547
2599
2615
2635
2654
2674
2816
2841
2871
2910
2940
3190
3222
3243
3378
3399
3669
4111
4306
5260
5273
5338

KS10 MICROCODE V124. 27-JUL-84
Cross Reference Listing

Page 299

6221
6281
6379
6813
6942
6422
2338
2540
3700
4736
6544
7237
7620
7930
7949

6223
6286
6385
6820
6947
6427
2352
2590
3722
4764
6590
7277
7667
7931
7950

6251
6292
6386
6839

6253
6308
6509
6841

6254
6319
6540
6848

6258
6331
6545
6868

6265
6340
6550
6889

6266
6346
6587
6925

6267
6357
6589
6927

6432
2361
2786
3739
4770
6593
7307
7712
7933
7952

6434
2365
3405
3745
4891
6621
7309
7715
7934
7953

2393
3548
3758
5133
6897
7316
7717
7937
7955

2404
3572
3816
5156
6912
7370
7727
7938
8220

2410
3587
3844
5159
6982
7438
7729
7940
8244

2423
3608
3974
5205
7104
7443
7826
7941
8679

2494
3612
4001
5247
7221
7454
7840
7943
8739

2300
5924
2169
4981
5984
6060
6155
6358
6619
·6822
7083
7238
7317
7693
7959
8238
8766
2549
2600
2617
2637
2656
2676
2817
2848
2878
2911
2951
3201
3223
3358
3379
3408
3765
4112
4308
5261
5304
5339

2315
5927
2170
4987
5991
6061
6173
6371
6629
6824
7151
7245
7318
7838
8197
8239

2328
6892
2175
5013
5995
6062
6177
6373
6691
6913
7156
7252
7322
7910
8198
8498

2344
6894
2176
5026
6012
6072
6180
6377
6697
6929
7208
7254
7402
7912
8207
8538

3553
6898
3662
5034
6024
6079
6184
6380
6724
6938
7210
7259
7403
7917
8208
8539

3555
7656
4689
5039
6029
6103
6294
6381
6728
6944
7212
7263
7651
7921
8210
8540

3563
7657
4948
5045
6040
6119
6296
6402
6731
6952
7214
7265
7654
7925
8211
8546

4743
7665
4961
5175
6044
6126
6337
6552
6736
6953
7216
7284
7659
7935
8218
8724

4746
4966
5921
6055
6131
6347
6553
6737
6956
7222
7287
7671
7936
8228
8735

2551
2601
2619
2641
2657
2677
2818
2849
2879
2912
2952
3202
3224
3359
3380
3409
4049
4113
4309
5262
5305
5340

2552
2602
2620
2642
2659
2679
2819
2850
2880
2919
2953
3203
3225
3360
3381
3410
4050
4114
4310
5263
5306
5383

2554
2604
2622
2643
2661
2765
2826
2851
2881
2920
2955
3204
3226
3361
3382
3411
4051
4136
4311
5264
5308
5418

2556
2605
2624
2644
2662
2766
2827
2858
2888
2921
2956
3205
3236
3362
3392
3412
4052
4137
4380
5265
5309
5419

2557
2606
2625
2646
2664
2796
2828
2859
2889
2922
2957
3206
3237
3363
3393
3413
4063
4138
4681
5267
5310
5533

2559
2607
2627
2647
2666
2797
2829
2860
2898
2929
3185
3207
3238
3364
3394
3414
4064
4139
4682
5268
5311
5534

2561
2609
2629
2648
2667
2806
2831
2861
2899
2930
3186
3208
3239
3365
3395
3415
4065
4162
4683
5269
5333
5622

2562
2610
2630
2649
2669
2807
2832
2868
2900
2931
3187
3219
3240
3375
3396
3475
4066
4303
4684
5270
5334
5683

T10KI.MCR[10,1141]

(U) READ CYCLE

(D) ROUND
(U) RSRC

AB
AO
DO
DA

DO
OA
OB
00
(U) S#

(U) SCAD

A

A*2
A+B

A-1

,.-...

~,

~
\
i
11: 45 11-AUG-1984
5907
1125 #
2363
3524
3708
4761
6510
7228
7578
1336 #
5311
610 #
612 #
611 #
618 #
7860
616 #
2265
5883
7027
7432
617 #
615 #
, 5653
614 #
613 #
1000 #
2984
3139
4813
4902
5234
5390
5489
5586
5741
5980
6653
7626
977 #
985 #
4713
5038
5401
6519
7406
978 #
982 #
3011
4896
5423
5523
5763
6524
984 #

MICRO 31(254)

KSlO MICROCODE V124, 27-,JUL-84
Cross Reference Listing

Page 300

2230
2418
3531
3842
5252
6892
7275
7645
5264
5339

2231
2429
3535
3999
5927
6893
7279
7666
5265
5340

2250
3019
3538
4043
5928
6894
7315
7823
5270
5383

2290
3325
3551
4217
5952
6895
7351
7858
5271
5419

2296
3337
3565
4692
6099
6970
7439
7860
5272

2301
3452
3568
4701
6349
6978
7453
8521
5273

2307
3453
3593
4749
6376
7102
7486
8658
5308

2330
3456
3615
4753
6449
7220
7495
8672
5309

2334
3457
3635
4757
6454
7224
7504
8830
5310

6154
8226
2157
3041
5887
7093
7435

6269
8240
2190
3579
5889
7248
7468

7439

7486

7578

7581

7617

7628

7634

7707

2201
3942
5891
7291
7500

"2237
3982
5893
7292
8266

2241
4030
5895
7293
8527

2244
4394
6579
7427
8749

2247
4405
6591
7428

2256
4799
6617
7429

2259
5879
6657
7430

2262
5881
6802
7431

2319
5703
2737
3627
2174
3000
4118
4815
4904
5242
5394
5492
5627
5748
5982
6654
7680

2760
5705 "
2739
3641
2377
3003
4146
4817
4937
5243
5396
5500
5638
5751
6148
6660
7696

3688
5925

3805
6963

3811
7470

4014
8808

4215

5220

5550

5552

5652

3985
2396
3006
4183
4820
4953
52,86
5397
5502
5642
5763
6293
6670
8261

5224
2396
3011
4203
4883
4964
5288
5401
5503
5645
5780
6461
6853
8496

5914
2411
3023
4223
4884
4977
5320
5409
5504
5655
5785
6463
7128

5958
2411
3038
4336
4885
4993
5325
5424
5505
5661
5787
6470
7146

6158
2427
3040
4433
4886
5038
5327
5427
5523
5667
5808
6519
7177

7458
2965
3067
4441
4887
5053
5353
5429
5528
5678
5833
6524
7187

2968
3084
4703
4888
5212
5354
5480
5558
5716
5835
6526
7194

2972
3093
4785
4896
5214
5367
5484
5569
5717
5841
6649
7406

2982
3096
4808
4900
5232
5368
5486
5584
5727
5979
6651
7594

2174
4790
5053
5627
6649
7594
6642
2377
3038
4904
5427
5528
5780
6652
2184

3023
4791
5212
5638
6650
7626

4118
4792
5214
5642
6660
7680

4146
4793
5232
5655
6850
7696

4183
4794
5234
5661
6871
8261

4203
4899
5320
5716
6890
8496

4223
4937
5367
5717
7128

4336
4953
5390
6293
7146

4433
4964
5394
6461
7177

4441
4977
5396
6463
7187

4699
4993
5397
6470
7194

2396
3040
5242
5480
5558
5785
6653
2988

2396
3084
5243
5484
5569
5787
6654
2990

2411
3093
5286
5486
5584
5808
6670
3066

2411
4815
5288
5489
5586
583,3
6958
3068

2968
4820
5316
5492
5650
5835

2972
4884
5325
5500
5667
5841

2982
4885
5327
5502
5678
5979

2984
4886
5368
5503
5741
5980

3003
4887
5409
5504
5748
5982

3006
4888
5411
5505
5751
6520

3070

3074

3100

3107

3138

3140

2227
2404
3525
3718
5094
6630
7232
7581
5262
5337

2228
2415
3526
3752
5169
6746
7236
7622
5263
5338

3662,

7651

2758
8224
2154
2516
5885
7030
7433

Tl0KI.MCR[10,1141]

A-B
A-B-1
A.AND.B
A.OR.B
(U) SCADA
BYTE 1

i

az
I0

m
~

BYTE2
BYTE3
BYTE4
BYTE5
PTR44
S#

t
£

.t

)

..

•

11

iii

e

.;

~

~
~

I

SC

I
I
.t

(U) SCADB
EXP
FE

SHIFT
SIZE
(U) SETFOV
(U) SETFPD
(u) SETNDV
(u) SETOV

11: 45 ll-AUG-1984
3142
4959
5630
7632
981 #
4813
6842
980 #
983 #
979 #
986 #
990 #
6885
991 #
992 #
993 #
994 #
989 #
988 #
2984
3139
4813
4902
5234
5390
5489
5586
5741
5980
6653
7626
987 #
3142
4959
5434
6472
7700
995 #
997 #
5558
996 #
3040
4887
5354
5503
5741
5982
998 #
999 #
6885
1081 #
1087 #
1082 #
1079 #
5426

MICRO 31(254)

Page 301

4275
5428
7132

4285
5431
7148

4293
5434
7179

4548
5438
7196

4551
5602
7386

4591
5605
7399

4940
5612
7601

3139
5353

4691
5354

4696
5429

4710
5701

4731
5727

4785
6032

4808
6042

5568
6526

6651

6853.

4699

4710

4790

4899

6032

6520

6650

6842

6850

4794
6042
2377
3003
4146
4817
4937
5243
5396
5500
5638
5751
6148
6660
7696
2988
4249
5282
5548
6667
8502

6643
6845
2396
3006
4183
4820
4953
5286
5397
5502 .
5642
5763
6293
6670
8261
2990
4261
5287
5568
7132

6872
6887
2396
3011
4203
4883
4964
5288
5401
5503
5645
5780
6461
6853
8496
3066
4267
5296
5602
7148

2411
3023
4223
4884
4977
5320
5409
5504
5655
5785
6463
7128

2411
3038
4336
4885
4993
5325
5423
5505
5661
5787
6470
7146

2427
3040
4433
4886
5038
5327
5427
5523
5667
5808
6519
7177

2965
3067
4441
4887
5053
5353
5429
5528
5678
5833
6524
7187

2968
3084
4703
4888
5212
5354
5480
5558
5716
5835
6526
7194

2972
3093
4785
4896
5214
5367
5484
5569
5717
5841
6649
7406

2982
3096
4808
4900
5232
5368
5486
5584
5727
5979
6651
7594

3068
4275
5298
5605
7179

3070
4285
5316
5612
7196

3074
4293
5347
5630
7386

3100
4548
5404
5650
7399

3107
4551
5411
5701
7601

3138
4591
5428
6322
7632

3140
4940
5431
6466
7687

2396
5650
2965
3096
4896
5424
5505
5751
6520
3067
4696
6958
5361
4745
4373
4132

2411
5701
2968
4703
4900
5427
5523
5763
6524
3084
4710

2411

5282

5286

5288

5316

5347

5411

5548

2972
4785
4902
5429
5528
5780
6526
3139
4731

2982
4808
4904
5480
5568
5785
6651
5409
4817

2984
4813
5242
5484
5584
5787
6652

3000
4815
5243
5486
5586
5808
6653

3003
4820
5287
5489
5645
5833
6654

3006
4884
5325
5492
5667
5835
6670

3011
4885
5327
5500
5678
5841
6853

3038
4886
5353
5502
5727
5980

4883

5979

6032

6042

6842

6845

5714
6388
4404
4156

4490
4218

4997
4338

5349
4373

5361
4404

5714
4490

4997

5349

5361

3146
5059
6322
7687
2965
4817
6845
5282
4703
2427

4249
5296
6466
7700
3000
4883
6885
5287
4900
5645

4261
5298
6472
8264
3067
4902
6887
5548
6148

4691
6890
4791
4792
4793
4714
4731
2174
3000
4118
4815
4904
5242
5394
5492
5627
5748
5982
6654
7680
2184
3146
5059
5438
6652
8264

4696
6958

2396
5569
2427
3093
4888
5368
5504
5748
6148
2377
4691
6887
5349
4231
4338
4131
5714

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing
4267
5404
6667
8502
3096
5347

~

.~.

~
\
"

/

T 10K I . MCR [ 10, 1141 ]
(U) SHSTYLE
ASHC

DIV
LSHC
NORM
ONES
ROT
ROTC
ZERO
(U) SKIP
ACO
ADEQO

ADLEQO

ADREQO
CRYO
CRY1
CRY2
DPO

DP18
EXECUTE
FPD
INT
IOLGL
lOT
JFCL
KERNEL
LE
LLE
SC

TRAP CYCLE

11 : 45 11-AUG-1984
824 #
829 #
4472
5605
5763
831 #
5600
830 #
825 #
5229
827 #
828 #
832 #.
826 #
902 #
910 #
922 #
4393
5371
6268
906 #
5752
6490
8511
907 #
7061
7497
905 #
918 #
913 #
914 #
3773
4360
4553
5442
6031
6339
8650
915 #
8663
924 #
909 #
911 #
903 #
916 #
917 #
90S #
912 #
904 #
923 #
3140
4940
5602
7196
920 #

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

Page 302

2990
4476
5612 .
5780
4548

3099
4492
5615
5784
4551

3102
5298
5617
5786
4552

3106
5401
5629
5808
4595

3109
5403
5670
5833
4599

4267
5433
5674

4275
5577
5709

4285
5579
5723

4293
5583
5741

4399
5585
5747

4403
5601
5750

5480

5492

5500

5504

5597

5599

3070
2424
5243
4819
3006
3142

3074
2984
5631
4822
3011
3146

4580
4226
5721
4895

4583
4260

4433

4589

5207

5222

5223

5227

5228

4898

5982

2483
3016
4422
5373
6557
2187
5812
6522
8530
3085
7063
7517
3684
4084
5770
2397
3776
4365
4994
5549
6073
6356

3387
3331
4452
5446
6594
3986
5912
6986
8532
3591
7065
7589
3727
4096
5830
2412
3781
4369
5138
5651
6075
6428

4688
3343
4533
5488
6615
3991
5955
7110
8693
3606
7331
7616
3756
5797

3434
4611
5512
6738
5388
6094
7117
8711
5119
7333
8199
5357
6213

3446
4616
5668
7295
5393
6096
7153
8752
6323
7337
8491
5481
6219

4121
4621
5719

4126
4637
5761

4328
4644
5806

4330
4962
6136

4334
4991
6189

4348
5345
6265

5507
6178
7456

5672
6198
7457

5675
6382
7648

5743
6398
7650

5746
6452
7664

5749
6487
8248

6396
7339
8680
5483
6232

6751
7341
8697
5485
6423

7028
7343
8700
5487
6434

7031
7345
8705

7056
7347

7058
7444

2571
4103
4391
5162
5698
6097
6478

2749
4128
4408
5248
5702
6114
6504

2756
4150
4420
5284
5713
6117
6695

3039
4153
4427
5288
5726
6123
6725

3111
4208
4442
5317
5963
6163
6767

3328
4216
4461
5347
5976
6255
6821

3340
4317
4479
5355
5993
6260
6940

3431
4353
4531
5389
6006
6297
7105

3443
4355
4538
5411
6013
6306
7250

2376
8686
7852
4170
5142
2433

2735

2742

5936

6183

6387

6476

6799

6800

7483

8653

4691
6033
3536

4696
8212
3539

4710
8733

6287
8764

8815

3533
3346

3534
3437

3541
3449

3650
4387

6965
5021

5365

5689

6336

7261

7918

2988
3146
5059
5612
7399

2990
4249
5296
5630
7601

3066
4261
5298
6322
7632

3068
4267
5404
6466
7700

3070
4275
5428
6472
8264

3074
4285
5431
6658
8502

3091
4293
5434
6667

3100
4548
5438
7132

3107
4551
5551
7148

3138
4591
5553
7179

3598
3529
3334
7651
2184
3142
4959
5605
7386
8751

T10KI.MCR[10,1141]
TXXX
-1 MS
-CONTINUE
-10 BUSY
, (U) SPEC

~
~

APR EN
APR FLAGS
ASHOV
CLR 10 BUSY
CLR 10 LATCH
CLRCLK
CLRCSH
EXPTST
FLAGS

z

..5
Jl!
~

~

;t

!
'&

i

w

.,ii
~
Ii

~

INHCRY18
LDACBLK
LDINST
LDPAGE
LDPI
LDPXCT
LOADIR
LOADXR
MEMCLR
NICOND

i

I
Ii

i
~

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

11: 45 11-AUG-1984
919 #
927 #
926 #
925 #
788 #
2813
4154
802 #
800 #
809 #
792 #
791 #
790 #
801 #.
810 #
811 #
3597
4005
4231
5361
806 #
812 #
813 #
793 #
808 #
795 #
807 #
798 #
6888
803 #
794 #
3337
3793
797 #
805 #
804 #
796 #
789 #
1003 #
1005 #
1012 #
1011 #
1008 #
1010 #
1014 #
1015 #
1013 #
1006 #
1004 #
1007 #
1009 #

3284
5134
7854
7682
2568
2823
8517
2165
7075
2990
7575
7660
7246
7381
5489
2216
3618
4057
4338
5426
3509
2162
2269
7376
3607
3659
5917
2340
6897
2160
2227
3428
4217
7824
2239
7394
2409
7848

397
4496
400

MICRO 31(254)

6028

7299

76'88
2574
2855
8817
7070
7079
3106
7613
7668
7300
7382
5505
2217
3619
4071
4373
5714
3679
7125
3654
8533
7362

7697
2688
2865

KS10 MICROCOOE V124. 27-JUL-84
Cross Reference Listing

Page 303

7705
2690
2885

2723
2895

2729
2906

2737
2916

2739
2946

7675

7684

7690

7699

7704

3403
3701
4098
4490
6389
3755

3419
3757
4101
4639
6987
3775

3486
3787
4131
4641
7459
3780

3500
3791
4132
4706
7474
5029

2758
4123

2760
4129

2803
4152

3556
3806
4156
4723
8755
5104

3557
3812
4206
4745

3560
4003
4218
4997

3561
4004
4228
5349

7155
7269
3109
7672
8736
7385
5835
2577
3689
4088
4404
6388
3726
7142
6983

7866

7437

7919

3549
7663
3608
2228
3452
4481
7832
2242
7395

3573

3588

4699

4718

4766

5918

5930

6849.

6886

7438
2230
3453
4484

7840
2231
3456
4692

7913
2291
3457
5439

8244
2297
3524
5445

8739
2521
3525
5804

8745
3042
3551
7351

3088
3593
7622

3116
3710
8201

3325
3786

2245
7398

2257

2260

2263

2277

7851

7914

6351

6378

6597

6623

8772

8776

6502

6559

8770

8778

8780

8784

5971
5997

6000
6076

6070

8774

1294
4564
1240

1296
4629
1242

2171
4915
1244

2191
5066
8003

2196
5070
,8005

2200
7149
8352

4165
7157
8355

4233

4236

4383

4493

8356

8359

8477

8480

5105
6122
6169
6084
6022
6141
6563
6115
8200

.~.

~J
T10KI.MCR[10,1141j

11:45 11-AUG-1984

KIPAGE

8481
409
7172

KLPAGE

8

NOCST
NONSTD
SIM
UBABLT
(U) T

2T
3T

4T
5T
(0) TEST

(U) TRAP1
(U) TRAP2

(U) VECTOR CYCLE
(0) VMA

7160
8822
403
8448
9

394
7

940 #
943 #
7658
944 #
3683
4174
4470
5030
5389
5651
5982
6388
6694
7110
7665
945 #
6006
8653
946 #
1349 #
2559
2607
2622
2637
2654
2669
2798
2828
2850
2880
2911
2941
3409
4065
4305
5261
5273
5335
1096 #
5426
1095 #
1167 #
1351 #
2635

MICRO 31(254)

KS10 MICROCODE V124. 27-uUL-84
Cross Reference Listing

Page 304

8555
421
8269
416
7168

8564
1264
8273
418
7170

8565
1266
8278
420
8268

8581
1268
8281
1270
8277

3946
8645
1272
8283

3956
8691
1274
8486

4008
8800
3947
8549

4019
8803
3951
8643

7159
8807
3957
8799

7166
8812
3971
8805

424
8474
428
2209
406

426
8493
1252
2214
415

1246
8550
1254
2221
422

1248
8582
1256

1250

8347

8422

8426

8440

8443

8444

1258

1260

1262

5180

5254

7796

7798

7800

4408

4421

5288

5558

6132

6202

6266

6554

6691

6736

7301

2187
3718
4176
4478
5046
5392
5652
6030
6416
6753
7116
8525
3015
6183
8663
7687
2548
2563
2607
2622
2637
2654
2669
2799
2829
2851
2881
2912
2942
3410
4066
4306
5264
5305
5339
4131
5714
3701
7487
2547
2642

2412
3726
4195
4559
5050
5424
5653
6034
6422
6843
7153
8542
3486
6188

2422
3751
4229
4624
5116
5427
5697
6097
6425
6850
7418
8665
3500
6213

2577
3755
4366
4641
5118
5481
5701
6204
6434
6871
7443
8676
4083
6254

3110
3772
4370
4699
5137
5483
5703
6218
6459
6885
7447
8760
4088
6427

3284
3777
4420
4714
5161
5485
5705
6232
6473
6889
7455
8790
4095
6475

3369
3782
4426
4785
5248
5487
5713
6264
6500
6892
7456

3403
3819
4427
4803
5282
5546
5796
6267
6520
6894
7457

3419
3833
4428
4899
5316
5547
5802
6352
6521
6930
7492

3509
4057
4445
4943
5357
5550
5962
6355
6643
6985
7496

3599
4071
4449
4950
5388
5552
5980
6387
6650
7104
7498

4098
6615

4100
6738

4990
6939

4995
7918

5976
8215

7704
2548
2563
2611
2626
2643
2658
2673
2799
2829
2851
2881
2912
2942
3411
4066
4306
5264
5305
5339
4132

2549
2564
2611
2626 .
2643
2658
2673
2808
2833
2860
2890
2921
3392
3412
4113
4310
5265
5306
5340
4156

2549
2564
2612
2627
2644
2659
2674
2808
2833
2860
2890
2921
3393
3413
4113
4310
5265
5306
5340
4218

2553
2583
2612
2627
2644
2659
2674
2809
2834
2861
2891
2922
3394
3414
4114
4311
5268
5310
7203
4338

2553
2601
2616
2631
2648
2663
2678
2809
2834
2861
2891
2922
3395
3415
4114
4311
5268
5310

2554
2601
2616
2631
2648
2663
2678
2818
2843
2870
2900
2931
3396
4051
4138
4682
5269
5311

2554
2602
2617
2632
2649
2664
2679
2818
2843
2870
2900
2931
3397
4051
4138
4684
5269
5311

2558
2602
2617
2632
2649
2664
2679
2819
2844
2871
2901
2932
3398
4052
4139
5260
5272
5334

2558
2606
2621
2636
2653
2668
2775
2819
2844
2871
2901
2932
3399
4052
4139
5260
5272
5334

2559
2606
2621
2636
2653
2668
2798
2828
2850
2880
2911
2941
3408
4065
4305
5261
5273
5335

4373

4404

4490

4997

5349

5361

3757

3787

3791

2552
2647

2557
2652

2562
2657

2600
2662

2605
2667

2610
2672

2615
2677

2620
2796

2625
2797

2630
2807

8484
419
7174
412
7165
8827

T10KI,MCR[10,1141]

(U) WAIT

(U) WORK
ACO
AC1
AC2
AC3
AD,JBPW
AD,JP
AD,JPTR
AD,JQl
AD,JR2
AD,JS
APR
BADWO
BADW1
BDH
BDL
CBR
CMS
CSTM
DDIV SGN
DECHI
DECLO
DIV
DVSOR H
DVSOR L
EO

11:45 11-AUG-1984
2817
2930
3765
1156
2290
2363
2525
3019
3453
3538
3616
3699
3758
3999
4692
4761
5146
5911
6542
6894
7221
7304
7370
7619
7729
7929
7941
7950
8809
1019
1060
1061
1062
1063
1038
1033
1035
1036
1037
1034
1040
1020
1021
1050
1051
1030
1047
1031
1064
1069
1068
1023
1065
1066
1042

2827
2939
4050
2227
#
2290
2364
2531
'3019
3456
3547
3629
3708
3814
4000
4692
4763
5.146
5927
6542
6895
7224
7304
7442
7620
7823
7930
7942
7951
8830
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#

it
#
#
#

MICRO 31(254)
2832
2940
4064
2227
2296
2392
2536
3325
3456
3551
3629
3708
3814
4012
4701
4769
5151
5928
6544
6897
7225
7307
7453
7622
7825
7931
7942
7951
8833

5034
4975
4966
4989
5048
4976
7049

KS10 MICROCOOE V124, 27-,JUL-84
Cross Reference Listing

Page 305

2859
2952
4137
2228
2301
2404
2588
3337
3457
3565
3632
3721
3825
4025
4729
4890
5155
5952
6588
6967
7229
7308
7469
7645
7831
7932
7944
7953

2869
2953
4304
2230
2307
2404
2588
3337
3524
3568
3635
3731
3825
4025
4729
4891
5158
6099
6590
6970
7232
7309
7469
7666
7843
7933
7945
7955

2879
2955
4309
2230
2320
2415
2589
3404
3524
3571
3640
3731
3842·
4035
4735
5094
5169
6349
6593
6975
7233
7315
7490
7667
7845
7934
7945
8543

2888
2956

2889
2957

2899
3475

2910
3489

2920
3515

2231
2330
2418
2784
3404
3525
3586
3640
3736
3843
4035
4735
5122
5204
6350
6621
6978
7236
7316
7495
7712
7846
7937
7946
8658

2231
2334
2422
2784
3405
3525
3593
3676
3736
3954
4039
4736
5122
5245
6376
6630
6982
7237
7351
7496
7715
7846
7938
7947
8672

2250
2338
2429
2786
3452
3526
3593
3681
3738
3973
4043
4749
5130
5245
6449
6746
7102
7275
7351
7504
7717
7858
7939
7948
8678

2250
2351
2429
2790
3452
3531
3612
3681
3744
3978
4217
4753
5130
5247
6454
6892
7103
7276
7369
7584
7725
7858
7939
7948
8794

2267
2360
2493
2790
3453
3535
3615
3693
3752
3978
4217
4757
5132
5252
6510
6893
7220
7279
7369
7586
7727
7864
7940
7949
8795

5039
7071

7083

7151

7156

8198

2849
2951
4112
2228
2296
2403
2539
3325
3457·
3551
3632
3718
3815
4016
4701
4890
5151
5930
6588
6911
7228
7308
7454
7622
7831
7932
7943
7952
8833

5013
4948
4689
4971
4981
4961
2167
8238
8239·
6296
6294
7210
6119
7214

6371
6337
7226
6131
7234

6380
6377

6402
6381

6132

6f42

2176
2175

2178
2177

6425
6416

5921

6347

6619

5028

6629

~
T10KI.MCR[10,1141]
E1
FILL
FSIG
HSBADR
MSK
MUL
PERIOD
PTA.E
PTA.U
PUR
SBR
SLEN

I
~

I0

,

If
~

i

.;
.!!

Ii

!

SV.ARX
SV.AR
SV.AR1
SV.BRX
SV.BR
SV.VMA
TIMEO
TIME1
TRAPPC
TTG
YSAVE
(D) WRITE
(U) WRITE CYCLE

5

i

;
~

I
!

Ii

(U) WRITE TEST

~

Ii

Ia:
(U) WRU CYCLE
(U) #

~

,"'--"
11:45 "-AUG-'984
1043 #
1046, #
1048 #
1039 #
1045 #
1022 #
1056 #
1072 #
1073 #
1032 #
1029 #
1044 #
6180
6956
1026 #
1025 #
1075 #
1028 #
1027 #
1024 #
1054 #
1055 #
1074 #
1057 #
1071 #
1352 #
1127 #
2784
3404
4035
5146
7469
7948
1126 #
2784
3404
4035
5146
7439
7846
8794
1163 #
974 #
2259
3041
3591
3924
4022
4537
5017
5293
5552
5887
6154
6289

MICRO 31( 254)

KS10 MICROCODE V124, 27-JUL-84
Cross Reference Listing

Page "306

6728
6697

6731
6811

6736
6913

6744

6024
6358

6040
6724

6044
6818

6072
6822

6079
6824

6173
6938

7910
7956

7921
8207

7936
8546

7959

8211

8538

8766

6062
8218
7693
7287
7252

6929
8228
7925
7297
7284

6944
8230
7954

6953
8232
7957

8208
8234
8197

8540
8539
8210

8724
8498

8741

8750

7298

7301

8735

7318
7654

7659

7671

7673

2574
2803
3632
4071
5245
7628
8517
2574
2803
3632
4071
5245
7469
7929
8830

2588
2813
3640
4123
5443
7634
8522
2588
2813
3640
4123
5443
7486
7932
8833

2688
2823
3681
4129
5447
7831
8712
2688
2823
3681
4129
5447
7495
7939

2690
2855
3731
4152
5493
7843
8794
2690
2855
3731
4152
5493
7578
7942

2723
2865
3736
4154
5515
7846
8817
2723
2865
3736
4154
5515
7581
7945

2729
2885
3814
4729
6542
7929
8833
2729
2885
3814
4729
6542
7617
7948

2737
2895
3825
4735
6588
7932

2739
2906
3954
4890
7304
7939

2758
2916
3978
5122
7308
7942

2760
2946
4025
5130
7369
7945

2737
2895
3825
4735
6588
7628
7951

2739
2906
3954
4890
7304
7634
8248

2758
2916
3978,
5122
7308
7831
8517

2760
2946
4025
5130
7369
7843
8523

2150
2419
3114
3606
3928
4037
4635
5055
5318
5652
5891
6166
6304

2152
2421
3528
3626
3930
4104
4800
5062
5319
5653
5893
6171
6311

2154
2434
3537
3639
3932
4105
4944
5115
5323
5672
5895
6178
6316

2157
2456
3540
3725
3939
4357
4946
5211
5351
5675
5912
6182
6323

2187
2457
3542
3754
3942
4394
4951
5216
5352
5703
5915
6198
6326

2201
2744
3543
3817
3982
4395
4969
5225
5388
5705
5939
6240
6382

2237
2746
3544
3832
3987
4405
4973
5231
5392
5879
5955
6256
6396

2241
2751
3577
3918
3989
4413
4979
5236
5412
5881
5959
6257
6398

2244
2753
3582
3920
3992
4458
4983
5289
5413
5883
6094
6263
6405

2256
2770
3585
3922
3994
4511
5012
5290
5550
5885
6096
6269
6430

5934
6103
6576
2159
5984

5937
6126
6578
7216
6155

6373
6139

6552
6614

6553
6691

7238
6737

7912

7917

7265
7403
7402
7212
7208
5967
6184

7317

7322

7230
7222
5991
6352

5995
6353

6012
6355

6056
6029

6061
6059

7838
7935

5175
6055
7685
2169
2170
6964
7259
3662

6057
6060
7691
7254
7245
8754
7263
7651

2568
2790
3629
4057
5151
7617
7951
2568
2790
3629
4057
5151
7453
7860
8817
7440
2148
2262
3112
3605
3926
4030
4544
5051
5294
5632
5889
6159
6302

6177
6952

T10KI.MCR[10,1141]

11: 45 11-AUG-1984
6436
6602
6789
7006
7024
7065
7154
7380
7429
7589
7808
8240
8531
8720

6452
6618
6793
7007
7025
7077
7180
7391
7430
7597
7810
8250
8536
8728

MICRO 31(254)

KS10 MICROCOOE V124, 27-JUL-84
Cross Reference Listing

6464
6637
6803
7008
7027
7087
7189
7393
7431
7603
7812
8253
8652
8790

6475
6663
6907
7014
7036
7094
7217
7421
7433
7648
7851
8267
8666

6467
6658
6809
7013
7030
7090
7197
7420
7432
7616
7848
8259
8662

/

6487
6672
6918
7015
7051
7108
7239
7422
7436
7650
7862
8492
8676

6490
6675
6985
7018
7052
7113
7248
7423
7447
7664
7914
8505
8681

6507
6751
6990
7019
7055
7116
7267
7424
7456
7707
8192
8509
8697

Page 307
6522
6773
6999
7020
7056
7120
7282
7425
7457
7793
8196
8513
8700

6580
6777
7000
7021
7058
7135
7334
7426
7472
7802
8199
8515
8703

6591
6781
7001
7022
7061
7152
7335
7427
7492
7804
8224
8528
8706

6600
6785
7005
7023
7063
7153
7378
7428
7499
7806
8226
8529
8715

2

3

4

5

KS10 MICROCODE V124. 27-JUL-84
Location / Line Number Index
7
6

5848
5857
5867
3852
3863
3871
3879
3887

5849
5858
5868
3853
3864
3872
3880
3888

5850
5859
5869
3854
3865
3873
3881
3889

5851
5861
5870
3855
3866
3874
3882
3890

5852
5862
5871
3856
3867
3875
3883
3891

5853
5863
5872
3857
3868
3876
3884
3892

5854
5864
5873
3858
3869
3877
3885
3893

3897
5533
2765
3908
5259
5267
5304
5333

3898
5534
2766
3909
3910
3911
3912
3913

3899
5622
5418
5384
5260
5268
5305
5334

3900
5683
5907
4681
5261
'5269
5306
5335

3905
4078
2774
4682
5262
5270
5308
5337

3765
4079
2775
4683
5263
5271
5309.
5338

.3906
4162
5419
4684
5264
5272
5310
5339

3907
4380
5383
4685
5265
5273
5311
5340

2546
2556
4111
4303
2951
2583
3668
4049

2547
2557
4112
4304
2952
5108
3669
4050

2548
2558
4113
4305
2953
3503
3670
4051

2549
2559
4114
4306
2954
3:;04
3671
4052

2551
2561
4136
4308
2955
3515
3798
4063

2552
2562
4137
4309
2956
3517
3799
4064

2553
2563
4138
4310
2957
3646
3800
4065

2554
2564
4139
4311
3914
8187
3801
4066

3349
3358
3461
3375
3475
3392
3489
3408

3350
3359
3462
3376
34763393
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

2796
2816
2831
2848
2868
2888
2909
2929

2797
2817
2832
2849
2869
2889
2910
2930

2798
2818
2833
2850
2870
2890
2911
2931

2799
2819
2834
2851
2871
2891
2912
2932

2806
2826
2841
2858
2878
2898
2919
2939

2807
2827
2842
2859
2879
2899
2920
2940

2808
2828
2843
2860
2880
2900
2921
2941

2809
2829
2844
2861
2881
2901
2922
2942

2599
2609
2619
2629
2641
2651
2661
2671

2600
2610
2620
2630
2642
2652
2662
2672

2601
2611
2621
2631
2643
2653
2663
2673

2602
2612
2622
2632
2644 .
2654
2664
2674

2604
2614
2624
2634
2646
2656
2666
2676

2605
2615
2625
2635
2647
26572667
2677

2606
2616
2626
2636
2648
2658
2668
2678

2607
2617
2627
2637
2649
2659
2669
2679

T10KI.MCR[10.1141]
Dcode Loc'n

0

0000
0010
0020
0030
0040
0050
0060
0070

3904
5856
5866
3851
3862
3870
3878
3886

0 0100
0 0110

0
0
0
0
0
0
0
0

!

~
z

t-

o

i
i

i

it

~
.~

ii

iii

i

.ig
jj
E

I

,i
I

«
g

I
it

o 0120
o 0130
o 0140
o 0150
o 0160
o 0170
o 0200
o 0210
o 0220
o 0230
o 0240
o 0250
o 0260
o 0270
o 0300
o 0310
o 0320
o 0330
o 0340
o 0350
o 0360
o 0370
o 0400
o 0410
o 0420
o 0430
o 0440
o 0450
o 0460
o 0470
o 0500
o 0510
o 0520
0·0530
o 0540
o 0550
o 0560
o 0570

~.

~,

(')

.

11:45 "-AUG-'984

MICRO 31(254)

Page 308

T10KI.MCR[10,1141]
Dcode Loc'n

11:45 11-AUG-1984

0

MICRO 31(254)

2

3

4

5

KS10 MICROCODE V124, 27-JUL-84
Location I Line Number Index
6
7

D 0600
0610
0620
D 0630
D 0640
D 0650
D 0660
D 0670

3174
3183
3192
3201
3210
3219
3227
3236

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

0700
0710
0720
0730
0740
0750
0760
0770

6995
7524
7526
7746
7755
7764
7773
7782

6996
7525
7527
7747
7756
7765
7774
7783

7203
7535
7537
7748
7757
7766
7775
7784

7736
7536
7538
7749
7758
7767
7776
7785

7817
7549
7551
7750
7759
7768
7777
7786

7818
7550
7552
7751
7760
7769
7778
7787

7737
7740
7743
7752
7761
7770
7779
7788

7738
7741
7744
7753
7762
7771
7780
7789

D
D

D
D

D
D
D
D
D
D

Page 309

'..

"/

2

3

4

5

KS10 MICROCODE V124. 27-.JUL-84
Location / Line Number Index
7
6

7911 :
7912:
2151
4120=
2357:
2412:
2159
2160

2149
2182=
3976=
3562=
2361 :
2433:
5041=
4755=

2157:
2150
3979=
4489=
2369:
2155
5442=
5443=

7852:
3284=
3633=
3566=
2379:
4411 =
3831=
4759=

7854:
3287=
3635=
4121=
2382:
4413=
3835=
4415=

5208=
3290=
2152
3570=
2389:
4447=
5048=
4762=

5211 =
3293=
3982=
4490=
2393:
4448=
7580=
7581=

2162
2167
4175=
4194=
2190=
3550=
4331=
5924=

2240=
2258=
4177=
4196=
2193=
2201=
4334=
4148,;

2243=
2261=
4268=
5688=
4286=
3551=
2173
5926=

2246=
2264=
4272=
5690=
4290=
5598=
5322=
5599=

7839=
7841=
4178=
4197=
5367=
5370=
4337=
5927=

2247=
2265=
2169
2170
5368=
5372=
4338=
4149=

2165
7843=
4276=
2172
4294=
5374=
4340=
5928=

2251=
2270=
4280=
7046:
4298=
5375=
5324=
5376=

0200
0210
0220
0230
0240
0250
0260
0270

5781=
5789=
3708=
6892=
4690=
3325=
2186=
3428=

2291=
2316=
3710=
6844=
4691=
3328=
2187=
3431=

5783=
2174
3712=
6893=
2179
3331=
5522=
3434=

2297=
2320=
2176
6845=
5669=
3334=
5670=
3437=

5785=
2175
7913=
6894=
2183
3337=
4719=
3440=

2303=
2330=
2177
2178
4692=
3340=
4722=
3443=

5787=
5790=
7914=
6895=
6533=
3343=
5523=
3446=

2308=
2334=
7616=
7617=
6534=
3346=
4723=
3449=

U
U
U
U
U
U
U
U

0300
0310
0320
0330
0340
0350
0360
0370

3585=
4013=
3605=
4356=
4787=
4729=
4883=
4513=

3589=
2184
3606=
4358=
4790=
4730=
4884=
2371

5527=
4015=
5831=
6692=
4791=
4731=
4885=
2230=

3591=
4018=
2217
4361=
2340
4732=
2363
2231=

7348=
4433=
2219
2278
4792=
4443=
4886=
4514=

7349=
7351=
3607=
3609=
4793=
4473=
4887=
4515=

5528=
4434=
5833=
6693=
2345
4444=
2366
4516=

3592=
3593=
5507=
5509=
4794=
4474=
4888=
4517=

U
U
U
U
U
U
U
U

0400
0410
0420
0430
0440
0450
0460
0470

4035:
4809=
5480=
5488=
5500=
5504=
6177=
7471=

2383
4705=
5481=
2421
6320=
2427
6179=
2721

2398=
4810=
5482=
2424
5501=
2430
5835=
5605=

2400=
4707=
5483=
5581=
6322=
5615=
5839=
5607=

2415=
2434=
5484=
2456=
5502=
2538=
6181=
7473=

2418=
2435=
5485=
2457=
2425
2541=
6183=
7475=

2385
2420
5486=
5489=
5503=
5505=
5842=
5608=

5525=
5526=
5487=
5582=
6323=
5616=
2591
5609=

U
U
U
U
U
U
U
U

0500
0510
0520
0530
0540
0550
0560
0570

5992=
6378=
5742=
5754=
6073=
5012=
6211=
5213=

5994=
2786
5743=
2906
6075=
5014=
6214=
5215=

299Q=
2791
5745=
2972
6077=
2985
6370=
3004

2994=
5728=
5746=
6817=
4184=
5018=
4204=
5216=

5996=
3020=
5748=
3039=
3070=
3074=
2988
5971=

5998=
3021=
5749=
3040=
3071=
3075=
6215=
5972=

2727
6379=
5751=
5755=
6080=
5935=
6371=
5974=

6000=
5729=
5752=
6819=
4185=
5936=
4206=
5977=

T10KI.MCR[10.1141]

!

a
~

"

i
i

!

•.
I5
!l

.;

~
I

~

I
I

i

8

I
I:

~

~

~,
Ucode Loc'n

0

U
U
U
U
U
U
U
U

0000
0010
0020
0030
0040
0050
0060
0070

2148:
2181=
3630=
3558=
2353:
2406:
3828=
4751=

U
U
U
U
U
U
U
U

0100
0110
0120
0130
0140
0150
0160
0170

U
U
U
U
U
U
U
U

11: 45 11-AUG-1984

MICRO 31(254)

Page 310

2

3

4

5

KS10 MICROCODE V124. 27-JUL-84
location I Line Number Index
7
6

6220=
5235=
6229=
3009
6359=
6023=
6476=
6485=

3087=
3007
6233=
5795=
3113=
3023
4971=
5202=

3088=
5236=
4227=
5797=
3115=
6025=
6479=
6488=

3006
3094=
3100=
3107=
3142=
6461=
4980=
5284=

6221=
3096=
3102=
3109=
3143=
6462=
6481=
6491=

6577=
6169=·
6234=
6376=
3012
6463=
4981=
5285=

6578=
6172=
4229=
6377=
6360=
6464=
6483=
6493=

6554=
6501=
5426=
5638=
6599=
6039=
6624=
7419=

3041
6503=
6768=
6782=
6601=
6041=
6625=
7420=

6558=
6505=
5427=
5643=
3146=
6043=
3452=
7421=

6560=
6508=
6770=
6786=
3148=
6044=
3453=
7422=

6561=
6509=
5428=
5642=
3388=
6807=
3456=
7423=

6564=
6511 =
6774=
6790=
3389=
6810='
3457=
7424=

3042
6730=
5429=
5644=
6603=
6812=
6626=
7425=

6566=
6731=
6778=
6794=
3068
6814=
3076
7426=

1000
1010
1020
1030
1040
1050
1060
1070

6083=
3577=
6125=
6192=
6726=
7302=
8216=
8228=

6084=
3578=
6127=
6194=
6727=
7304=
8218=
8230=

3077
5655=
6128=
6195=
6728=
7305=
5662=
8232=

6085=
7561=
3111
3140
3299
3405
8222=
8234=

6116=
3582=
3626=
3639=
7280=
5716=
3553
7686=

6118=
3583=
3627=
3640=
7283=
7658=
8224=
7689=

6119=
5656=
3116
3298
3404
5717=
5667=
7692=

3091
7563=
7589=
7590=
7285=
7660=
8226=
7694=

1100
1110
1120
1130
1140
1150
1160
1170

8765=
8781=
3656=
3778=
3990=
4104=
4152=
4319=

8767=
8782=
3660=
3783=
3992=
4105=
4153=
4321=

8769=
8783=
3696=
3786=
3995=
4122=
4154=
4346=

8771=
8785=
3700=
3788=
3999=
4123=
4156=
4349=

8773=
8737=
3732=
3792=
4089=
4128=
4209=
4367=

8775=
8738=
3736=
3793=
4090=
4129=
4210=
4371=

8777=
8739=
3757=
3945=
4099=
4131=
4217=
4373=

8779=
3574
3760=
3955=
4101=
4132=
4218=
4375=

U 1200
U 1210
U 1220
U 1230
U 1240
U 1250
U 1260
U 1270

4389=
4422=
4453=
4534=
4580=
4623=
4960=
5060=

4391=
4423=
4454=
4535=
4583=
4624=
4962=
5063=

4393=
4426=
4463=
4541=
4597=
4639=
4965=
5096=

4394=
4427=
4464=
4542=
4601=
4641=
4966=
5098=

4403=
4428=
4481=
4551=
4613=
4645=
4996=
5124=

4404=
4429=
4482=
4552=
4614=
4646=
4997=
5131=

4419=
4437=
4532=
4555=
4618=
4941=
5031=
5135=

4420=
4438=
4533=
4556=
4619=
4944=
5033=
5138=

U 1300
U 1310
U 1320

5140=
5289=
5348=
5364=
5404=
5445=
5511 =
5562=

5142=
5290=
5349=
5365=
5405=
5446=
5512=
5563=

5147=
5293=
5351=
5389=
5412=
5447=
5513=
5570=

5152=
5294=
5352=
5390=
5413=
5449=
5514=
,5571=

5164=
5298=
5357=
5393=
5434=
5492=
5551=
5612=

5165=
5299=
5358=
5394=
5435=
5493=
5553=
5613=

5249=
5318=
,5360=
5396=
5438=
5496=
5556=
5630=

5250=
5319=
5361=
5397=
5439=
5498=
5558=
5631=

T10KI.MCR[10.1141]

~
~

z

I0

~
~
~

'i.

1
."

~

~

-!
~
.~

~

~
11

~

iI

"

Ucode Loc'n

0

U
U
U
U
U
U
U
U

0600
0610
0620
0630
0640
0650
0660
0670

6217=
5233=
6228=
5793=
6357=
6021=
4970=
5201=

U
U
U
U
U
U
U
U

0700
0710
0720
0730
0740
0750
0760
0770

U
U
U
U
U
U
U
U
U
U
U
U
U
U
U
U

11

!

U 1330
U 1340
U 1350
U 1360

U 1370

,,c

(

11:45 11-AUG-1984

MICRO 31(254 )

Page 311

,

'-

j

~.

T10KI.MCR[10,1141]
Ucode Loc'n

0

U
U
U
U
U
U
U
U

1400
1410
1420
1430
1440
1450
1460
1470

2227:
2690:
2737:
2756:
3472:
2885:
7542:
3138:

U
U
U
U
U
U
U
U

1500
1510
1520
1530
1540
1550
1560
1570

U
U
U
U
U
U
U
U

I

U
U
U
U

,.i

U
U
U
U

~

fJ

z

I;

i0

If

!i
~

-.

J
·1

.ll

f

Ii

1

!

11: 45 11-AUG-1984

2228:
2715:
2739:
3403:
2803:
2895:
7546:
3139:

3524:
3536:
3600:
3805:
4057:
5317:

3525:
3537:
3650:
3770:
4071 :
4144:

1600
1610
1620
1630
1640
1650
1660
1670

4315:
4688:
4696:
4710:
5112 :
7793:
3930:

4324:
3486:
5409:
5627:
4117 :
7799:
3918:

1700
1710
1720
1730
1740
1750
1760
1770

7036:
7005:
7013:
7018:
5879:
5893:
7208:
7220:

u 2000
U 2010
U 2020

U 2030
2040
2050
2060
2070

U
U
U
U

U 2100
U 2110

U 2120
U 2130

U 2140
U 2150
U 2160
U 2170

~.

~,

~
MICRO 31(254)

2

3

4

5

2568:
2717:
2742:
2758:
2813:
2905:
3016:
3268:

2571 :
2720:
2749:
2760:
2823:
2916:
7543:
3270:

2574:
2723:
2744:
2770:
2838:
2926:
3066:
3273:

2578:
2726:
2746:

3528:
3540:
3677:
8193:

2484:
2516:
3529:
3541 :
3690:
3825:

3527:
3539:
3500:'
3812:

KS10 MICROCODE V124. 27-uUL-84
Location I Line Number Index
7
6
2588:
2729:
2751 :
2771 :
2865:
2946:
3085:
3369:

2688:
2735:
2753:
3419:
2875:
4084:
5911 :
3387:

2489:
2521 :
3532:
3542:
3719:
3839:
2780:

2495:
2527:
3533:
3543:
3752:
3940:
4167:
5279:

2533:
3534:
3544:
3510:
4030:
2785:
5282:

2855:
2936:
3067:
3276:

5345:
2966:
2980:
3001 :
5114 :
7802:
3920:

2969:
2982:
3003:
5117 :
7804:
3922:

7531 :
4700:
4712:
7557:
7806:
3924:

4096:
4701 :
5543:

5388:
5425:
5686:

7808:
3932:

7810:
3926:

7532:
4385:
5546:
7559:
7812:
3928:

6999:
7006:
7186:
7019:
5881 :
5895:
7210:
7224:

7000:
7007:
7376:
7020:
5883:

7001 :
7008:
7102:
7021 :
5885:

7083:
7328:
7177:
7023:

7002:
7009:
7014:
7024:
5889:

7003:
7010:
7015:
7025:
5891 :

7212:
7228:

7214:
7232:

7049:
7331 :
7146:
7022:
5887:
7824:
7291 :
7275:

7832:
7323:
7315:

7216:
7236:

7217:
7239:

5652=
5703=
5720=
5774=
5913=
5965=
6034=
6094=

5653=
5704=
5982=
5776=
5956=
5966=
6036=
6096=

5673=
5712=
5721=
5801=
5938=
6008=
6047=
6098=

5674=
5713=
5983=
5802=
5940=
6010=
6049=
6099=

5676=·
5714='
5764='
5809= \
5915=
6014=
6058=
6095=

5678=
5715=
5765=
5810=
5957=
6015=
6161=
6097=

5693=
5731=
5769=
5819=
5960=
6029=
6059=
6102=

5694=
5732=
5770=
5820=
5963=
6031=
6162=
6104=

6112=
6185=
6252=
6269=
6295=
6327=
6383=
6399=

6113=
6189=
6253=
6271=
6304=
6328=
6384=
6400=

6139=
6199=
6256=
6279=
6297=
6332=
6388=
6417=

6140=
6200=
6257=
6280=
6306=
6333=
6389=
6418=

6146=
6203=
6260=
6290=
6308=
6338=
6395=
6421=

6149=
6205=
6261=
6291=
6309=
6339=
6396=
6551=

6164=
6239=
6266=
6300=
6314=
6341=
6397=
6423=

6167=
6240=
6268=
6302=
6317=
6345=
6398=
6552=

Page 312

2

3

4

.5

KS10 MICROCODE V124, 27-JUL-84
Location / Line Number Index
7
6

6425=
3579
6500=
6594=
6665=
6757=
6854=
6927=

6431=
6466=
6524=
6616=
6667=
6801=
6869=
6934=

6432=
6467=
6527=
6618=
6669=
6803=
6872=
6935=

6437=
6454=
6541=
6620=
6696=
6823=
6874=
6942=

6439=
3612
6542=
6621=
6697=
6825=
6886=
6943=

6458=
6472=
6571=
6638=
6750=
6840=
6875=
6945=

6459=
6473=
6572=
6640=
6751=
6841=
6887=
6946=

6972=
7062=
7121=
7179=
7256=
7332=
7342=
7387=

6980=
7063=
7126=
7180=
7930=
7333=
7343=
7388=

6989=
7064=
7133=
7187=
7258=
7334=
7344=
7392=

6990=
7065=
7136=
7190=
7931=
7335=
7345=
7394=

7057=
7067=
7148=
7196=
7264'"
7338=
7346=
7400=

7058=
7068=
7151=
7265'"
7339=
7347=
7402=

7059=
7111 =
7154=
7253=
7296'"
7340=
7379=
7441=

7060=
7114=
7155=
7254=
7297'"
7341=
7381=
7444=

2400
2410
2420
2430
2440
2450
2460
2470

7445'"
7489=
7518'"
7601=
7633=
7665=
7847=
7933=

7446=
7491=
7519=
7603=
7635=
7666=
7848=
7935=

7457'"
7493=
7576=
7614=
7646=
7672=
7859=
7934=

7458=
7495=
7577=
7615=
7647=
7673=
7860=
7936=

7468=
7499=
7585=
7621'"
7650=
7700=
7863=
7937=

7469=
7500=
7588=
7622'"
7652=
7701=
7867=
7940=

7485=
7514=
7595'"
7627'"
7655=
7706=
7920=
7938=

7487=
7515=
7597=
7629=
7656=
7707=
7922=
7941=

U
U
U
U
U
U
U
U

2500
2510
2520
2530
2540
2550
2560
2570

7943=
7954=
8265=
8531=
8674=
8704=
8749=
8791=

7946=
3615
8267=
8533=
8677=
8706=
8751=
8792=

7944=
7955=
8497=
8536=
8687=
8710=
8753=
8797=

7947=
3617
8499=
8537=
8689=
8712=
8754=
8808=

7949=
8200=
8503=
8654=
8693=
8716=
8757=
8817=

7952=
8201=
8506'"
8659=
8696=
8717=
8758=
8818=

7950=
8251=
8513=
8664=
8699=
8726=
8760=
3621

7953=
8254=
8515=
8667=
8700=
8729=
3619
3641

U
U
U
U
U
U
U
U

2600
2610
2620
2630
2640
2650
2660
2670

3663
3773
3845
4026
4145
4208
4224
4328

3685
3808
3942
4038
4146
4211
4231
4351

3703
3814
3984
4040
4150
4212
4247
4353

3722
3816
3985
4044
4168
4213
4250
4387

3727
3820
3987
4092
4170
4214
4262
4396

3741
3826
4001
4103
4187
4216
4317
4397

3746
3840
4006
4118
4188
4222
4325
4400

3756
3842
4023
4126
4199
4223
4326
4405

U
U
U
U

2700
2710
2720
2730
2740
2750
2760
2770

4406
4452
4470
4544
4561
4628
4744
4818

4408
4456
4476
4545
4591
4635
4746
4821

4432
4458
4479
4546
4609
4637
4767
4822

4435
4459
4484
4547
4611
4644
4771
4823

4436
4461
4492
4548
4616
4715
4804
4890

4439
4466
4531
4553
4621
4716
4813
4891

4445
4467
4537
4557
4626
4735
4816
4894

4451
4469
4538
4558
4627
4736
4817
4897

Tl0KI.MCR[10,l141]
Ucode Loc'n

0

U
U
U
U
U
U
U
U

2200
2210
2220
2230
2240
2250
2260
2270

6424=
6453=
6499=
6592=
6661=
6755=
6850=
6926=

U
U
U
U
U
U
U
U

2300
2310
2320
2330
2340
2350
2360
2370

U
U
U
U
U
U
U
U

U
U
U
U

(

11:45 ll-AUG-1984

MICRO 31(254)

719i=

Page 313

T10KI.MCR[10,1141]
Ucode Loc/n

.~

~..

~
11: 45

0

2

3

4

5

KS10 MICROCOOE V124, 27-JUL-84
Location I Line Number Index
6
7

11-AUG-1984

MICRO 31(254)

U 3000
U 3010
U 3020
U 3030
U 3040
U 3050
U 3060
U 3070

4898
4912
4975
5039
5102
5170
5223
5243

4899
4937
4976
5051
5104
5174
5225
5246

4900
4947
4977
5053
5105
5176
5227
5247

4902
4948
4983
5056
5119
5178
5228
5248

4905
4951
4991
5065
5134
5206
5229
5253

4908
4953
5021
5092
5157
5219
5231
5286

4909
4955
5035
5099
5159
5221
5240
5287

4910
4974
5038
5100
5162
5222
5242
5288

U 3100
U 3110
U 3120
U 3130
U 3140
U 3150
U 3160
U 3170

5296
5401
5568
5600
5657
5706
5806
5979

5320
5410
5569
5602
5671
5709
5812
5980

5325
5411
5572
5617
5672
5724
5917
5985

5328
5431
5577
5632
5675
5758
5919
6006

5353
5515
5579
5633
5695
5761
5921
6012

5354
5544
5584
5637
5699
5771
5922
6013

5355
5549
5586
5645
5702
5799
5930
6016

5378
5564
5587
5651
5705
5804
5968
6028

U 3200
U 3210
U 3220
U 3230
U 3240
U 3250
U 3260
U 3270

6045
6069
6131
6155
6245
6292
6350
6380

6052
6070
6132
6157
6247
6293
6351
6381

6055
6087
6133
6159
6255
6312
6352
6382

6056
6088
6134
6173
6258
6334
6353
6385

6057
6114
6135
6198
6263
6336
6356
6386

6060
6121
6136
6201
6265
6346
6362
6387

6061
6122
6141
6224
6272
6347
6367
6402

6063
6123
6142
6242
6281
6349
6374
6406

U
U
U
U
U
U
U
U

3300
3310
3320
3330
3340
3350
3360
3370

6426
6520
6590
6651
6677
6843
6898
6948

6428
.6522
6608
6652
6678
6846
6912
6950

6433
6544
6629
6653
6695
6848
6914
6952

6434
6545
6631
6655
6736
6867
6919
6953

6455
6581
6641
6658
6739
6885
6929
6954

6456
6587
6644
6670
6744
6888
6930
6956

6470
6588
6649
6673
6746
6890
6938
6959

6519
6589
6650
6675
6821
6897
6940
6963

U
U
U
U
U
U
U

3400
3410
3420
3430
3440
3450
3460
3470

6965
7052
7077
7105
7156
7225
7246
7270

6983
7053
7080
7117
7169
7226
7248
7277

6986
7055
7085
7129
7183
7229
7249
7288

7027
7056
7088
7138
7193
7230
7250
7292

7028
7061
7091
7139
7194
7233
7259
7293

7030
7070
7092
7143
7198
7234
7261
7295

7031
7072
7094
7152
7221
7237
7266
7299

7051
7075
7096
7153
7222
7238
7267
7307

U
U
U
U
U
U
U
U

3500
3510
3520
3530
:3540
3550
3560
3570

7308
7360
7404
7433
7456
7619
7682
7725

7309
7361
7407
7436
7460
7648
7697
7727

7316
7363
7427
7437
7483
7663
7713
7729

7317
7369
7428
7438
7497
7664
7715
7731

7319
7370
7429
7448
7501
7668
7717
7827

7336
7377
7430
7450
7504
7675
7719
7834

7337
7382
7431
7453
7517
6907:
7721
7845

7359
7395
7432
7455
7566
6908:
7723
7918

U

i

i

Page 314

T10KI.MCR[10,1141]
Ucode Loc'n

0

U
U
U
U
U
U
U
U

3600
3610
3620
3630
3640
3650
3660
3670

7924
7951
8198
8240
8507
8529
8679
8745

U
U
U
U
U

3700 - 3737 Unused
6093:
3740
3750
3760
3770

11: 45 11-AUG-1984

2

3

4

5

KS10 MICROCODE V124, 27-JUL-84
Location / Line Number Index
6
7

7926
7956
8199
8244
8510
8530
8681
8755

7929
7957
8208
8247
8511 •
8538
8697
8794

7932
7958
8209
8248
8517
8539
8721
8811

7939
7960
8210
8259
8519
8540
8724
8815

7942
8194
8212
8261
8524
8543
8731
8831

7945
8196
8238
8280
8526
8547
8733
8833

6450:
6451 :

6154:

6287:

5953:
5954:

No errors detected
End of microcode assembly
318 pages of 1 i st i ng
Used 47.06 seconds, 116 pages of core
Symbol table: 30P
Text strings: 9P
Loc'n assignment: 18P
Cross reference: 51P

MICRO 31(254)

7948
8197
8239
8492
8528
8650
8742

8207:

Page 315

~
~

~

i
i

i

I;:;

•

~

"j

"~
5

a

II
I

.
~

I

I
.t

/



---

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:54:14-08:00
Modify Date                     : 2013:12:03 06:05:39-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:05:39-08:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:5cb5fb1f-b487-4162-813b-fcbe8fc64705
Instance ID                     : uuid:584c5820-8d9c-7845-92d0-873f5cc74deb
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 320

EXIF Metadata provided by EXIF.tools