Digital PDFs

XX-714CF-E7

2000

118 pages

Original

6.9MB

Document:	FPP12 Instruction Test 2A
Order Number:	XX-714CF-E7
Revision:	0
Pages:	118
Original Filename:	http://bitsavers.org/pdf/dec/pdp12/diagnostics_set2/FPP12_Instruction_Test_2A.pdf

OCR Text

11.

rPP-12 INS1RUCTION TEST 2A IS OESIGNEO TO TEST ALL rpP IOTS,
roRcE ANO TEST ALL STATUS CONDITIONS, TEST ALL COMMAND REGISTEq
ruNCTlONS ANO EXECUTE ALL ~ON•MEMORY ALTERING lNSTRUcTio~s o~
SELECTED DATA PATTERNS, TWIS PROGRAM REQUIRES NO TELETYPE
COMMUNlCATlONS AS ERROR MAL.TS ARE USED EXCLUSIVELY• THE ASSUMPTION IS MACE TMAT T~t POP•I OR PDP-12 USED IN CONJUNCTION WITH
TME rPP is A SOLlO• ERROR rRtE MACMINE.
/2,

RtOUlREHtN!S

/2,1

EQUIPMENT
1)
3)

/2,2

4 ,PP•12 rLOATING POINT PROCESSOR

~ SUNCARO BASlt POP·I O.A POP•12
c<A~ Al'A·~3 f£L£~YJE OR EQUIVALENT

STORAGE
TMlS PROGRAM IS ·DEllGNtD TO AUN lN MEMORY BANK 0 ANO IT OCCUPIES
VIRTUALLY ·ALL BANK e NOT OCCUPIED RY TM£ BINARY AND RIM LOADERS,

12.~

•'

ABSTRACT

~·
\

PRtLIMlNARY PROGRAMS
ALL 'DP·I AND/OR PDP•12 MOOE BASIC INSTRUCTION DIAGNOSTICS ANO
EXER.ClSERS MUST M.4VE BEEN SUCCESS,ULLY ~UN PRIOR TO RUNNING
TME P~OGAAM,

/3,

L~ADING

/3,1

Rtrt,A T.O l.OADlNG ,AOCtOURU F'OR PAATICUL.AR MACHINE BEING USEO
n' ,OP.•811 ti. OR :tE,

/3,2

MtTMOD F'OR ,DP•12

PROCEDURE

TMIS PROGR•M MVST IE LOADED WITH TME BINARY LOADER, Ir YOU ARE
UN,AMll.lAR WlTM THE PROPER BINARY l.OADlNG PROCEDURES REFER TO
APPENDIX A or TMIS DOCUMENT, OTHERWISE PROCEOE WITH TME
'01.LOWINOS
A)

SET THE TEl.ETVPE READER SWtTCM TO FREE OR 00 NOTHING Ir A
MlGM SPEED REAPER IS BttNG USED

OPEN T~E TEL.ETYPE REACtR ANO INSERT TME PROGRAM TAPE SO
TMAT TM[ ARROWS ON TME TAPE ARE VISIBLE ANO POINTING
IN THE DIRECTION or TAPE MOVEMENT.

Cl.OSt THE READER ANO SET THE READER SWITCM TO START,

SET THE TELETYPE FRONT PANEL SWITCH TO START,

SET THE LErT SW!TCMES TO 77?7,

SET THE RIGMT SWITCHES TO 4000J 0000 rOR MlGM SPEED READER

SET TMt MOOE SWlTCM TO 8 MOOE,

......
w
w

"" .....at
...rx
.... •....
IX

.....
at

en
llJ

D..

w
a:
a..

:K"

~
J)

WHEN T~E PROGRAM TAPE ~AS BEEN READ IN T~E ACCUMULATOR MUST
BE 0~0e, 1r IT IS NOT, A READ•IN ERROR ~AS OCCURRED AND ONE
MIGHT TRV R[LOAD!NG THE BlNARV LOADER,
SEE APPENDIX A•

K)
14,

REMOVE TME PROGRAM TAPE FROM THE READER,

STARTING PROCEDURE
THIS PRELI~INARV SET UP PROC£0URE IS CRITICAL AND ANY OMJSSION
WILL RESULT IN AN ERROR,

SET THE SWITCH R£GIST£R TO 0001 tr FPP IS USEO WITH A POP-BI
OTHERWISE StT EQUAL TO 00001

SET THE MODE SWITCH TO a-MOOE

DEPRESS l/0 PRESET

OEPR[SS START 20

THE PROGRAM tS RUNNING,
/4,1

CONTROL SWITCH SETTINGS
ONE lNtTlAL SWITCH SETTING IS USEC BY TME PROGRAM TO DETERMINE
WHETHER OR NOT TME COMPUTER USEC WITM TME FPP-12 IS A POP~8t,
SR11•0
SR11•1

NOT A PDP•ll
POP•8l

tr SR11=1 TM£ PROGRAM WILL S~IP TEIT T17 CC,P, LOCKOUT TEST)
WM1CM '•tLS ON A ,OP•81 DUE TO 01rrERENCES IN THE OATA BREAK
lNTERrAc£,
''·

MESSAGE rORMAT

1)
2)

TMtRE ARE NO tRROA TyPtOUTS IN TME PROGRAM. TME DIAGNOSTIC
lS O' TM[ FORM or A BASIC INSTRUCTION T[ST ANO ERROR MALTS
MAVE BEEN USEC EXCLUSIVELY WITH • WELL cocUMENTto LISTING.
TME TELETYPE BELL RINGS AFTER EVERY 100 PASSES THROUGH THE
PROGRA~.

/6,

MAlNTENANCE INSTRUCTIONS

PPP-12 MAl~TENANCE INSTRUCTIONS ARE NOT US£D IN THE PROGRAM,

•

.APPENDIX A
POP•8 MODE PERfORATEO • TAPE 1.0ADER

REAOIN MOO~ LOADER
TME REAOIN MODE CRIM) LOADER lS A MINIMUM LENGTM, BASIC.
PERrORATtO·TAPE PROGRAM rOR T~E 33 ASR. IT IS INITIALLY STORED
lN MEMORY BY MANUAL USE Of TME OPERATOR CONSOLE KEYS ANO
SWlTCMES, TME 1.0AOER IS PERMANENTLY STOREO IN 18 LOCATIONS
or PAGE 37,
TME RIM LOAOER CAN ONLY BE USED IN CONJUNCTION WITM THE 33ASR
RtAOtR <NOT TME MlGM•SPE£0 P£Rf0RATEO-TAPE READER), BECAUSE
A TAPE IN RIM FORMAT IS, IN £FfECT1 TWICE AS 1.0NG AS IT NEED BE1
tT IS SUGGESTED TMAT TME RlM LOADER BE USED ONLY TO READ TME
BINARY 1.0ACER WHEN USING TM£ 33 ASR. CNOTEt SOME POP•12
DIAGNOSTIC PROGRAM TAPES ARE IN RIM roRMAT),
TME COMPLETE POP•12 RJM LOADER CSA; 775~ IS AS rOLL.OWSI)
ABS01.UT£
AOORESS

OCHL
CONTENT

7756.
77!J7,

6"32

INSTRUCTION
I i!

TAG

COMMENTS

·-------···-·-·-····-------··----··---·--·------·-·-------------··--·-nu,

7161,

7162,

7764,
776',
7766,
1767,
1719 I
7771,
7772,
7773,

7He

nn,

7774,

7775,
7176.
7177'

BEG,

6H1
U'7
6036

KRB
CLL. RTL
RTL.
SPA
JMP llEG•1
RTL.
KS'
JMP•1

13'7
7016

5367

61134

t<RS

SNL.

74U
3776

OCA 1 TEMP

H?6

!XXX

KSr
JMfl•1

ne•

H56

l<CC

TEMP,

OCA TEMP
JMP &EG
21

JMP X

/CLEAR AC ANO Fi.AG
ISKJP Ir r~AG • 1
/L.OOKING roR CHARACTER
/READ Burn:~
/CMANNEL 8 IN •co
/C~ECKING FOR L.£AO£R
1rouNo L.£ADER
/OK, CHANNEL. 7 IN Lt~K
/READ• 00 NOT CLEAR
/CMECKING roR ADDRESS
/STORE CONTENT
/STORE 400RESS
/NEXT WORD
ITEM!' STORAGE
/JMP START or 6JN
L.OADER

)

•

PLACING TM[ RIM LOAO[R I~ eORE ~EMORY BY WAY or TME OPERATOR
CONSOLE KEYS ANO SWITCMES !S ACCOMPLISHED AS rCLLOWS:
A)

SET TH[ STARTING ADDRESS 7756 IN TME LErT Sw!~CMES·

SET TM£ rIRST INSTRUCTION (6032> IN THE ~!GHT S~ITCHES,

PR£SS TME rILL SWITCH,

PRESS THE rILL STEP SWITCH

£>

SET THE NEXT INSTRUCTION (60311 IN THE RIGHT SWITCHES,

PRESS TME FILL STEP SWITCH,

REPEAT 1TEPS 0 ANO E UNTIL ALL 16 INSTRUCTIONS MAVE BEEN
~£POJlT£O,

TO LOAO A TAPE IN RIM roRMAT, PL4Ct THE TAPE [N THE READER. SET
LErT S~ITCHES TO TME ST•~TING ADDRESS 7756 or THE RIM
LOADER <NO! or TM[ PROGRAM BEING R£AOl1 PRESS TMt ST4RT LS KEY,
AND START TMC TELCTVPE REAOE~t
T~[

•

trPP-12

JNSTRUCTIO~

TEST 2A

OUl.10

VU3

'7•0CT•71

Ut58

PAGE 1

trPP•12 l~STRUCTION TEST 2A
/COPYR!GMT 1970, OIGIT4L EQUIPMENT CORP,, MAYNAR0 1 MASS, 01754
/MA!NTAINER·OIAGNOSTIC GROOP
/AUTMOR·WAl.TER ~ANTER
I

/OCTOBER 1 1 1971 R£VlSION
I

/TMlS PROGRAM CONTAINS NO ERROR TYPEOUT MESSAGES
ION AN ERROR OCCUR~ANCE TH[ PROGRAM MAI.TS
/TME LlSTlNG or TMt PROGRAM ~UST BE RE'ERENCED
/TO OETERMJNE TM[ NATURE or TME ERROR
I

/SCOPE LOOPS ~AV BE !NSERTEO 4T THE USERS OlSCRETtON
/TO LOOP ON ANY TEST OR TEST rAlLURE
I

/DEPRESS SWITCH 11 tr POP•8!
/STARTING l.OCAT!ON 21 OR 210 VIA 1.sw
I

/TME PROGRAM W!LL RING THE 'ELETYPC SELL EVERY 100 OCTAL EXECUTIONS
ABOUT EVERY 3 MINUTES

10~

ICOR£ MAP

It COO£ LOC 2ee TO LOC 776

/rPP COD£ LOC '777 TO LOC 1117
18 COOE LOC 1220 TO LOC 1717
/SERVICE ROUTINES 1.0C 1720•1777
/8 CODE LOC 2100 TO LOC 2424
IVPP CODE LOC 2525
18 CODE LOC 2526 TO 3777
/'PP ACTIVE PARAMETER TABI.! LOC 4018 TO LOC 4097
18 CODE L~C 4911 TO LOC 5291
lrPP CODE LOC 5152
/8 coor LOC ,253 TO 1777
1rPP BASE AEGlSTEA T4SLE LOC 6000 TO LOC 6177
18 COOE AREA LOC 6201 TO LOC 6777
/FP' INSTRUCTION AtGlSTERS LOC 7010 TO LOC 7107
/8 CODE ARE LOC 7010 TO LOC 7577
/UNUSED LOCATION 7601 TO LOC 7777
I

•
~.

"
-~-

('C"'\I

•

/~PP-12

~'!
lNSTRUCT10~

Dl AL.10

TEST 2A
/PAGE

VH3

7-0cT-71

e CO~TAINS SPEeIAL REG!STE~S AND CONSTANTS
PMODE
•0

00e0

/FFP-12 INSTRUCTION TEST 2

/10T LIST
6551
6554
6~53

655a

6555

rPINT=6551
FP~LT•6554

rPCOM•6553
rPICL•655i
rPST•6555

6556

rPRST•6556

6557
0000
0002

rPlST•6557
rtXlT•0001
rcLA•0t02
'LDA•0000
rNCG•0003
rNORM•0004
rA00•1000
rSU8•2100
rMUL•4000

00ee

00e3
00e4

1000
2080
4000

30ee

0010
1180

0009

00t6
1118
00e1
3000
•0e0

50i0
6000

7000

1015!

rorv•!aee
AL~10018

SETX•1108
STAR,r•0tlf
STARTD•8116
StTS11110
rPAUSt•0001
TRAP1•3000
TRAP2•4000
TRAP3•5001
TRAP4•6001
TRAP5•7000

-------~--~-~--

PAGE 2

•

/F'PP·12

!NSTRUCTlO~

TEST 2A

Cl Al.U

V01!13

7•0CT· '1

Ul158

PAGE 3

/rPP·12 INSTRUCTION TEST 2
/PAGE 0 CONTAINS SPECIAL REGISTERS ANO CO~STANTS

I
I

PMOOE

00£0

Z21H

011120

HU
llJH2
rll013
0H4

'4~2

rll
JMS I
!NSERV

1:,.

rllrlll!S

1727
11000
0020
17~2

.•1

CNTR,
rll
lNF'LAG, 0
L.APT,
LAftT1

/LINC TO INTERRUPT SERVICE ROUTJNE
/USED AS AN I MODE COUNTER
/F'LAG TO 8 PROGRAM INDICATING TMAT rPP

l~TERRUPTEO

/LINC To LOAD F'lXEO APT TABLE AOUTI~E

IJMP TO START or PROGRAM
U221

ems

-Zrll

,.21

0121

H~S

BU2

S,7~2

JM' I

START

CL.IA,

CLlR1

.•1

/STARTING LOCATION 2021
/LINC TO CLEAR F'PP INDEX AEGiSTERS ROUTINE

\'
,,.

'
"•i.

~,,_

:ti;;-

(

•

~/
/rPP-12

INSTRUCTIO~

TEST 2A

DIAt.Ul

V003

7·0CT-71

~
Ull58

PAGE 4

ICO"JSTANTS
e0n
0024

0025
0026
0027
003'!1
0031
0032
00:53
021:54
00,35
00~6

0037
0040
0041
0042
0043
0044
0045
0046
00'7
0050
00'1
0052
0053
21054
0055
00'6
""'
006"07
0061
0fll6 2
0063
0064
0065
0066
0067
1!1070

rl'3iZ0
'30iZl2!

77iZ0

U77

12e2
0021
00e2
00e3

00e4
00h
21€110

0014
002 0
0024
0026
0027
0030
0040
0041
0100

02~0

0207
02121

02~0

030
0d0
04h
04 2111
·~21

020
0770
0777

1000
10~1
10~2

100 :s
100

0
'JUM I
STATUS, 0
11e0
8ELL1
At.TR,
1117
1202
AL. TR1 I
I( 1 •
1
I( 2 I
2
3
I< 3'
4
!( 4'
I( 5'
1<10,
10
1<11,
11
I( 14,
14
I( 2 0,
20
1(24 I
24
1<26,
26
1(27 I
27
1<30,
30
I( 40,
d
1<41,
·~
!<1flleJ,
1H
I< 20fll ,
201
1<207,
20'1
2U
1<2101
250
1<250,
I( :s 61211
30
1<4001
401
1<01,
481
1<420"1
<4H
1(4211
421
52fll
1<5201
?7fll
1(770 I
1<777,
717
IO.llJH, 1HllJ
1(1fll011 10fll1
1(102121 1"02
1<1"93, 1"03
1<1005. 1'111215

"----~"~-'~

-~---

•<-~---

/FPP-12

!NSTRUCT!O~

0071
0a12

;,,a?3

00'14
00'15
00'16

10•2
1057
1077
1H1
1H3

1125

0077

1114

0100
0Ul1
0102
z1n
01"4
0105

1125
1121

1252
1777
20£0

20h
0106 nee

0101
01UJ
0111
0112
0113
0114

111'

11116
1117

~124

2i:! 10

2314
2'22
2'24
2525
2526
2735
~H0

11H

H!l6
3751

11122

F!i2

1121
012~

3777

TEST 2A
K111l42 1
K111l57,
1<1077.
1<11011
K1103,
1<1105.
1<11141
1(1125,
K11271
K12521
K1777,
1<2rllU,
1<2rlll1J1,
1<2100 I
1<2104,
1<22U,
1<23141
1<2522.
1<29241
1(2529,
1<252',
1<273',
1<UH1

1(33561
1<37511
1<37521
1<3777,

0 lAl.10

V003

10158

?•OCT•71

PAGE 5

1042
1057
1077
1U1
1103

11215
1114
1125

1127
1252
17"17
21H0
2001
211!10
2104
2210
2314
2522

2'24

2'25
2526

2735
3010

3356

37!i1
37'2
3717

,,,.
~\

...
--~

.. ,-

...

•

/FPP-12

INSTRUCT!O~

TEST 2A

D!AL10

0124

40£iZ'

;<4Z0Z,

4Z~0

0125

40£1
40£2
40e3
401Z4
40£5

1<4001.
K4Z021
;(4003,
!<4004,

4ezi

2ll26

0127
0130
0131
0132

0133
0134
0135
0136
h37
"141

014-1
0142
0143
014'4
010
0146
0141
015!0
e151
11'2

0153
0154
0155
0156
0157
0160
0161

eu2

"163
llJ164

0165
0166
0161
0171/J
0171
0172
0173
0174
0115
0176

ue6

ue1

4014
4015
42U
4210
4421
'630

4631
4760
5250

52!51
5252
5253
!J670

56?3
6000
6314
6735
700fll
70Zl
711.1~2

70~3

~4005,

1(4006,
!<41210?,
1<4014,
1<40151
1<42001
i( 4210,

1(4421,
1<46301

1(031 t
1(4760,
1(5250.
1<5251t
t<5252t
1<5253,
1(5670.
1<5673.

1(611JH,
1<63141
1<67351
1(7000 I
1<70011
1<70el21

1<1en,

70H

700 7
13;6

1<704,
t<?PJU1
1<7906.
K7llJllJ7'
1<7356,

17021

1<770~1

7751
1752

1<77511
1<77521

'1766

1<'17661

100 4
70~5

'1761

7770
1775

7776
?777

1<7767,
1<7710 I
1<77?!5,
K71761
K77'1?,

4002
40Z3

40214
4 ill0 5
4006
4037
4014
4015
4200
4-210

4421
4630
4631
4760
5250
5251
5252

52'3
5670
56'3
61H2
6314
6735
700Z
7001
7H2
7H3
7H4
7H5
7H6
1llJllJ'1

7356
7700
77!51
7752
7766
7'16 7
77?0
7775
7716
71'7

VU3

7•0C:T-71

10158

F'AGE 6

•
._.,.

:1
,I

/rPP-12

INSTRUc:TIO~

TEST 2A

o UL.11il

Vlillil3

?•OcT-?1

UJ 158

PAGE 1

I
02e0

0202

6552
1300
6553

1!1204

6556
7440

i2l200
0201

rnn

0211!5

•2210
START,

74~2

/rERO THE F'PP WORL.0

F'P?CL.
CL.A C:L.L
F'PCOM
f'PRST
SU
Hl.T

/L.0AO CMO REGISTER WITH ~ER0 1 S
/READ FPP STATUS INTO AC
/SKIP IF' F'PP STATUS JS ~ERO
/ERROR • INCORRECT STATUS IN AC

ITl•TEST rpp INTERRUPT REQUEST F'L.AG RESET
0206

lil2Ql7
m2u

6551
,211

T11

74~2

F'PtNT
JMP
Ml.T

/SKIP ON INTERRUPT R£QUEST F'LAG SET
• •2

/ERRQR•rl.AG SHOULD NOT BE SET

/T2·£XECUTE A F'EXIT INSTRUCTION F'ROM LOC 10021
21211
0212
11213

1!1214
1!21'
1!122.6
1!217

m2u

0221
111222
212n
0224
0225
il226

0227

m2u

6552
440

1176
H04

11 ~3
1003
S,054
65!.3
60h

nee

.,,,
11~4

74~2
11lil~3

9226
60~2

T2,

F'PICI.

TAO
TAO

TAO

OCA

F'PCOM
ION
Cl.A Cl.L
F'FtST
Ml.T
fH

JMP

1or

THE F'PP WORl.0
/I.CAO APT IMAGE AREA
/SET INF'l.AG EQUAi. TO 7777
/TO TEST ~ERO IF' INTERRUPT OCCURS
/SET UP A OELAY LOOP
/USING LOCATION CNTR
/BITS 4.7 SET IN AC
/l.0AO CMO REGISTER F'ROM AC
/TURN INTERRUPTS ON
/~ERO

I.APT
K"/777
INF'LAG
K7771!1
CNTR
K360

JMS I

CNTR
,•1

/APT TABl.E POINTER TO AC
/l.0AO AQRS REGISTER ANO START F'PP
/£RRoR•RUN rr SET OR rPP PWR err OR NO F'PP UNIT
/DELAY TO ALLOW F'PP TO INTERRUPT
/TURN INTERRUPTS o,r

/EXAMINE APT TABLE F'OR CORRECT OATA
02U
21232
1!1233
0234
023!5
0236

0237
02'40
0241
0242
0243
0244
0245

....
L

1H0
1U3
'~~ii
74"2

1n2
7440
14~2

1531
7440
7402
1530
?440
74£2

Cl.A Cl.L
1<400?
TAO I

SIA

Hl.T
TAO I

S!A

Hl.T
TAO I
Si!A
Hl.T
TAO I
StA

HLT

K4H6
K4005
K4004

/READ LSW or fAC rROM APT TABLE INTO AC

/SKIP IF' I.SW Of r4c EQUALS lCRO
/ERROR
/REAO MSW or F'AC PROM APT TABL£ INTO AC
/SKIP IF' MSW or rAC EQUALS lERO
/ERROR
/READ EXPONENT or F'AC FROM APT TABLE INTO AC
/SKIP IF' EXPONENT or F'AC EQUALS ~£RO
/ERROR
/REAO OPERAND ADDRESS F'ROM APT TABLE INTO AC
/SKIP IF' OPERANO AOORESS EQUALS ~ERO
/ERROR

....
•

....
""

/F'PP-12

INSTRUCT!O~

0246
0247
0250
0251
0252
0253
0254
0255
0256
0251
02u
0 2&:1
0262
0t'8'l
0264

TEST 2A

1527
7041
j,152
7440
14e2
1526
7041

TAO I

K4011l3

/READ P0 FROM APT TABl.E INTO AC

TAO

K6001Zi

/P0 EQUAL e:lH'lr21
!YES-SK IP
/ERROR
/READ Xr21 F'ROM APT TABLE INTO AC

Hl.T
TAO I

K4002

TAO

K7000

7441!1

HI. T
TAO I
Cl A
TAO

1525
7041

10'65

7440
1d2

PAGE 8

V003

3,155

10: 58

7-0c:T.71

D1AL1e

K4001
KUl01

SH
l·H. T

/)(0 EQUAL 7000
/YES-SKIP
/ERROR
/READ Fpc F'ROM APT TABLE INTO AC
/F'PC EQUAL TO 11!101
/YES - SKIP
/ERROR

/EXAMINE l.OCATION INF'LAG TO DETERMINE THAT A FPP INTERRUPT TO THE CP DID NOT OCCuRE
0265

10~4

0266

711l40

0267
0271!1

74140

TAO
CMA
SU
Ml.T

74~2

INF'LAG

/WILL EQUAL !ERO IF' AN INTERRUPT OCCURRED
/YES - SKIP
/ERROR - INTERRUPT OCCURRED

/TEST THAT TME F'PP INTERRUPT REQUEST FLAG IS SET ANO F'PINT DOES NOT RESET IT
/ANO TMAT ClOT> F'PICL WILL CLEAR TME FLAG
0271

0212
021'3
111214
0215

0216
0271
Ill JU

65!51

74~2

T3,

65'1
74~2

"'2
6'!51
'3h
?•~2

F'PINT
HL.T
F'F!NT
Ml.T
F'PICL
rPtNT
JMP
Hl.T

/SKIP ON F'PP INT£RRUPT REQUEST F'LAG
/ERROR•F'LAG NOT SET
/SKIP ON rPP 1NT£RRUPT REQUEST F'LAG SET
/ERROR•F'i.AG NOT SET
/cERO THE F'PP WORLD
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

.•2

/ERRoR·F'PP INTERRUPT REQUEST F'LAG STILL SET

/T4•START THE rPP ANO EXECUTE A F'EXlT INSTRUCTION
/rROM LOCATION 5252
03U
0302
0303
"304
0305
0306
0307
0310
lll311
0312
0313
0314
rll315

6552
?320

405
3527
3526
1146
:5525
1144
3524
1176
30fZ4
1166
30Kl3

T4,

F'PICL
Cl.A CL.L
LAl'T
JMS I
K4"rll3
OCA I
K4rll02
DCA I
K5252
TAO
K4001
DCA I
K5250
TAO
K4000
DCA I
K7777
TAO
I NFL AG
DCA
K7700
TAO
CNTR
DCA

/cERO THE FPP WORLD
/LOAD APT TABLE
/cERo BASE REG POINTER
/cERO lNOEX REG POINTER
/F'PC EQUAL TO 5252
/FIELD BITS EQUAL TO 5250
/7777 TQ AC
!AC TO LOC !NFLAG • CP INTERRUPT TST
/77~0

TQ AC

/AC TO LOC

C~TR

- SET UP OF DELAY LO:P

•
P'

/F'PP-12

I~STAUCTIO~

Z316
G!l317
0320
0321
G!l322
0323
111324
0325

Ul55

6553
Uh
13U
11~4

6555
74~2

2flJ~3

111327

5.525
6012

UH
lll331

7318
1533

G!!JU

740
1!532
74148

1326

1332
8H3
0J:S5
IJU

1331
1348
1341
11342
llJ343
1344

111346
13'7
1311

13'1

ll3'3

74~0

74~2

1!531

,..,2
1!53'
7~'"
70~1

1(400

/400 IN AC-ENABLE INTERRUPT
/I.SAO c~o qEGlSTER F'ROM AC
/CP JNTEqRUPTS ON

TAO

1<400"

/POINTER TO APT TABl.E IN AC
/AC TO ADRS qEGlSTER • START ;pp
/ERROR·F'PP INTERRUPT F'LAG SET

lSl

CNTR
.-1

F'PCOM
tON
Cl.A CL.L
F'PST
Ml.T

/DELAY TO ALLOW F'PP TO F'!NtSM
/CP INTERRUPTS Orr
IO'
/EXAMINE APT TABLE FOR CORRECT CATA
JMI'

Cl.A Cl.L
TAO l

1(4r/Jl?J?

SU
1-!LT
TAO I
SU

K41UJ6

ML.T

TAO l

KUU

SU
Ml.T
TAO I

1(4r/Jl?J4

2.'27
.,,.,2
... ,,

MLT

74~2

"3'5

11~7

13!57
8361
1361
111362
1363
1!364
1365

1'24
70,1
2,053
744(/J

G!IJ66

74h

74~0

74~2

7•0CT-71

PAGE 9

VIH3

TAO
SU

1926
744S

UJt58

0 l Al.1111

11~6

74~0
74~2

,,,2,
03'6 72141

0354

TEST 2A

TAO l
SU

MLT
TAO I
SU
Hl.T
TAD I

cu
TAC

SU
ML 'I'

1(5252
I(

4"" 3

K"'1"2

1(41!101
1(525!

TAC l

KtUIH

TAO

1<250

cu
Si!A

MLT

/READ I.SW or FAC FROM APT T4Bl.! INTO AC
/SKlP•IF LOC 4017 CONTAINS 0
/ERRoR·FAC 1.sw INCORRECT
/R[AD MSW Of FAC FROM APT TABLE INTO AC
/SKIP•lF LOC 4016 CO~TAINS 0
/ERROR•FAC MSW INC~RPECT
/READ FAC EXP rROM APT TABLE INTO AC
/SKlP•Ir LOC 4115 CONTAINS 0
/ERRoR•F'AC EXP INCORRECT
/READ OPERAND ADDRESS rROM APT TABLE INTO AC
/SKIP·IF LOC 4114 CONTAINS 5252
/ERROR•OPERAND INCORRECT
/P0 rROH APT TABLE TO AC
/SKIP I; LOC 4113 CONTAINS 0
/ERROR•PQJ IS INCORRECT
/Xll FROM APT TABLE TO AC
/Sl<lP IF LOC 4812 CONTAINS S
/ERROR
/FPC FROM APT TABLE TO AC
/Sl<lP lF LOC 4111 CONTAINS 5253
/ERRoR-rPC INCORRECT
/FIELD BIT! FROM A~T TABLE TO AC
/OPERAND F'IELD B!TS SMOULO BE RESET
/Sl<Jp-Ir LOC 4000 CONTAINS 250
/ERROR·F'IELD BITS INCORRECT

/EXAMINE LOC INF'LAG TO DETERMINE IF INTERRUPT OCCURRED
0367
0371!

I~I

-~·

111124
7440

0371

74~2

0372
0373

5773
041Z0

TAC

INF'LAG

SiA
HL.T
JMf.' I

/WILL EQUAL lERO IF INTERRUPT OCCURRED
/YES-SKIP
/ERRoR-rPP ~ID NOT INTERRUPT

,•1

40el
.-

(--\

\__~

•

'.~
/F'PP-12

lNSTRUCTIO~

TEST 2A

::l 1AL.10

V003

~
10158

7-0CT-71

/T5-F'PP I~TERRUPT REQUEST FLAG IS SET
/TEST THAT CI0T'Sl FPCOM AND fPST DO NOT EXECUTE
04e0
0400
0401
0402
0403
0404
0405
0406
0407
0410
0411
04U
0413

731?0
11t4

PAGE 10

WIT~

THE FLAG SET

o4U

T5•

Cl.A Cl.L
TAO

FPCOM

6553

521?5

JM?

K40210

.•2

HV1'
rPST
,•2
JMP
Hl.T
Cl.A Cl.L
F'PRST
SU
Ml.T

74~2

6555
5210
74~2
'3~0

65!56

7440
14~2

/LOAD CMO REGISTER
IERROR·FPCOM CAUSED A SKIP
/L0AO AORS REGISTER ANO START FPP
/ERROR-FPST CAUSED A SKIP WITH INTERRUPT REQUEST FLAG SET
/READ fpp STATUS REGISTER INTO AC
/SHOULD BE lERO
/ERROR•EXAMtNE STATUS IN AC NOT 000

/T6•TRY TO EXECUTE A FEXIT INSTRUCTION FROM LDC 5252 WITH
/TME FPP lNT[RRUPT REQUEST F'LAG SET
0414
0415
0416
0417
i!4 20

0421
0422
0423
0424
0425

0426
0427
0430
0431
11J4:S2
0433

1300

T6•

1146
;J52S
1176
3004

Cl.A CLL
TAO

OCA

1<5252
1<41!05.

TAO

K777'

DCA
TAO
OCA
TAO

11~6

3003

1055
O!):S

INF'L4G

K7112!12!

/AC TO LOC CNTR • SET UP DELAY LOOP
/ENABLE INTERRUPT
11.0AO CMO REGISTER
/INTERRUPTS ON

1<4000

IAC•4000

JON
Cl.A Cl.L

1300
U~4

TAO
F'PST

6555
52.53

JMP
Hl.T

1d2

u02

/AC TO LOC INfLAG • CP INTERRUPT TEST

CNTR
1<412!0

F'PCOM

61/Jh

1rPc POINTER EQUAL TO 5252

.•2

?OP

/l.OAO ADAS REGISTER ANO TRY TO START TME FPP

/ERROR•JNTERRUPT REQUEST F'LAG SHOULD PREVENT SKIP
/INTERRUPTS OFF'

/T7·TEST THAT THE F'PP INTERRUPT REQUEST F'LAG CAN 8£ Cl.EAREO BY F'PlST (IOTl
04:$4

0435

6551
741Z2

Ill 4:56

6557

007

741?2
6551
5243

0440

0441
0442

74~2

T?,

F'PJNT
Ml.T
F'P!ST
HI.. T

f:'P ! llJT
JMP
ML.T

.•2

/SKIP ON THE F'PP INTERRUPT REQUEST FLAG SET
/ERRQR•F'L.AG NOT SET
/SKIP ON F'PP INTERRUPT REQUEST FLAG AND CLEAR IT
/ERROR·IOT F'PIST DID NOT SKIP ON FLAG
/SKIP ON F'PP INTERRUPT REQUEST FLAG SET
/ERRoR-JOT f:'P!ST SKIPPED BUT DID NOT CLEAR FLAG

/F'~P-12

!NSTRUCT?O~

TEST 2A

D IAL.10

V01!13

1015e

7•0CT-71

/TB-TEST A rEX!T INSTRUCTION rROM LOCATION
0443
0444
0445

0446
0447
0450
0451
0452
0493
0494

6552

1146
3533

DCA

1146
3532
1146
3531

10~1

TAO

3530

04'6
0457

3526

e.465

006
0467
11470
0471

iAO

OCA
TAO
OCA
OCA
TAO
OCA
TAO
OCA
TAO

1146
3'27

0464

U~6

:1525

OCA

3524

004 I

6553

F'PCOM
TAO
F'PST
ML.T
F'P!NT
JMP

11~4

6555
7412

65h

!IJ270

2525

/i!ERO THE rPP WORLD
/LOAD THE APT TABLE

F"PICL
CL.A CLL

214'5

"460
"461
0462
0463

T81

13e0

F'ACE 11

K5252
K4007

K5252

/rAC L.SW EQUALS 5252

I( 4"" 6

/rAC MSW EQUAL.S 5252

1<42'05

/rAC EXPONENT EQUALS 5252
/OPERAND ADDRESS EQUALS 0

K5252

K4G!!04

1(5252
1(4'!103

K5252
K4002

K2525

I('

I( 4""' 1

21/J

1(4000
K4G!!H

/BASE REG POINTER EQUALS 5252
/INDEX REGISTER PO!NTER EQUALS 5252
/rPC EQUALS 2525

1rIELD B!TS EQUAL 52m
/LOAD CMO RE~ISTER IN rpp
/4000 TO AO
/LOAD AORS REGISTER ANO START rPP
/ERROR rPP ALREADY RUNNING
/SKJP ON rPP INTERRUPT REQUEST

• ·1

/EXAMINE A~T TABL.E rOR CORRECT DATA
0412

730il

CL.A CL.L

U 13

1533
7041

CIA

"474
1!1415
04'76
04 '17
2'5H
0501
05"2
21503
05184
0505

0506
0507

0511!1
0511
0512
0513

0514
0515
0516

~\.

11~6

7440
74h

15~2

TAO I

TAO
SH

K4G!!H

CIA
TAO

K5252

'1422

Ml.. T

11~6

7440
7422
1530
7041
1114

7440
74fl2

K5252

Ml.. T
TAO I

7041
U,6
7440
15:31
7041

K4007

TAO I
CIA
TAO
SH
HL.T

TAD I

CIA
TAO

Si!A
HL.T

K4fl05
K5252
K4004

1<2525

1r•c LSW rROM APT TABL.E TO AC
/SMOULO EQUAL 5252
/YES-SI< IP
/ERROR
/rAC MSW FROM APT TABLE TO AC
/SMOULD EQUAL 5252
/YES-SI< JP
/ERROR
1rAc EXPONENT rROM APT TABLE TO AC
/SHOULD EQUAL 5252
/YES-SKIP
/ERROR
/READ OPERAND ADDRESS ~RO~ APT TABLE INTO AC
/SKIP Ir EQUAL TO 2525
/ERROR

·~

~
t;PP-12

INSTRUCT!O~

0517
0520
0521

0522
0523
0524

1527
7041
1146
7440

1d2
1526
70"41
1146

0525
0526
0527
"5 Jr/l
0531
0532
0533

1402
1525

0534
053!5

05:56
0537

0541
"'''
05•2

1440

V003

TAO

K4003

TAO
Si!A
Ml..T
HO
C: I A
TAO

1(5252

Ml.T
TAO
Si!A

K2526

142!2

Ml.T

1524
7041
1061
7440
74~2

1173

730QJ

;uu
UJO

352'

0551
0552

1176

f/J553
0554
el555

11'76
3527
1176

0556
0557

1176

SU6

3530

c: IA

TAO

KU01Z1

TAO
Si!A

K520

cu
MLT

CL.A CL.L
TAO

OC:A
TAO
DCA
TAO

OCA
TAO
DCA

TAO

DCA
TAO
OCA

3'31
1176

0562

~532

0563

DCA

1176

TAO
DCA I

0565
0566
0567
121570

0571
121572
0573
0574

3533
6553
1124
(1555

TAO

rPeOM
TAO

74~2

~LT

F"PtNT
JMP
JMP
T9A

5774
rll6ell:I

K7770

PA~E

/READ BASE REGISTER

PO!~TER

FRO~

/SKIP IF EQUAL TO 2526
/ERROR
/READ F"!E~O 8ITS rROM APT TABLE INTO AC
/SKIP IF" EQUAL TO 520
/ERROR

K4H1
K7777
K4002

/AL TE:R F'PC
/ALTER INDEX REGISTER
/A~TER

BASE REGIST£R

/A~TER

OPERAND AOORESS REGISTER

K400'

/A~TER

F'AC EXPONENT

K7777
K4006
K.1177

/ALTER MSW OF FAC:

K7777

K4004
K7777

K4007

1(4001?1

.-1

.•1

TAB~E

/SKIP IF EQUAL TO 5252
/ERROR
/READ FPC FROM APT TABLE INTO AC:

/ALTER F'IELO BITS

K"/777
K411103

AFT

!~TO

/SKIP IF EQUAL TO 5252
/ERROR
/READ INDEX ~EGISTER POINTER F"ROM APT TABLE INTO AC

K411l01!1

K?77

F'PST

6551

5371

1015e

7•0CT-71

/T9•EXECUTE A F"EXIT INSTRUCTION rROM LOCATION 777
/LOAO THE CMO REG WITH 400 AND SET UP THE APT TABLE
T91
rPtCL
/i!ERO THE rPP wORLO

0561

0564

K5252

Si!A

Ui5
7440

215'5

0561!1

K401212

K401211

6552

0547
0550

DUL10

TAO

7041

0543
1.1544

05'6

TEST 2A

/ALTER LSW OF" F"AC:
/LOAD FPP CMO REGISTER
/APT TABLE POINTER TO AC:
/LOAD AORS REGISTER AND START F'PP
/ERROR F"PP RUNNING
/SKIP ON FPP INTERRUPT REQUEST

/r~P-12

INSTRUOTJO~

TEST 2A

014L.1"

VH3

Ul 158

7-0CT-71

PAGE 13

/EXAMINE APT TABLE FOR CORRECT DATA
0600
0601
0602
0603
0604
0605

r/J6(/J6
1!1607
06Ul
0611
0612
0613
0614

061Z0
731Z0
1533

7040
7440
?402

15J2
'"40

T9A,

•6"'e

CL.A Cl.L
TAO I

Ml.T
TAO I
CMA

'4i2

Ml.. T
TAO I

S.!5h
?11l41
,_ra63

0620

7440
74~2
1'27

7040

CMA

0622
21623
0624
111625
111626

1116 27

, .. .,

7412

1526

TAO

1<4flrll2

/SKIP Ir 1.0C 41!103 CONTAINS 7771
/ERROR
/READ INOEX REGISTER POJNTER FROM APT TABLE INTO AC

MLT
TAO I

1<41!11!11

/SKIP IF LOC 41!102 CONTAINS 7171
/ERROR
/READ FPC POINTER rROM APT TABl..E TO AC

TA 0

I< U! QlflJ

ML.T
TAO l

CMA

111632

1525

0633
06H
0635
0636
0637
0640
0641
0642

7041

7440
7402

?041

Ct A

1!1643

1524

HLT

TAO I

1062

TAO

7440

?4h

K717
K41le13

TAO l

1064

K4004

/SKIP IF 1..0C 4005 CONTAINS 7777
/ERROR
/READ OPERAND AOOR£SS FROM APT TABLE INTO AC
/SKIP Ir LOC 4004 CONTAINS 777
/ERROR
/READ BASE REGISTER POINTER FROM APT TABl.E !NTO AC

Ml.T

? 1114 0
?440
1402

0630
0631

K4005

/SKIP IF i..OC 4006 CONTAINS 7777
/ERROR
/REAO FAC EXPONENT rROM APT TABLE INTO AC

s i'!A

0615
0616
061?
0621

K4QJ06

/SKIP Ir 1..0C 41!107 CO~TAJNS 7777
/ERROR
/READ MSW OF FAC FROM APT TABLe INTO AC

CMA

?402

'4421

/READ LSW OF FAC rRc~ APT TABLE INTO AC

SU
Ml. T
TAO I

'440

1531
?"40

K4007

CMA

loll. T

K40U
K?70

/FPC POINTER EQUAL 1000
/YES - SKIP
/ERROR
/READ BACK FIELD BITS FROM APT TABLE TO AC
/OPERAND FIELD BITS SMOULO BE RESET
/SKIP IF FIELD BITS EQUAL 770
/ERROR

..
)

/IFt~

(

.
.·

~
/F'PP·12

1NSTRUCT10~

TEST 2A

0 UL.HI

V01'J3

.~
10:58

7•0C:T•71

PAGE 14

IT10-TEST EXECUTION OF A FPAUSE AND A FEXIT INSTRUCTION
/FRO~ Fpp eooE LOCATION 1077 WITH TME CMD REGISTER=JZ00
/THEN EXECUTE A FPAUSE AND A FEXIT !NSTRUCT!ON
/FROM FPP COOE LOCATION 1077 WITH THE CMD REG!STER=0360
0644
llJ645

0646
0647
111650

06!51
06'2

4303
6'53
4313

T10,

c:.u;s

JMS
FPCOM
JMS

JMS

4333
4363
43£3

JMS
JMS
JMS
JMS
iAO

0653

4353

0654
0655

12154
6553

0656

73U
4313

Cl.A Cl.L

3,26
3,27
353111

DCA
DCA

0657
21660

0661

0662
21663
21664

0665

~531

3532

.t333

0667

1526
744111
7402

SU
Ml.T

"''' 153"
14'"
702
0676
0677
Ql7011l

rZJ?01
0702

!P02
1220

11'703
0704

el000

0706
0707
0 7 :l.lll
0711
0712

1"; :5

0713
0714
0715
0716
0717
07211!

0000

1<4011J7

TUC

K41!l1Zl2

1<4H3

TAO
SU

I( 41!10 4

JMS

TUE

JMP

• •1

Ml.T

4363

TU
I

rnn

6552

T1'JA1

4405

3525
1166
30ilJJ

5703
Ui!4

i10B,

I 4C::4ii:H:le!

K4001
K7711Jl1J

/CONTAINS RETURN JMP ADD TO TEST T10

FPS T
I-IL T

5317

tSl
JMP

20~3

K4000

1(1077

DCA
TAO
DCA
JM!>

7402

/GO iO
/TEST TH

CNTR
T10A

LAPT

TAO

6555

/START FPP•OELAY•TEST STATUS AND F'PC
/CLEAR INDEX REGISTE~ POINTER IN APT TABLE
/CLEAR BASE REGISTER POINTER IN AFT TABLE
/Cl.EAR OPERAND AOORESS POINTER IN APT TABLE
/CLEAR F'AC EXP IN APT TABLE
/CLEAR FAC MSW IN APT TABLE
/CLEAR FAC LSW IN APT TABLE
/START FPP AFTER PAUSE-AFTER EXli TESi STATUS AND FPC
!READ Fpp !NOEX REGISTER POINTER rROM APT iABLE TO AC
/SHOULD=0
/EFlR-EXAMlNE AC
/READ BASE REG POINTER rROM APT TABLE TO AC
/SMOULD•0
/ERR-EXAMINE AC
/READ OPR AOC POINTER FROM APT TABLE TO AC
/SMOULD=111
/ERR-EXAMINE AC
/TEST FOR f"AC=l!l

/CONTAINS RETURN JMP ADO iO iEST T10
/lERo THE rPP WORD
/LOAD APT TABLE
/AC•1077
/ALTER THE FPC
/AC=77'1l0
/SET UP A DELAY LOOP
/RETURN TO TEST T10

"rPJCL
JMS t

TAO

/SET UP FOR FPP OPERATION
/LOAD CMD REGISTER
/START F'PP-OELAY•TEST STATUS ANO FPC
/S[T FAC=7777 7777 7777
/START FPP AFTER PAUSE•AFTER EX!T TEST STATUS AND FPC
/TEST FQR F'AC=l!l
!SET UP F'OR F'PP OPERATION
/SET FAc:7777 7777 7777
/AC•36'1l
/L.0AO CMD REGISTER
1AC11QJ

I( 4"" 4
1<4005
K4H6

Ml.T
TAO

1d2

T10D
K360

OOA

TAO
SU

7 4'40

TUlC

TUE
TUA

TUB
K4011J2
1(411103

JMS

1527

TUB
TUID

JMS

OCA
OCA
OCA

:uu

21666

06
'"
'1l671
111672
0673
0674

F'POOM

T10A

CNTR
... 1

/LOAD AORS REGISTER AND START FPP
!ERR-FPP RUNNING
/INC LOC CNTR
/DELAY

/,PP-12

lNSTRUcT!O~

TEST 2A

Dl4L10

V003

Ut58

1•0cT-71

PAGE 15

I
I
I

0721
0722
0723
0724
07'5
0726
0727
0730
0731

13U

eJ733
07::54
07::55
0736
07!7

0Hl1J

6551

07.Ul

5337

3024
112124
00~2

7041
s,032

7440

07'5

07'6
0747
07H
07'1
07'2
0753

17''
1!1755
1117,6

'4~2

rn:n 5713

0741
0742
0743
07'4

Cl.A Cl.L
F'PRST
STATUS
OCA
STATUS
TAO
K3
ANO
cu
K3
TAO

6556

11~4

TUJC,

6!)55
74~2

7300
65'6
74'40
74.2
1529
7041
2,1?4
,440

74~2

'733

811110 0
U76
UH

T100r

1763
0764
076!5

0766
0767
077el
0771
0772

0773
0774
eJ775

1(412100
TAO
F'PST
Ml. T
F'PINT
JM?
.-1
Cl.A Cl.L
F'PRST
Si!A
Ml.T
TAO I 1(4001
c: 1A
K1101
TAO
SU
Ml.T
TUJC
JMP I
0

K7777

OCA I
TAO
OCA I

,,,3

OCA I
JMP I

u?t

uee

15U
7440
14~2

1532
7440

TAO

T10E,

1<4809

K1777

1<41111U

K7777

I( 4 011l 7

TUD

TAO l
Sh

1(4807

TAO I

I( 4 211216

Ml.T

Si!A

14~2

ML.T

15J1
7440

TAO
Si!A

74~2

Ht.T

5763

TUB

TAO

U76
""" uu

0760
0761
llJ762

Ml.T
JMP I

1(4005

JMP I

TUE

/CLEAR AC ANO LINC
/READ Fpp STATUS REGISTER INTO AC
/IMAGE OF" STATUS
/GET STATUS
/MASK OF"F" BITS 11Jw9
/COMPLIMENT ANO INC
11.oc STATUS SMOUL0•3·RUN AND PAUSE SET
/Sl<IP IF" AC•0
/ERR-AC NOhG!
/RETURN TO TEST T1G!
/CONTAINS RETURN JMP ADD TO TEST T10
/ACs4000
/LOAD ADRS R£G ANO RESTART F'PP
/ERR-FPP WAS RUNNING
/SKIP ON F'PP INTERRUPT REQUEST
/NO-TRY AGAIN
/CLEAR AC ANO LINC
/READ Fpp STATUS REGISTER INTO AC
/STATUS SMOULD•0
/ERR-EXAMINE AC•SMOUL.0=0
/READ Fpp PC F'ROM APT TABLE TO AC
/C0MPLIM£NT ANO !NC
/F'PP PC LOC 401211 JN APT TABLE SHOUL0=1101
/ACs0
/ERR-I.DC 4881 rs NOT•1101
/RETURN TO TEST T1D
/CONTAINS RETURN JMP ADO TO TEST T111J
/AC•7777
/ALTER rAC EXP IN APT TABLE
/AC•7777
/ALTER F"AC MSW IN APT TABLE
/AC•7777
/ALTER F"AC LSW IN APT TABLE
/RETURN TO TEST T11
/CONTAINS RET JMP AOO TO TEST T111l
/READ rAC LSW rROM APT TABLE TO AC
/AC SH0UL0•0
/£RR-L0C 4807 NOT•0
/READ FAC MSW F'ROM APT TABLE TO AC
/AC SM0UL0=0
/ERR-LOC 411106 NOTalll
/READ FAC LSW FROM APT TABLE TO AC
/AC SH0ULD=0
/ERR-LOC 4~07 NOTclll
/RETURN TO TEST T111l

I
\,

~;~
r

\ ___ ,,/

~
IFPP-12

INST~UCT10~

0777

TES~

cuu.0

'00U
"'e"

1011

00e2

1002
1r/Hl!3

00e3

0777

1011J4

011Jh

1!!0£0

10fl5

0004

10<11

02rz1

10U

02~6

UJ86 HU
10:9:7 020
11aJ1a 111·020
1012

J000

111114

110'20
fllU7

1tU.6
10't.7

J'0i0

U1'

12£1

UH JeJU

uu 12•1

1022

1023
U24

un·

U26
1027

emu

424,
eiee0
4211

llHS
12~7

UH IHI
11U •247
UH 0ee.0
1U3 U46
UH IJllJlllJ
1035

11U6
1U7

Hie

U14

12i'
1110H

UJt'

1216

1050
1051

1220

1111!54
1055

12z1
00u
1222

1052
1053
1056

F'l.ClA I 37 I 2H
FEX tT

F' AO'C I l.! 2H

F'EXIT

f'AOCl4112H
F'ElC IT
f'MUl.14512H

F'E)( l T

F' MUl.10 I 21811l
F'El(l T
F' A-OD 17 I 2.Hl

rOIT

rMUL. 47 211JllJ

rEXIT
r1nv14612u
F'EXIT
F'EX!T

10'2

1046
1047

F'EX IT
F'L.OA J 3612011
F'£XJT

011100

0ilU

U4'3
UJH·

F'[Jt IT
F'EXIT
F'CL.A
F'EXIT
f'N£G
F'EX IT
F'NORM
rtXIT
F'L.OAl200
F'ElCIT
F"L.CAl1!200

F' ADO ll.2 I 2H

1041

POINT INSTRUCTION AREA

1212
1il?13

0001'/J
1il17

uu
0111~0

0'H~0

7•0CT-71

•777
/f'~OATING

1000

V01113

rAOOl1312H
F'EXIT
F'AOOl1412H
F'Ek 1T
F'AOOl1512H
F'EXIT
F'AOOU612012l
F'EXIT
F'AOOl171200
F'EXIT
F'AOOl20120fll
F'El<IT

f'AOD!2112H
F'EXIT
F'AOD12212rll0
F'£)(1T

10:58

PAGE 16

•

lrPP-12 INSTRUCTION TEST 2A
1057
1060
1061

0010
0000
0011

11!162

fl000

1064

0000

106'

0012

erai;s

00£0
0014

1H6
1067
U7QI

81110 0

10n.

001'

U?:S

8016

1072

0000

12114
1015
U76
U77

1!1000
Hi7
00011
'2101

11U

0006

11H

1192
1103

111114
11119

1110~0

U20
11100

ue0

16'2

uru eeee
:S2U
1111/J uee

11'7

1111
1112
11U

1114

14~0
61~0

11J11Jll1J
44~0

1115 60:12

11U
1111

uae

1121

1122

1124

112'

1126
1127
UH
1131

1132
11:53

1134
11U
1U6

1137
11411l

)

•·

1090

1214
U00
1213
fll0f 0
1614
(11000
~2!50

HU
14~0

604,

3400

•"h
""'0 0
222!
01110 21
2224

"IZllll 11J

OULU'

VBl3

7•0CT•71

U1'9

PAGE s.7

ALN
F'EIC!T
Al.NU

rEXIT
Al.N 12

F'El( IT
ALNl:S
F'EXIT
ALNl4
F'£lCIT
ALNl!S
re lC IT
ALNl6
F'EXIT
AL.N17
F'[ lCl T
F'FIAUSE
F'[)(JT

ShRTO
rEXtT
STARTF
F'EICIT
F'AOOl2!6H
rEx IT
F'Ot\111312l!llll
F'ElCtT
F'A00!42!0
6140
F'£lCIT
F'MUL.l4H
6032
P'&:Xl T
F'AOC!1412U
F'ElCIT
F' AOC 1131200
rEXIT
F'A0014!601!1
F'El(l T
F"O!Vl51112H
F'EX IT
F'A0Cl400
60'5
F'EXIT
F'O!V!400
6071
f"E)(IT
F'SUBl2312H
F'EXJT

F'SUB!2412011
F"EXIT

f;:'',
\.)

~
trPP•12

INSTRUCTIO~

1141
1142
1143

11414
11'4'
1146
1147

1150
1151

11'2
1113
11~4

.1:.1:5:5
U"H
1157
1160
1161

2225
00£0
2226
0111.£0

2227
00U
22~0

121H0
22~1

0H0
22~2

,en0
U~3

011100
22~4

0020
22~·5

-1162

00U

~;165

26~3

-116.3 2642
l.l-. . :09r0
1166

1167
1171J

:teU
22h
1!Hll~0

1111

22H
tHfJ

1174

6051

U7'
1116
1177
12H
121211

1-111~-·

l.172
1173

1202

14~8

eeee

uee

eeee

1110
1101111

1203

10~1
241~1

1216

11101111

12'4
1205

1207
1210
12-11
122.2
1213
1214
1215

61~1

32h
llJH8
30~0

•lllU

50U
60U
711100

TEST 24

DlAL.10

VH3

1015!

7•0CT·71

PAGE 18

F'SIJB!2512"21
F'EXIT
F'SUBl26!200
F'U IT
F'SUB!27120121
F'EXIT
F'SUB t 3121I2H
f"EXIT
F'SU813112H
rEXIT
F'SU813212H
F'i XI T
·rs us 133 t 22111
F'[l(!T
F'SUBl3412H
- F'D l T
f"SUB!3512H
'F'EX IT
F'SU8l4216H
·TOIT

rsue1:s1601

F'OIT
rsue12112u
F'EX!T
rsue t 44 I 2HI
F'EX!T
F'SUB1411l0
iaH
?'EXIT

stn

L.OC AL.TEREO BY PROGRAM

tlH

/T~IS

/THIS L.OC AL.TEREO BY PROGRAM

F'£)C 1T
SETB

F'EXIT
rSUBl41110
6U1
F'E l( IT
F'OlV11!200
F'EXIT
TRAP1
TRAP2
TRAP3
TRAP4
TIUP5

/rPP-12

!NSTRUCTIO~

TEST 2A

OULU

VH3

1"158

7•0CT•71

PAGE 19

/T11-TEST EXECUTJON or FPAUSE. rPHLTclOT> ANO FEXJT
/FRO~
rPP CODE ~OCATION 1377
/TEST THAT rPIST tOT READS SACK STATUS
122el
1221

12~2

1e?3

1224
1225

11~6

1226
1227

12H
1211
1232

un
12:54
12n

1216

1237

12•1
1241

12•2
12'3
12'4
12'5
120

1247
UH

1212
1253

12'4
125'
1256
12,7
12611
12U
1262

1263

s.264
1265

~
--i.

1220
6552
440

3525

HO
6'53

.,,,
U~4

*122QI

Tl1,

rP!CI.
I

LAPT

OCA I
TAC

KUl7'1
1<411111
1(77011

OCA
FPCOM

CNTR

TAO

K4HPJ

J~S

TAC

F'PST

7402

ML.T

9232
73ie

JMI'

ue:s

65'6
3024

1124

9247

''"

1024

111124

711141

1064

/READ Fpp STATUS REGISTER INTO AC
/IMAGE or rpp STATUS REGISTER

TAC

Ml.T

TAC

OCA 1
f'PMLT
rP!NT
JMI'
F'PlltST
CCA

K7777
K•llll7

,•1

STATUS
STATUS

TAO

KUJllJI

"''
702
H24

F'P!ST
ML.T

S,024

TAO

71iJ41

STATUS

TAO

74411J

1•~2

/LOAD AORS REGISTER ANO START FPP
/ERRoR•FPP RUNNING

STATUS

.,,1

/SET UP DELAY LOOP
/LOAD CMO REGISTER

OCA
TAO

'14'411J

'"2

/ALTER TlolE F'l'C

/DEL.AV

U~6
3533
6'94

/l£RO THE FPP WORLO
/LOAD APT TA8LE

.-1

CL.A CLL
F'PltST

'11141

CNTR

JNSTRUCTIO~S

MLT

OCA

STATUS
STATUS

/SKlP IF PAUSE <BIT 19> ANO RUN CBIT 11) ARE SET
/ERROR··EXAMINE L.OC STATUS F'OR STATUS ERROR
/ALTER F'AC LSW
/CP FORCED IOT MALT • STORE ACTIVE REGISTERS IN CORE
/SKIP ON F'PP INTERRUPT REQUEST FLAG SET
/F'PP STATUS REGISTER TO AC
/IMAGE or F'PP STATUS REGISTER
/CP FOURCEO EXJT <BIT 2> SMOULC BE SET
/YES-SKIP
/ERROR•-CP F'ORCEO EXIT STATUS BIT NOT SET
/S~lP ON rPP INTERRUPT REQUEST F'LAG SET
/ERRoR•F'L.AC NOT SET
/IMAGE 0, STATUS REGISTER

7402

SU
HLT
TAO

I( 4l!JQJ1

/STATUS EQUAL TO 1101
/YES-SKIP
/EARQR•·STATUS NOT•TO 10e11J
/YAC LSW FROM APT TABLE TO AC
/SKIP IF ZERO
/ERROR·-PPP LSW INCORRECT
/F'PC FROM APT TABLE TO AC

1274

7041

Cl A

1275

1073

TAO

1<1077

/SMOULD EQUAL 1077

1111~4

74411J

1266
1267
127el

7422
15j3

1271
1272
1273

1525

7440

TAO
SH
HL.T

TAO

I< UeJllJ

1<41107

(,,_ )

~-)

•

~
I

,,~~-12

INSTRUCTlOh TEST 2A

DlAL.Hl

7440
74e2
1166

Si! A
ML. T

1276
1277
130121
131211
1302
1303
1304
1305
131216
1307
1310
13,11
11312
1313
1314
1315
1316
1317

1320
1311
U22
1323

1324
1325
1326
1327

13H
1331

TA;:!

30U

DCA

1124

TAO

F'PST
ML. T

6555

?422
20e3
5305
7300

VU3

K7700
CNTR
K4000

!Si!

CNTR

JMll!

,•1

TAC

SH
Ml. T
TAO
F'PST
ML. T
FP!NT

74~2

6551

K41021

JM.P
.-1
Cl.A CL.L.
K4001
TAO I
CIA
1<1101
TAO
Sc A
Ml.T

U22

7300

1525
712141
112174
7441!1
74~2

PAGE 20

/YES-SKIP
/ERRoR·-F'PP F'PC INCORRECT

CL.A CL.L.
F'PRST
ST4TUS
OC:A
STATUS
TAO

6556
312124
1024
70<41
1032
7440
7402
Uc4
6555

10158

1•0cT•71

/SET UP DELAY LOOP TO

AL.LO~

FPP

TJ~E

/READ Fpp STATUS REGISTER INTO AC
/IMAGE OF' F'PP STATUS REGISTER
/RUN <BIT 11! ANO PAUSE <BIT 101 SMOUL.D BE SET
/YES-SKIP
/ERRQR·-EXAMINE L.OC STATUS F'OR STATUS ERROR
IL.CAO AORS REGISTER AND START F'PP
/ERROR FPP RUNNING
/SKIP ON rPP INTERRUPT REQUEST FL.AG SET
/F'PC FROM APT TABL.£ TO AC
/SMOUL.0 EQUAL. 1101
/YES-SKIP
/ERRoR--rPP PC IN LOC 4001 NOT•1101

/T12·T£ST SETTING OF DOUBLE PRECISION MOOE BV
VPAUSE 4NO A F'E~IT INSTRUCTION
/STARTING AT FPP COD£ LOCATION 1077

ti552

nee

T12'

/i!ERO THE FPP WORLO

FP?CL.
CL.A CL.L

1073

TAO

;,525

I( 4fll01
DCA I
1(47618
TAO
F'PCOM
Cl.A CL.L.
K4000
TAO

1143
6553
?:50121

11(4
6555
7422
10e0
7020
'112120
10e0
70fZ0
7020
7020
7020

f'PST

HL.T
NOP
NOP
NOP
NOP
NOi:>

NOP
NOP
NOP

KUl 77

rrNIS~

/LOAD ADRS REGtSTER AND START FPP
/ERROR
/DEL.AY

IE~ECUTING i

1332
1333
1334
1335
1336
1337
1340
1341
1342
1343
1344
1345
1346
1347
1350
1351
1352
1353

/Al.TER FPC
/LOAD CMO REGISTER
/L.OAO ADRS REGISTER AND START FPP
/ERRQR•FPP RUNNING
/DEL.AV
/DELAY
/OEL.AY
/DEL.AV
/DEL.AV

/DEL.A Y
/DELAY
/DELAY

lrPP.12

lNSTRUCTIO~

1354
1355
13!56
1357

6556
11J1t4

13H

74E2

1362
1363

11i4
,,;,

1364
1365

7422

1361

1366

1367
U70
1371
1372

TEST 2A

DUL.10

Ve.113

Cl.A Cl.L
F'PRST
ANO
K40H
S"4A
MLT
Cl.A CLL

7JUI
74;0

ni0

1<4eJl1J1

/F'PC F'ROM APT TABLE TO AC

1<1111J1

/SHOULD EQUAL 1101
/YES-SKIP
/£AROR··F'PP F'PC INCORRECT

CIA
TAO

1074

/F'PP STATUS REGIST£R TO AC
/SMOULD EQUAL 411J011J DOUBLE PRECISION IBIT llJ) SET
/YES-SKIP
/ERROR--F'PP ALRE40Y RUNNING·•DOUBLE PRECISION NOT SET

TAO I

7041

1525

PAGE 21

1<4"H

13it/J

65;1

10158

F'P!T
MLT
F'P!NT
JMP
, •1
CL.A CLL

5369

7-0CT.71

1374

7440
74,2

Si A
HLT

137'

,776

1316

14~8

JMP I
1410

/LOAD AORS REGISTER AND START F'PP
/ERROR
/SKJP ON FPP INTERRUPT REQUEST SET

.•1

/T13•TEST EXECUTION OF' A STARTD ANO A F'EXlT INSTRUCTION
/F'ROM F'PP coot LOCATION 1111

14'9
14111
101
1412
14113
1414

'''2
1318
s,8?4

6551

1418

1412

730

1414

7041

7448

SU
ML.T
F'PRS T
OCA

U~4

7412

u:u nu

1413 1529

107,

1421

74'2
65h

1416
1417
1421
1422
1423

1424
14:U

UO
OCA l
F'PCOfll

.,,,

1417

•14H

3024
s,024

01i4

74;0

74£2

/!ERO THE F'PP WORLO

F'PtCL
CL.A CLL

1416

11"'
1
\, /

TU,

K11"1
1(41t/J1

1<411/J1
TAO
,PST
Hl.T
F'P!NT
,.s,
JM'
Cl.A Cl.L
1(4101
TAO I

TAO

AND

SNA
Hl.T

KUH

STATUS
STATUS
I( 4 "'llJfJ

/ALTER F'PC IN APT TABl.E LOCATION 4001
/LOAD CMO REGlSTE~
/LOAD ADAS REGISTER ANO START TM£ rpp
/ERRoR-rP~ ALREADY RUNNING
/SKIP ON FPP INTERRUPT REQUEST 'LAG SET
1rPe F'ROM APT TABLE TO AC
/SMOULD EQUAL 1183
/YES-SKIP
/ERROR·F'PP PC tN LOC 4011 NOT•1103
/READ Fpp STATUS REGISTER INTO AC
/IMAGE or F'PP STATUS REGISTER
/SKIP Ir STATUS REGISTER BIT 0 lS SET <OaPo MOOE>
/ERROR·OOUBLE PREClSlON MOOE NOT SET

/F'PP-12

~
1NSTRUCT10~

TEST 2A

DlAL.10

VHIJ

1-ocr .. 11

10158

PAGE 22

/T14•TEST EXECUTION OF A STA~TF AND A FEXIT INSTRUCTION
/STARTING AT FPP coor LOCAT!~N 1103
1426
1427
14311J

1431
1432
1433
1434

1435
143.6

143:7

1-4-48
1441
1H2
1443
14'4
140
14-'6

14-47
149'
14"1
14'2
141!
14'4
14'5

6552

T14,

13U

1075
3525

T40

OCA 1

11~4

TAO

6553

r:"PCOM
Cl.A CLL

1124

TAO
rftST

nee

6555
7412
t5h
,240

/cERO THE F'PP WORLD

FP!CL
Cl.A CLL
1<1103

K411J01
K41!ll1J0

K40H

Ml.T
F'P!NT
JMP
'·1
CL.A Cl.L

7041

74U

SU
lotl. T
l"PRST
OCA

1525
2,076
7441

uh
3024
1024

74h

APT TABL.E LOCATION 411Jl1J1

/LOAD ADRS REGISTER <SET O.P, MOOE>
/L.OAO AORS REGISTER AND START rPP
/ERRQR•F'PP RUNNING
/SKIP ON rPP INTERRUPT REQUEST FLAG SET

TAO I

K4fl1111

1rPc FROM APT TABLE TO AC

TAO

1<1US

TAO

STATUS
STATUS

/SMOULD EQUAL 1105
/YES-SKIP
/ERRoR•F'PP PC IN 1.oc 411Je1 NOT•TO 1105
/R~AO rpp STATUS REGISTER INTO AC
/IMAGE or FPP STATUS REGISTER

ANO
SU
Ml.T

f!l1i4
74411J

/ALTER FPC

1<4Hfl

/SKIP IF DOUBLE PRECISION MODE tS NOT SET
/ERROR•OOUBLE PRECISION MODE CBlT f> SET

/TU•TEST S!TX INSTRUCT-JON
/USING LOWER 41!196 COMBINATIONS
14!16
14!51
1461
1461

1462

1463
1464
146'

1466

1467
1471

1471
1472
1473

1474
147'
1476
1477

15H
Utll1
15~2

15U
1504

052
'13011

T15,

111J23
34h

T15A,

:uih

1371

3'2'
U~7

65'3
7300

11~4

6555

7402
65h
9273
7311!0
2,526
711J41
3
74411J

F'P!CL
Cl.A Cl.L
CNTR
OCA
TAO
CNTR
AL.TR
DCA
K4Hl
CCA l
1<260
TAO
F'PCOM
Cl.A CL.L
TAO

F'PST
ML.T
F'P!ST

JMP
Cl.A

I( 4lllJll

/CLEAR LOCATION CNTR
/ALTER SECOND WORD OS SETX INSTRUCTION CL.CC 1177>
/SET FPC POINTER IN APT TABL~ TO 1176
11.0AO CMO REGISTER
/LOAD AORS REGISTER ANO START rPP
RUNNING
/SKIP ON FPP INTERRUPT REQUEST FLAG ANO RESET IT

/ERRoR~FPP

... 1

CL.L

TAC I

1(411102

/INDEX REGISTER POINTER rROM APT TABLE TO AC

TAO
SH

CNTR

C:NTR
T15A

/SHOULD EQUAL CONTENTS OF' LOCATION CNTR
/YES-SKIP
/ERROR-LOC CNTR=EXPECTEO RESULT, LOC 40~2 BAO RESULT
/DONE ALL 4096 COMBINATIONS
/NO·OO IT AGAIN

74e2

Hl.T

52~1

JMP

K1176

TAO

/![RO TME rpp WORLD

IFPP-12

lNSTRUCTlO~

TEST 2A

OIAl.10

VH3

11/Jt58

7•0CT•71

PAGE 23

/T16•T£ST SETB INSTRUCTION
/US!~G LOWER 4096 COMBINATIONS
1505
1506

6552
73E0

T16,

1507
1511D
1511

11!1~3
:1427

T16A,

1512

15U
1514

1515

ue3

1516
152.7

,,,,

1521

7422

1522

,,;7

1524
1529
1526

1527
1531

CNTR
CNTR
ALTR1
Ks.21U

OCA

f(41!11/J1

TAO

KH0

F'PCOM
Cl.A Cl.L
KOH
TAO
ritST

7301!1

MLT
F'P!ST
' .. s,
JM'
Cl.A Cl.L

7B41

7U1!1

5322

027

/CLEAR LOCATION CNTR
/Al.TER SECOND WORD or SETB INSTRUCTION CLOC 1202)
/SET F'PC POINTER !N APT TABLE TO 1201
/LOAD CMO REGISTER
/l,.OAO AORS REGISTER ANO START F'PP
/ERROR F'PP RUNNING
/SKIP ON FPP INTERRUPT REQUEST 'LAG SET ANO RESET IT

TAO l

K4H3

/BASE REGISTER POINTER FROM APT TABLE TO AC

TAO

CNTR

/SHOULD EQUAL LOCATION CNTR
/YES-SK JP
/ERRoR·LOC CNTR•£XPECTED R!SULT1 L.OC 411!13a8AO RESULT
/DONE ALL. 4196 COM!lNATlONS
/NO • DO IT AGAIN

1!J:U.
1'U

74i2
UiiJ

CNTR
JS!
TUA
JM'
IT17•TEST CP LOCKOUT VIA BIT 8 OF' THE CHO REGISTER

1534

7614
1111131!1
7441!1

TS.7'

1537
1540
1541
1542
1543
1544
1549

15'6
1547
U!!Je

nh
6'i2

13lril

U64
U2'

ieu

103'
6553

nu
Uc4

o;,

Ml.T

L.AS
ANO

1(1

SKPTST
JMP
F'P!CL
CL.A Cl.L
TAO

KUH

OCA I
1<•101
CNTR
DCA
TAO
KU
F'PCOM
Cl.A Cl.L
TAD

KOH

1592
1553
15!J4

2flJ ril3
!J356

1555
1556
1557
15U
1561
1562
1563

65h
5353
73U
1023
0175

F'PST
MLT
CNTR
?Si!
Jf'IP
.•2
HL.T
F'P!NT
JM!'
C:L.A CL.L
CNTR
TAO
K7776
ANO

7440

74~2

Ml.T

15!i1

1564

TAO
TAO

Ui4

nu ni111

~
"-

OCA

1372
3525
1370
6553
,300

/lERO TME ~PP WORLD

F'P!CL
Cl.A CL.L

7402

7412

•••

/RUD SW REG
/MASK BITS e-u
/SW 11 SET lF' COMPUTER IS A PDP•8l
/SKIP T17 TUT
/~ERO

THE F'PP WOAL.0

/SET F'Pc POINTER IN APT TABLE TO 1eem
/Cl.EAR LOCATION CNTR
/LOAD CMO REGISTER CllT 8 SET>
IL.CAO AORS REGISTER ANO START F'PP

/COUNT
IEAROR•CP NOT LOCKED OUT ANO F'PP HUNG
/SKIP ON FPP INTERRUPT REQUEST FLAG SET

/F'LAG NOT SET-INCREMENT CNTR ANO TRY AGAIN
/EXAMINE LOCATION CNTR
/SHOULD CONTAIN A COUNT OF' 1
/SKIP Ir BITS 0·10 ARE i!ERO
/ERRoR-cP NOT LOCKED OUT

r-"I

(

~
l'PP-12

1NSTRUCT10~

TEST 2A

OIAL.Ul

VH3

,+1

1565

5766

St<PTST, JMP I

1566

160

1u21

1567
157VJ
15'1
1572

1212611!
21320·

1<261211
1<320,

1176
12rz1

260
320

1<1176.
1<1201,

1201

~
10158

7-0CT .. 71

PACE 24

1176

/T18•TEST TRAPPED INSTRUCTIONS
16'H

16erlJ
6552

1611

130

16-li
16213
1604
16111'5
161U

1376
311113

1375
;, "2 3
2,023

16'7

352'

1611
1611
1612
16U
1614
1U5

6553

1617
UH
1621

21123
2,9U
11141

un
1624

1H1
,, ••

162'

74h

U~4

.,,,
7412
65h
9214

1u6 nee
1622

1626
1627
16 Jiii
1631
1632
1633
1634
1635
2.636
1637
1640
1641
1642

T18,

112:5

65h

3024
11112 4
'111141

,, .. "
'7402

,,;2
6556

'4421
741l2
2rlll'l3
5206

•16HI

F'PlCL.
CL.A Cl.L
1<7773
TAO
CNTR
OCA
TAO

T18A1

OCA

TAO

OCA l
F'PCOM
TAD

1<1211

NUM
NUM

K4U1

K4HI

F'PST

Ml.T
F'PINT
JMll
.-~
Cl.A CLL.
NUM
!SI

/iERO THE FPP WORL.0
/SET UP L.OCATION CNTR F'OR 5 EXECUTIONS
/ADDRESS OF INSTRUCTION
/AL.TEA FPC POINTER !N APT TABL.!
/L.OAO CMO REGISTER
/L.0AO AQRS REGISTER ANO START F'PP
/ERROR•F'PP AL.REAOV RUNNING
/SKIP ON F'PP INTERRUPT R[QUEST F'L.AG

TAO l

1<41J01

/INC L.OC NUM TO POINT TO NEXT INSTRUCTION
/rPC POINTER FROM APT TABL.E TO AC

TAO

NUM

/SHOUL.D EQUAL. CONTENTS OF' LOCATION NUM•1

Hl.T
F'PRST
OCA

STATUS

/YES-SKIP
/ERRQR•FPP OID NOT RECOGN!!E T~AP
/READ FPP STATUS REGISTER INTO AC
/STORE STATUS REGISTER !MACE

TAO

STUUS

TAO
SU

K2121H

!AC

Ml.T
f'PlCL.
f"PRST
SU
ML.T
I Si!
JMP

CNTR
T18A

EQUAL 20021•1NSTRUCTION TRAP CBIT 2) SET
/YES-SKIP
/ERROR-LOC STATUS NOT•TO 2000
/iERO THE FPP WORLO
/READ Fpp STATUS REG INTO AC
/AC•0
/ERR-FPP STATUS lN Ae NOT•0
/DONE 5 Tlt-1ES
/NO·OO IT AGAIN
/SMOU~O

/F~P-12

INSTRUCTtO~

TEST 2A

OIAL12

Ve83

U15S

7•0CT•71

PA!;E 25

IT19-TEST EXECUTION or F'EXIT AND FPHLT (JOT) INSTRUCTIONS
/FROM LOCATION 1000-STATUS BIT SHOULD NOT SET
1643
1644
1645
1646
1647

6;52
7320
1064
J525
6553

1651!1

11~4

16,l.
16!J2
1693
1654
1655
1656
16'7
1660
uu
1662
1663
1664
166'
1666

6555
7402
6554
6551
5254
73U
65h
744111
14e2

T19,

F'PICL
CL.A Cl.L
TAO
K101!lG!
DCA I
K4CIJ01
F'PCOM
TA 0
F'PST

K 40 01!!

HL.T
rPHLT
F'P?NT
JMP
,-1
Cl.A Cl.L
F'PRST
SU
HL.T
TAO I
K4H1

1525

7041

U65

TAO
SU

1440
14,2

t<U01

MLT

/~ERO

THE F'PP WORLD

/SET F'PC POINTER IN APT TABLE TO 1000
/LOAD CMO REGISTER
II.CAD ADRS REGISTER AND START F'PP
/ERROR•F'PP ALREADY RUNNING
/CP FORCED IOT HALT
/SKIP ON F'PP INTERRUPT REQUEST F'LAG
/READ F'pp STATUS REGISTER INTO AC
/SKIP IF' lERO
/ERROR-INCORRECT STATUS IN AC
/F'PC POINTER F'ROM APT TABLE TO AC
/SHOULD EQUAL 1001
/Y£S-SKIP
/ERROR-EXAMINE LOC 4CJJ01 F'OR BAO F'PC VALUE

/T21!1•TEST rPST AND F'~COM lOT'S
/FOR NON•£¥ECUT!ON WHEN RUN IS SET
1667

6U2

1611

UJ64

un nu

1672
1613
1674
1675
1676
1617
1711111
1711
171!2

1703
1714
1 71!15

(*l

3'25

6!>53
U24

0;5
'?4~2

1123
65;5
uu
14~2

'''3
051

!IJ IU

TU,

F'PlCL.
CLA CLL
TAO

KUH
K4H1

DCA l
F'PCOM
TAD

KUH

P'PST
ML.T
TAD

K3777

f'PST
JMP

, •2

HL.T
F'PCOM
rPSNT
JMP

CLA CL.L

1786
1707
17Ul
1711
1712
1713
1714
1715

7301!1
152'
7111"41
1065
74'41!1
7402.
6556
7440

TAO
SU

1716
1717
1120

5720

JM? !

74~2

20e0

/iERO THE F'PP wORLO

TAO I

Cl A

/SET F'PC POINTER TO 1ee0
/LOAD CMO REGISTER
/LOAD AORS REGISTER ANO START f'PP
/ERRoR·F'PP RUNNING
/TRY TO LOAD AORS REGlSTER ANO START F'PP
/ERROR•SMOUL.O NOT MAVE SKlPPEO AS RUN WAS SET
/TRY TO L.OAO CMO R£G1ST£R
/SKIP ON F'PP INTERRUPT REQU[ST

, •1

K4eJ01

/F'PC POINTER tROM APT TA8LE TO AC

t<U"1

/SHOULD EQUAL 1001
/YES-SKIP
/ERRoR~EXAMINE LOCATION 4001 F'OR INCORRECT VALUE
/READ F'pp STATUS REGISTER INTO AC
/SKIP Ir lERO
/ERROR-EXAMINE AC F'OR INCORRECT STATUS

HLT
F'PRST
SCA

HL.T
, •1

2000

(r~
',

/FPP-12

~
INSTAUCTtO~

TEST 2A

C! AL10

vH3

7•0CT-71

Ull58

PACE 26

/SERVICE AOUTlNES
/INTERRUPT SERVICE ROUTINE
1727
17H

1727
11101&0

60£2

60h
1732 5335
1733 uh
17~1

1734
1735
1736
1737

17•111
1741

102
65'1

d'27
1NSERV1 I!!
! OF'
KSF'
JMP

/TURN INTERRUPTS OF'F'
/SKIP IF' FLAG 9ET
INS

l<CC

!NS,

14~2

13021
:5H4
,.~Ill

Ml.T
FPlNT
MLT
Cl.A CL.L
INF'LAG
OCA
JMP 1 0

/CLEAR AC ANO rLAG
/SKIP ON FPP INTERRUPT REQUEST
/INTERRUPT OTHER TMAN ;pp
/CLEAR INTERRUPT OCCURRED LOC F'OR CP INTERRUPT INDICATION

/LOAD APT TABLE
LAPT11

1H2
1743

efllllllll

731111

CL.A CLL

170

OC:A
OCA I
TAO
DCA l
TAO
DCA I
TAO
DCA I
OCA I
DCA I
DCA I
OCA I
JMP l

17'4

s.746
17'7

U~3

u~•

341UJ

1751
17'2
17,3
17U

11'5

17'5

17'6
17'7
1761/J
17U

TAO

~·u

17!58

I!!

U1f/J

1152

3411/J
3H8
HU
3410
:5 411111

5742

K377'1
UI

/STARTING AOORESS OF' APT TABLE•1

/i!E:RO F'IELD llTS

UI
1(7211111
Ul

/SET FPC POINTER EQUAi. TO 11111!1111

/SET SASE REGISTER POINTER EQUAL TO 61111110
/i!ERO OPERAND POINTER
/iERO F'AC EX~ONENT
/!&:RO f" AC MSW
/UFIO F'AC LSW
/RETURN TO MAIN PROGRAM

K11!!H

KUH

UI
UI
10
10

LAPT1

/SET INDEX REGISTER POINTER EQUAL TO 71!!111111

/CLEAR INDEX REGISTERS
1762
1763
1764
1765
1766
1767
1770
1771
1772
1773
1774
1715
1716

011100

nhl

CL1R1,

Ill

CL.A CL.I..
K711H
DCA I
K7H1
OCA I
1<701112
OCA I
1<71111113
OCA I
1(7004
OCA l
K7H5
OCA I
1(71111116
OOA I
I( 7Q!Jfll 7
OCA I
CLIR1
JMI' I

35'9

35,6
35,7
'15U

35!1

35~2
35~3

35!4
5762
I

1211

1<1211,

7773

1<7773,

1211

7773

/i!ERO IR l!l
/HRO IR 1
/ltRO IR 2
/i!ERO IR 3
/i!ERO IR 4
/i!ERO IR 5
/i!ERO IR 6
/i!ERO IR 7
/RETURN TO MAIN PROGRAM

trPP-12

tNSTRUCTIO~

TEST 2A

OlAL.10

V011l3

10158

7-0CT-71

PAGE 27

/T21•TEST F'CLA ANO rEXIT !~STRUCTtONS
/STARTING AT LOCATIO~ 1001
20e0
20021
2011!1
2002
2003
2004
201?15
2006

2007
20U
2011
2012
2013
2014
2015
2016
2017

65~2

44e5
1176
3533

'1'21,

•202'0
rFtCL
JMS l
TAO

OCA I

1176

TAO

3532

DCA I

U76

TAO

3531
100
3525
6553
1124
6555

7402
65h
5216

OCA I
TAO

OCA I
F'PCOM
TAO
rPST
ML.T
F'PtNT
JMP

THE F'P~ WO~L.~
/LOAD APT TASLE
/~ERO

LAPT
K7777
K4007
t<.7777
K4006
K7777
K4!1J05
K1001
K4001
K400~

/FAC L.SW EQUALS 7777
/F'AC MSW EQUAL.S 7777
/F'AC EXPONENT EQUALS 7777
/F'PC EOUAL.S 1001
/L.0AD CMD REGISTER
/APT TABL.E POINTER
/L.0AO AQRS REC!STER ANO START T~E rpp
/ERROR•F'PP AL.READY RUNNING
/SKIP ON F'PP INTERRUPT REQUEST

.-1

/EXAMINE APT TABLE roR CORRECT DATA
20 2111
2021
2022
2023
2024
2025

211l26
211l27

2ne
2n1
2032
211l33
2034

2035

2036
2n1
21a•0

~l
\.

'300

1533
?440
7402
15h

CL.A CL.L

KUl04

IL.SW OF' F'AC F'ROM APT TABLE TO AC
/SKIP IF' L.SW or F'AC [QUAL.S lERO
/ERROR - EXAMINE AC
/MSW OF' FAC F'ROM A'T TABLE TO AC
/SKIP IF MSW OF' F'AC EQUALS l£RO
/ERROR • EXAMINE AC
/EXPONENT OF' F'AC FROM APT TABL.[ TO AC
/SKIP lF EXPONENT 0, FAC EQUALS i!ERO
/ERROR - EXAMINE AC
/OPERAND AOORESS FROM APT TA8Lf TO AC

1<1001

/SMOUL.0 EQUAL 1001

TAO I

1(4001

/ERROR - FPP OPERAND INCORRECT
/fPC POINTER F'ROM APT TABLE TO AC

TAO

KU03

TAO I

K4007
K4006

74~2

SH
ML.T
TAO t
SU
ML.T

1531
1440

TAO 1

K40U

74~0

14h

1530
7041

10i5

,..,2
152'
7440
7041

2041
2042

1"67

2043

7422

7440

ML.T

TAO I

C!A
TAO

SU
ML.T

Si!A
ML.T

/SKIP IF LOC 4011l1 CONTAINS 1003
/ERROR - FPP FPC tNCORRECT

r·~

•

~
/rPP-12

INSTRUCT!O~

TEST 2A

DI A~ltl

\10213

7-0CT-71

1(21155

PAGE

•

/T22-TEST EXECJTION or I8T F'~HLT
/WHILE A re~· IS BEI~G EXECUTED
212144
212145
211)46

65!:2
73e121

10c5

2047
2050

3525
1176

20'1
211)52

1176

J533

2053

J5J2

20!5·4
20°55
211i5't

1176

20,.7
2060

2061
2062

J5j1

6553
11~4

,,,5
74E2
6554

2063

&551

211J~4

!5263
1Je0

206.5
2066
2067

211) 711J
211J71

T22,

Cl.A Cl.L
i<12101
TAO
K4'1l01
OCA
1(7777
TAi:l
K4'1l07
DCA
K7777
TA 0
K42'06
OCA
K.7777
TAO
K4005
DCA I
F"PCOM
1(41!11210
TAO
F'PST
loll. T

F'PML.T
F'P! NT

JM'

,•1

65~6

Cl.A CL.L
F'PRST

3023

DCA

NUM
NUM

1023

7041

:ii!l1J72

1064

211J.7 3
211J74
211J75
211J'76
20'77
21H
2101
2HJ2

74•0

1525
7041

1066
7440

7412

TAO

K4001

TAO

K1002

cu
Hl.T

2103

7440

2104
2105

15j2

Si A
Hl.T

2106

74411J

2110
2111
2112

14h
15h
7440
74~2

K4007

TAO

K 4el11J6

TAO

K4'1ll1l5

SU
Hl.T
SlA

Hl.T

THE F'PP WORLD

/SET F'PC POINTER EOUAL. TO

121~1

IF' AC LSW=7771

/F'AC MSw:7777
EXP•7777
/LOAD CMO REGISTER

/F'AC

F'PP

/L.0AD ADRS REGISTER AND START F'PP
/ERROR - rPP WAS AL.READY RUNNING
/IOT F'PHLT •EXECUTE CURRENT INSTRUCTION AND EXIT
/SKIP ON F'PP INTERRUPT REQUEST FLAG SET
/READ F'pp STATUS R~GISTER INTO AC
/STORE IMAGE OF STATUS IN LOCATION NUM
/SMOUL.D EQUAL. 1000 • CP FORCED EXIT
/YES - SKIP
/ERROR • EXAMINE L.OC NUM FOR INCORRECT STATUS VALUE
/FPC POINTtR F'ROM APT TABL.E TO AC
/SMOULD EQUAL. 1002
/YES • Sl<lP

SU
TAO

74~2

K111Jl1J~

TAO
SH
loll. T
TAO

15j3

2UJ7

/~EqO

i:-P IC~

/ERROR - EXAMINE L.OCATION 4001 FOR INCORRECT i:"PC POINTER VALUE
IL.SW OF FAC F'ROM APT TABLE TO AC
/SKIP IF' i!ERO
/ERROR
/MSW OF F'AC FROM APT TABLE TO AC
/SKIP Ir: i!ERO
/ERROR
/FAC EXPONENT FROM APT TABLE TO AC
/SKIP IF iERO
/ERROR

-·~~-~--~--~--,~·~-~- - ~~--------~-----------------------

INSTRUCTJO~

/F'PP-12

TEST 2A

:lAL.10

VH3

111J15S

7•0CT-71

/T23·TEST EXfCUTION OF' F'NEG AND •EXIT
/STA~TING A' L.O:ATION 10e3
2113
2114

2115
2116
2117
2120
2121
2122
2123
2124
2125
21u

212;

21321

21:U
ii?132

6552

T23,

44e5
Ui4
3533

::l CA

1114

TAO

2134

2U5

2136
2137

214tll
2141
2142
2143

2144

21'5
2146
21•1

2150
21'1
21'12
2153
21~4

l)
',

3532

OCA I

1114
3531
1067
3525
(1553
11il:4
6555
102
(1551

TAO

::lCA I
TAO
DCA I
F'l"COM
TAO

53~1

73~0

LAPT
1<2525
K4007
K2525
K4'2!06
1(2525
K4005
t<1003
K4001
K4000

F'PST
MLT
F'P!NT
J'°''
/EXA~lNE

2H3

>Pl Cl..
J"'5 I
TAO

CL.A C:L.L
KU07
TAO I

K5253

7440

7402

ML.T
TAO I

K41!06

1041
11~6

TAO
SU
ML, T
TAO I

1(5252

1<2525

7402

UC
SU
ML.T

5754
2200

JMI' I

,•1

2200

7H0
702
1531
1041
1114
1440

/lERO TME F'PP WORL~
/LOAD APT T.i\3LE
/ALTER F'AC L51oi
/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/ALTER F'PC
/LOAD CMD REGISTER F'qOM AC
/111000 TO AC
/LOAD ADRS REGISTER AND START TME F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST

APT TABLE TO DETERMINE IF' F'AC DATA IS CORREeT

1;j2

lNSTqu~TION

.-1

1533
7fll41
11~7

PAGE 2o

K4H5

/F'AC LSW F'ROH APT TASL.E TO AC
/F'AC LSW EQUAL 5253
/YES - SKIP
/NO - ERROR
/F'AC MSW F'ROM APT TABL.E TO AC
/F'AC MSW EQUAL 5252
/YES - SKIP
/NO - ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
IF'AC EXPONENT EQUAL 2525
/YES - SKIP
/NO - ERROR

r:~""
\

/F'PP-12

~
INSTRUCTIO~

TEST 2A

OIA1.10

V003

/T24 - TEST EXECUT!O~ OF F~EG
/START!~G AT ~OCAT!O~ 10~3
2200
221211
2202
2203
2204
2205
2206
2207

2210

2211
2212
2213
2214
2215

22e0
6552
44£5
1146
3533
11~6

3i;32
12167
3525
6'53

11c4
65'5
74~2

0'1
5214

'!'24'

•2202
FPICL
JMS I
TAO

OCA I
TAO

DC.A I
F'PCOM

TAO

F'PST
loll. T
F'PlNT
JMP

LAPT
i<5252
K4rll07
1<5252
K4006
1<1003
K4001
K4r/l01!J

10:58

7-0cT-71

A~D

FEx!T

PAGE

l~STRUCT!O~

/cERO THE FPP WORLD
/LOAD APT TABLE
/AC:::5252
/Al.. TER FAC LS!ol
/AC:::5252
/ALTER FAC MSW
/AC:::1003
/ALTER FPC
/LOAD CMO REGISTER
/4000 TQ AC
/LOAD ADRS REGISTER AND START F'PP
/ERRQR•FPP ALREADY RUNNING
/SKIP ON F'PP INTERRUPT REQUEST

• ·1

/EXAMINE APT TAoLE TO DETERMINE IF APT DATA IS CORRECT.
2216
2217
2220
2221
2222
2223
222•
Z2.25
22i6

2221
22!111

730

1533
7041
11U
74~0
74~2

1532

70~1

1114

,,,0
'4~2

Cl.A Cl.L
TAO I

K4r/l07

/F'AC LSW F'ROM APT TABl.E TO AC

TAO

K2526

/FAC LSW EQUAi. 2526
/YES - SKIP
/ERROR
/FAC MSW FROM APT TABl.E TO AC

cu
SH
Ml.T

TAO t

KUH

TlD

K2525

SU
Ml. T

/F'AC MSW EQUAL 2525
/YES - Sl<lP
/NO - ERROR

·~~~~·--~~~~~~~~~~.......................................i l l. .lllllill. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

trPP-12

!NSTRUCTIO~

TEST 2A

01AL10

\1003

10156

7•0CT-71

PAGE 31

/T25 - TEST EXECUTION or f"NEG AND FExIT INSTRUCTIONS
/STARTING AT LOCATION 1003
2231

2232
2233
2234
2235
2236
2237
22410
2241
2242
224:5
2244

65!: 2

.ue;
U24
3532

1067

3525
65~:5

T25,

f"PICL.
JMS I
TAO

K4~06

TAO

K100J

OCA I
rPeo,..

1(4001
K42100

Ui4

TAO
rPST

7U2

Ml.T
F'PINT
JM'

6551

5243

I( 4 21(1] I!!

OCA I

055

THE f"PP wORLO
/LOAD APT TABLE
/AC=4000
/ALTER F'AC MSW
/AC=1003
/ALTER rPC
/AC TO CMO REG.
/4000 TO AC
/LOAD AORS REGISTER AND START THE f"PP
/ERR-FPP WAS RUNNING
/SKIP ON FPP INTERRUPT REQUEST
/~ERO

L,AF'T

.-1

/EXAMINE APT TABLE TO DETERMINE IF F'AC DATA IS CORRECT
2245
2246
22'7
2250
2251
2252
2253
2254
2255
2256
2257
2260

1532

Cl.A Cl.L
K41!107
UO I
SU
Hl.T
1<411106
TAO I

74~2

SU
Ml.T

'7J20

1;j3
74421
74~2

7041
U'4
7440

1n1
?440
1d2

TAO

KOH

TAO I

K41!105

SU
Hl.T

/FAC LSW FROM APT TABLE TO AC
/SKIP IF' FAC LSW EQUAl.S 0
/ERROR
/F'AC MSW F'ROM APT TABLE TO AC
/COMPLIMENT ANO !NC
11.oc 40216 SHOUL0•4000
/AC::s0
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SKIP Ir EQUAL TO !ERO
/ERROR

I~~,

~-/

/fPP-12

tNSTRUCTIO~

TEST 2A

0 UL.1121

VHl3

7-0CT-71

IT26 - TEST EXECUTION OF' fNEG
/STARTING AT l.OCATION 10~3
T26,

F'P!CL

2261

6~!;2

2262
2263
2264
2265
2266
2267

441Z5

J~S

1176

TAO
OCA

2270
2271
2212
2273

2274

2215
2276

J533

1176
3~32

1067
3525
6!)!J

1124
6555

'402
6551
!1275

LAPT

TAO

K7777
K41!lt/J7
K7777
K4006
KUll/J3

OC:A I

K4H1

TAO

OCA

F'PCOM
TAO

K41!H

F'PINT
JMI'

.-1

r-PST
ML.T

10158

A~~

F'ExIT

PAGE 32

INSTqUCTIO~S

/eERO THE F'PP WORLD
/LOAD APT TABLE
/ALTER FAC L.SW
/ALTER F'AC MSW
/Al.TER fPC
/INTERRUPTS ON
/41!00 TO AC
/L.OAD ADRS REGISTER ANO START THE F'PP
/SKIP ON F'PP INTERRUPT REQUEST

J[XAMINE APT TABLE TO DETERMINE IF' F'AC DATA IS CORRECT
2277

2300
231!11
23"2
2393
2304
2305
2311J6

23"7
23UJ
2311
2312

73U
1533
7Pl41
1031!1
7441!1

74f2
1;h
7440

Cl.A Cl.L
TAO I
K41!107
Cl A
TAO
K1
SU
Ml.T
TAO I
K4011J6

7422

SiA
loll. T
TAD I

?Hiii

15h

Ml. T

K4ta05

/F'AC L.SW fROM APT TABl.E TO AC
/L.OC 4007 CONTAIN 1
/YES - SKIP
/ERROR
/F'AC MSW F'ROM APT TABl.E TO AC
/SKIP IF' fAC MSW EOUAl.S 0
/ERROR
/F'AC EXPONENT rROM APT TABLE TO AC
/SKIP lF' EQUAL TO !ERO

/ERROR

/FPP-12

INSTRUCTfO~

TEST 2A

DI 4i.10

V003

/T27-EXECUTE A r~ORM AND FEXIT
/ST4QT!NG AT i.OCATION 1005
2313
2314
2315
2316
2317
2320
2321
2322
2323
2324
2325
23U
2327
23321

6!:152

7320
3533
3!:132
11i3
35~1

3,070
;J525
6553
1124
6555
74~2

65'1
5327

T27,

FPICI.
Ci.A CL.L
K41Z107
DCA I
K41il06
DCA I
K3777
TAO
K4fll05
DC4 I
K1005
TAO
K4001
DCA I
rPCOM
K400Ql
TAO
rPST
HLT
FP!NT
... 1
J~?

PAGE 33

10158

7~0CT-71

!~STRuCTJON

/tERO

T~E

FP~

WO~L~

/SET UP FAC LSW
/SET UP FAC t.!Slol
/SET UP FAC EXPO~ENT
/SET UP F'PC
/LOAD rpp CMO REGISTER
/LOAD rpp AORS REGISTER ANO START T~E FPP
/ERRoR-rPP RUNNING
/SKIP ON rPP INTERRUPT REQUEST r1.AG

/EXAMINE APT TABLE FoR CoRRECT DATA

t6"i

' ;

7320
1sj3
7440

2331
2332
2333
23:54
2335
2336
2337
2341
2341
2342

74~2

TAO I
SZA
1-ii.T
TAO I
SH
HL.T

1531
7440
74~ 2

SH
HI. T

2343
2344

,744
24~0

JMP I
24210

74~2

1532
7440

CL.A C:L.L

TAO I

K4007
K41Z106
1(4005

/rAC MSW rROM APT TABLE TO AC
/SKIP Ir ZERO
/ERROR
/rAC LSW FROM APT TABLE TO AC
/SKIP Ir EQUAL TO !ERO
/ERROR
/rAC EXPONENT rROM APT TABLE TO AC
/SKIP Ir EQUAL ZERO
/ERROR

.•1

(.;::,-~.)
~.

/FPP-12

18'.,

~
1NSTRUCT10~

TEST 24

0 I Al.1e

Vli'lll!J

7•0CT-71

/T2S•EXECUTE A F'~QR~ A~O F'EX!T
/STARTING AT l.OCATlO~ 10e5
2420

24210
242!1

24122
2403
2404
2405
24U
24il7
24:2,il
2~11

2-4·12
2413
2.-14
2415

65;2

1JJe
3533
1064
J532
3531

101e

T28,

•2400
F'P I CL.
CL.A Cl.L CMI. RA~
1(4fll07
DCA 1

KUl02

OCA 1
OCA I

K40fll6
K41Z!e§

TAO

K1005

OCA I
F'PCOM

K4C!IH

,PST

TAO

K4000

65!15
14~2

HI. T

3525
11~<4

6'51
1214

F'P!NT
JMP

1'H5B

PAGE 34

I~STRuCT!ON

/lERO THE F'PP WO~L.0
/AC=40ill0
/SET UP F'AC LSW

/SET UP F'AC MSW
/SET UP F'AC EXPONENT
/SET UP F'PC
11.0AO F'PP CMO REGISTER
/I.CAO F'PP AORS REGISTER ANO START F'PP
/ERRoR-rPP RUNNING
/SKIP ON FPP INTERRUPT REQUEST F'L.AG

.•1

/EXAMINE APT TABLE F'OR CORRECT DATA
2416
24H
242"
2421
2422
2423
2424

1310
15j3
14~0

140

~5J2
7121~1

110

ua' '14f 2
l'H
24H 1eo
74'0

2426
2-427

i431

2432

1~~e

14'2

Cl.A Cl.L
TAO I
SU
ML.T

I( 01217

TAO I

1(4111216

TAO
SU

K211101

TAO I

1(4109

Ml.T

CIU

SU
Ml.T

/FAC L.SW rROM APT T4Bl.E TO AC
/YES-SKIP
/ERROR
/F'AC MSW FROM APT TABl.E TO AC
/SMOUl.D EQUAL 2ee1
/YES-Sl(IP
/ERROR
/FAC EXPONENT F'ROM APT TABLE TO 4C
/YES-SKIP
/ERROR

/FPP•12

!NSTRUCT!O~

TEST 2A

0 UL.H

V01!3

IT29•EXEC~TE
/STARTI~G

2433

6552

2434
24;55

13h

2436
2437
24421
24"1
2442
2443
2444
2445
2446

T29,

rPfCL
Cl.L I AC
1(4007
~CA I
KUH
DCA I
1(14
TAO
1(4Q'JZ5
OCA I

3533
3!>:!2

12137
;,.,31
UJ721

TAO

6553

OCA I
rPC0'4

11~4

TAO

3525

.,,,
65'1

24521

12~7

F'PINT
JMP , •1

Cl.A Cl.L
K4H7
TAO I
SZA

1sh
1448
14~2

Ml. 'I'

..,

TAO I
CIA
TAO
SH

1532
111141

ML.T

2463

1n1
'111'1

24611
246'
2466

74~1!1
14~2

14~1!1

11~1

INSTRUCTIO~

/cERO TME F'P? WORL.~
/AC=1
/SET UP F'AC LSW
/SET UP F'AC MSW
/SET UP F'AC EXPONENT
/I.CAD FPP CMO REGISTER
/I.CAD Fpp ADRS REGISTER ANO START F'?P
/ERRQR•F'PP RUNNING
/SKIP ON FP? l~TERRUPT REQUEST

K'9216
K2000

TAO l

K41U!

TAO

1<7766

MLT

/tAC 1.sw F'ROM APT TABLE TO AC
/SKIP Ir lERO
/ERROR
/F'AC MSW F'ROM APT TABLE TO AC
/SHOULD EQUAL 2800
/YES-SKIP
/ERROR
/F'AC EXPONENT FROM APT TABLE TO AC
/SMOUl.D EQUAL. 7766
/YES-SKIP
/ERROR

(---\

\,
-------~

PAGE 35

APT TABLE FOR CORRECT DATA

2461
2462

1(40Q!Z

ML,T

/EXA~INE

2468

1<1''105
K•Ul01

F'IJST

74~2

2447

2451
2492
2493
24,4
2455
24'6
207

A r~ORM 4NO F'EXIT
AT l.OCAT!ON 1005

Cl.A

10:58

7-0CT-71

----------------· -

)

()

~
trPP-12

19'\.

1
/

lNSTRUCTIO~

TEST 2A

0 lAL.10

Ve03

7-0CT-71

121158

PAGE 36

/T311J·EXECUTE A •NORM AND F'EX!T !NSTRUCTJON
/STARTING AT L.OCATION 1005
2467
2410
2471
2472
2473
2474
2475
24'16
2417
25ff
2,,,,
2502

2503
25·04

2505

.,52
'13U
1114
3;33
3532

U46
J5h

1070

TJZ,

F'PICL
Cl.A Cl..L

/cERo THE F'PP WORLD

OCA I
OCA I
TAO
OCA t

K2525
K41!l07
1(4006
1(5252
K41!l05

TAO

I( 11!105

TAO

1(4001

J525

OCA I

,,,,

F'PCOM

TAO

K40 01!!

74~2

Ml.T
F'PINT
JMI'

• •1

6.553
11~4

65'1

5324

rPST

/SET UP F' f.C LSW
/SET UP F'f.C MSW
/SET UP F'AC EXPONENT
/SET UP F'PC
IL.CAD Fpp CMO REGISTER
/L,OAO Fpp ACAS REGISTER AND START FPP
/ERROR F'PP RUNNING
/SKIP ON F'PP INTERRUPT REQUEST

/EXAMINE APT TABLE FOR CORRECT DATA
2506
2507
25UJ

2511
2512

2513
2514
2!515

25U
2517

2521
2521
2522
2523
25i4

'1;5i8J
1533
744(!1
74~2

1532
7041
1114
744(!1
74,2

1531
7041

1361
7'440
74U

!J~26

2525

Cl.A Cl.L
TAO t

K401/l7

Ml.T
TAO I

K4H6

TAD
SU
Hl..T
TAO I

K2525

TAO
SU
Ml.T

JMP

*2525

F'E>CIT

1(400!5
1<5236
TU

/FAC LSW FROM APT TABLE TO AC
/SKIP IF' EQUAL TO lERO
/ERROR
/F'AC MSW F'AOM APT TABl.E TO AC
/SMOULD EQUAL 2525
/YES-SI< IP
/ERROR
/FAC EXPONENT FROM APT TABLE TO AC
/SMOULO EQUAL 5236
/VES-SKIP
/ERROR

1rPP-12

INSTRUCTIO~

TEST 2A

OIAL.H!

V003

10: 58

7•0CT•71

PAt;E 37

/T31•EXECUTE A F'~ORM A~D F'EXIT
/STARTING AT LOCATION 1005
2526
2527
2530
2531
2532
2533
2534
2535
2536
253?
2541!1
2541
2542
2543
2544

2526
6552

T31 1

73~0

3533
11~6

•2526
F'P?CL
CL.A CLL CMA
1(41!!07
OCA I
TAO

35J2

DC: A I

11~4

TAO

3531
1071!1
3525
6553

OCA I
TAO
OCA I
F'PC:OM

6555

t<.7777

1(4006
K4002l
1(4005
1(100'
1(4001

TAD

K401!112!

6551

F'PST
"41.. T
F'P!NT

53~3

JMI'

• •1

11~4
74~2

ltERO THE F'P? WORL,j
IAC=7777

/SET UP F' AC LSW
/SET UP F'AC MSW
/SET UP F'AC EXPONENT
/SET UP F'PC
/LOAD FPP CMO REGISTER
/L.0AO FPP AORS REGISTER AND START F'PP
/ERRoR-F'PP RUNNING
/SKIP ON F'PP INTERRUPT REQUEST FL.AG

/EXAMINE APT TABLE FOR CORRECT DATA

2545
2546
2547
2550
2551
2552
2553
2554
2555
2556

7300
1'33
7440

25'7
2560

!IJ7U

JMP l

2620

2 61110

2561

5a~6

CL.A CL.L
K4eJ07
TAO 1

'14~2

HL.T

1532

TAC 1

K4006

TAO I

K4905

Sh
HL.T

?440
74~2

1531
'1440

14~2

ML.T

1(!5236,

IF'AC LSW F'ROM APT TABL.E TO AC
/SKIP IF' EQUAL TO lERO
/ERROR
/F'AC: MSW FROM APT TABL.E TO AC
/SKIP Ir EQUAL TO lERO
/ERROR
1rAc EXPONENT F'ROM APT TABLE TO AC
/SKIP IF' EQUAL TO !ERO
/ERROR

5236

~-:;;,~
1..,_

)

~
/rPP-12

INSTRUCTIO~

TEST 2A

DI AL.10

/T32-EXEC~TE
/STARTI~C

2620

2600
2601

6552
7344

2602

3;j3

2603
2604
2605

1176
3;32
11~3

26-UI'
26¢1

3531
1010
J;25
6-5!53

2612
2613

Uc4
6555

26216

26'7

2614

14~2

2615
262.6

6551
5215

TJ2,

V"'1J3

I( 4111 H

rPST
HI. 'I'
F'PtNT

J"'"

PA~E

!~STRuCTION

~OCATION

•26U
F' p ! c: L.
CL.A CMA CL.l. RAL.
1(4007
DCA I
K7777
TA!:l
DCA I
KUH
1(3777
TAO
K41!J05
OCA I
K11B05
TAO
K41!J01
OCA I
F'PCOM
TAO

10:58

7•0CT-71

A 'NORM AND rExIT
1a05

/~ERO THE FPP wORL.D
/AC•7776
/SET UP FAC LSW

/SET UP F'AC 1.1sw
/SET UP rAc EXPONENT
/SET UP rPc
/LOAD CMO REGISTER
/LOAD rpp ADRS REGISTER ANO START FPP
/ERROR•F'PP RUNNING
/SKIP ON F'PP INTERRUPT REQUEST

.-1

/EXAMINE APT TABLE roR CORRECT DATA
26:17
26U

7300
15j3
7-440

2623

1n2
1041
ut2
74'40

2621
2622

2624
26t5

2.626

Ui7
2630
26U
2632
2U3
2634

14~2

1531
'711141
1122
74~0

''~2

CL.A CL.l
K4110'7
TAO I
SU
Ml.T

TAO I

1(4806

TAO

KUIH

SU
Hl.T
TAO I

K411J0!5

TAO

1<3'752

SU
ML. T

/FAC LSW FROM APT TABL.E TO AC
/SKIP Ir EQUAL TO ~ERO
/ERROR
/F'AC MSW rROM APT TABL.E TO AC
/SKIP Ir EQUAL TO 6000
/ERROR
/FAC EXPONENT F'ROM APT TABL.E TO AC
/SMOULD EQUAL 3752
/YES-SKIP
/ERROR

/F'PP-12

1NSTRUCTI0~

TEST 2A

01 AL10

V02'3

U158

7-0CT-71

PAC:E 39

/T33•EXECUTE A r~ORM A~D A F'EXIT INSTRUCTION
/STARTING AT LOCATION 10~5
/TEST SIGN CMANGE Or rAC EXPONENT
I

2635
2636
2637
2640
2641
2642
2643
2644
2645
2646
2647
26!5"
2651
2652
26,3

6552
?344
35J3
s,176

T33,

3~:!2

1041
;J5:! 1
1070
3525
6553

F"P!Cl.
CL.A CMA Cl.L qAL
1(4007
OCA I
K717'1
TAO
K4006
OCA I
K24
TAO
KU05
OCA I
TAO

l<Ul09

TAO

K4000

OCA I
rPOOM

11~4

65!55
1402
65;1
5252

K4001

F'PS'!'

loll. T

F'PlNT
JM it

/tERO THE F'P? WORLD
/AC•7776
/SET UP F' AC t.SW
/SET UP F'AC MSW
/SET UP F'AC EXPONENT
/SET UP F'PC
/l.0AO CMO REGISTER
/LOAD AQRS REGISTER ANO START F'PP
/ERRoR-rPP RUNNING
/SKIP ON fPP INTERRUPT REQUEST F'LAG

• -1

/EXAMINE APT TABLE F'OR CORRECT DATA
I

2654
26!15
2656
26!17
26U
2661
2662

2663
2664
2665
2666
2667
267eJ
2671

()

7300

Cl.A Cl.I.

7440

SU
Ml.T

15~3

'4~2

1532
10•1
1152

744QJ

TAO I
TAO I

K4106

TAO

l<UlU

TAO I

K40n

74~2

SU
Ml.T

1176

cu
uo

1531
7041
744eJ

?4~2

K4"'117

SH
Ml.T

K7777

/F'AC 1.sw F"ROM APT TABl.E TO AC
/SKIP IF' EQUAL TO !ERO
/ERROR
/fAC MSW F'ROM APT TABl.E TO AC
/SMOULD EQUAL 6100
/YU-SK JP
/ERROR
/F'AC EXPONENT rRO~ APT TABLE TO AC
/SMOULD EQUAi. 7777
/YES-SK JP
/ERROR

r
'~

·~

trPP-12

INSTRUCTIO~

TEST 2A

OlAL.U

Vfi!l03

7•0CT-71

~
10:58

PA~E

/T34•EXECUTE A F"NOR~ AND F'EXIT I~STRUCTION
/STARTING AT ~OCATION 1005
/NUMBERS USEO SMOULD CAUSE AN EXPONENT U~OERF'~O~
I

2672
2673
2674
267!5
2676

2617
27H
Z7M
271:2
2703

2714
27 lll!S
27H
2707

3532

F"PICL
OCA I
TAO
DCA I

U'4

TAO

6!:>52
3533

T34,

1064

OCA I
TAO
OCA I

3531

111l711J
3'525
65~3

1124
65,,

6551
5326

K10H

K4r!l06
1(4000
K4fll11J'
1<1"'11!5

K4011J1

F'PC:OM
TAO

I( 4 '11 Ille

J~P

... 1

rPST
ML.T
PP!NT

14~2

1(4011J7

/~ERO THE F"PP wORLO
/SET UP F'AC LSW

/SE'.T UP F' AC h1SW
/SET UP F'AC EXPONENT
/SET UP F'PC
/LOAD F'PP CMO REGISTER
/LOAD AQRS REGISTER ANO START F"PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

/EXAMINE APT TABLE F'CR CORR[CT DATA
I

27U
2711
2712
27U
2714
1715
2716
2717
27U
2721

nu
un
741'11J
14@2

CL.A CLL
KUlllJ7
TAO I
SU
MLT

7441

TAO l
SU

1'31
74411

MLT
TlO I
SU
MLT

uu
74~2

'4~2

l<UllJ6

1<4IU

/F'AC LSW F'ROM APT TABLE TO ACC
/SKIP IF' U:RO
/ERROR
/F'AC MSW F'ROM APT TABL.C TO AC
/SKIP Ir EQUAL TO !ERO
/ERROR
/F'AC EXPONENT 1-"ROM APT TABLE TO AC
/SKIP IF' EQUAL TO !ERO
/ERROR

/EXPONENT UNOERF'LOW STATUS BIT SMOULO BE SET
I

2722
2723
2724
27i!S
2726
2127
27H

6556

1-"PRST
OCA

Slll24

1024
11/J41
1045
74411J
14e2

TAO

STATUS
STATUS

TAO

1<421

SU
Hl.T

/READ F'LOATING POINT STATUS REG INTO AC
/IMAGE or F'PP STATUS REG
/GET IMAGE
/COMPLIMENT ANO !NC
/LOC STATUS SHOUL0•4r!I
/AC:•0
/ERR-EXPONENT UNDERFLOW STATUS NOT SET

/WILL rPICL IOT CLEAR EXPONE~T UNDERrLOW F'LAC
I

2731
2732
2733
2734

65'2

6,56

rPICL
FPRST

7440

14~2

HL.T

/lERO THE rpp WORL~
/READ F'pP STATUS REG lNTO AC
/SHOULD:0
/ERR-FPP STATUS I~ AC NOT=~

•

/F'PP-12

!NSTRUC:T!O~

TEST 2A

DIAl.10

V003

1'!1158

7•0CT-71

PA(;E 41

IT40•EXECUTE A ALN AND FEX!T !~STRUCTIO~
1rRo~ LOCATION 1057
/WIT~ THE l\OEX REGISTER BITS EQUAL T~ Z
I

T40,

rl" I CL
JMS I

2735
2736
2737

6552
4422
1146

2740

3533

OCA

2741
2742

U,46

TAO

27'3
274'4
2749

2746
2747
27'0

2751
2752
2753
2794

TAO

3n2

DCA

1043

TAO

DCA
TAO
OC:A l
F'PCOM

3531

1012
J,25

6553
11i4
6555

TAO

F'PST
Hl.T
F'PlNT
JMI'

1•e2
65h
'353

/rERO THE F'P~ WORLD
Cl.IR
1<5252
1(4007
K5252
1<4006
K27
1<400,
KU51
K41Z101
K4 0 0il!l

/AL.TER F'AC L,SW
/ALTER F'AC MSW
/ALTER F'AC E¥i"ONENT
/ALTER rPC
/LOAD CMO REGISTER
/LOAD AORS REGISTER AND START F'PP
/ERROR
/SKIP ON F'l'P INTERRUPT REQUEST F'LAG

.-1

/EXAMINE APT TABLE F'OR CORRECT DATA
I

2755

13£11l

Cl.A C:L.L

27'6

S.'33
7041
u~•

TAO I

K4007

/F'AC L.Sw FROM APT TAeL.£ TO AC

C: l A
TAO

1<5252

/SMOULD EQUAL 5252
IYES-Sl({P
/ERROR
IF'AC MSW F'ROM APT TABL.£ TO AC

2757

2760
27U

2762

74iii2

2763

15h

2764

71H1
1146

2765
2766

sat

7-UQI

Ml.T

TAO I

1<40"6

TAO

1<5252

7440

2767

14Z2

2770

S.'h

ML.T
TAO I
Cl A
TAO

2771
2772
2773
2774

711141
1111~3

74411!
74~2

1""1
\ /

5776
3020

K27

loll. T

2775
27'6

!<4005

JMlll I

3000

/SMOULD EQUAL. 5252
/YES-SI< IP

/ERROR
/FAC EXPONENT F'ROM APT TABLE TO AC
/S~OULD EQUAL. 27
/YES-SK IP
/ERROR

.•1

(:~

~
/rPP-12

~·

INSTRUCTlO~

TEST 2A

01A1.1e

V003

U:59

7•0CT-71

PAGE 42

/T41-EXECUTE A ALN AND F'EXIT I~STRUCTION
/rROM 1.0CATlON 1057
/WIT~ THE l~OEX ~EGISTER BITS EQUAL TO 0
30£0
3H0
3H1
311102
3003
3f04
3085

30ff

301'1
:Stl.0'

6552
'1JU
1146
3533
11~•
3532

•301H

T41,

r:'P!C:L
CL.A CL.L
TAO

OCA I
TAO

1-042
3531

OCA I
TAO
OCA I

1012

TAO

31!111
311112
3"13

~525
65~3

3014

059

OCA I
f'PCOM
TAO
F'PST

31111'
3016
3"17

7'422

Hi. T

11~4

oh
ii16

rPtNT
JMI'

/lERO THE F'PP WORLO
K5252
4l!J07
1(5252
I(

/AL.TER F'AC 1.sw

K41!J"6

/Al.TER F'AC MSW

K26

4l!J"

/ALTER F'AC EXPONENT

1(41801

/ALTER F'PC
/l.OAO CMO REGISTER

I(
5
I( 11115 7

1(400a

/l.OAO AORS REGISTER ANO START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST FLAG

,•1

/EXAMINE Al'T TABl.E FOR CORRECT DATA
UH

13~0

:SIU2
3(1123

7041

TAO

1<2525

3014
:t81'
3026

7440

SU
MLT
TAO t

KOH

:sn1 1533

:SllJ27
:SUIJ

74ia

15h
1111~1

U79

3031

14~0
74~2

31U3

:1'31
10'41

:sn2
JS:S4

3H5

:seu

3937

U143
,4,,
'14~2

CL.A CL.L
K4H1
TAO I

TAO
SU
ML.T
TAO 1

1(6525

TAO
SU

K27

HLT

K41!J"5

/F'AC 1.sw FROM APT TABL.E TO AC
/SMOUL.0 EQUAi. 2925
/YES-Sl<IP
/ERROR
/F'AC MSW FROM APT TABL.E TO AC
/SMOUl.0 EQUAi. 6525
/YES-SKIP
/ERROR
/FAC EXPONENT FRO~ APT TABLE TO AC
/SMOUL.0 EQUAL 27
/YES-SI< IP
/ERROR

/FPP-12

tNSTRUCT?O~

TEST 2A

DlA1,,10

Vl1J93

1111158

1-0C:T-71

PAGE 43

/T42wEXECUTE A ALN AND rEXIT INST~UCTION
/F'RO~ LOCATION 1057
/WITM INDEX ~EGISTER BITS EQUAL TO e
3040
3041
3042
3043
3044
3045
3046
3047
3050
3051
3052
3053
3054
3f2l55
30!16
J11J!l7

6552

T42,

7320

1146
3!:1~3

1122
~5:!2

1044
3531

1072
35c5
6553
U24
6555
7'402

6551
5256
/EXAMI~E

311J60

73~111

31!l61

1533

3062
3U3
3064
3065

3066
3067
3010
311111
3012
3073
3074

3075
3076
3017

r')

7'11~1

1113
744111

74~2

15U
721~ 1

1114

?440
74,2
1531
7041

s,043
7440
14~2

F"P!CL
CL.A CL.L
K5252
TAO
1(4007
OCA I
K1252
TAO
K4006
OCA l
K30
TAO
K4005
DCA I
KUl57
TAO
K4001
DCA I
F'PCOM
K40011J
TAO
rPST
Hl.T
F'l"!NT
JMP
.-1

/lERQ THE F"PP WORLD
I ALTER F" AC

l.SW

/ALTER F"AC MSW
/Al.TER FAC EXPONENT
/AL.TER FPC
/L.0AD CMD REGISTER
/L,OAD REGISTER ANO START F'PP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST FLAG

APT TA8L.E FOR CORRECT DATA
Cl.A CLL
TAO 1

!<4H1

/rAC LSW FROM APT TABLE TO AC:

TAO
SH
HL.T
TAO 1

K2524
1<411'J11J6

/SMOUL.D EQUAL 2524
/YES-Sl<IP
/ERROR
/F'AC MSW FROM APT TABLE TO AC

TAO

1<252,

SU
ML.T
TAO I
C: l A
TAO
SU
Ml.T

K41H9

/SHOULD EQUAL 2525
/YES-SKIP
/ERROR
1rAc EXPONENT r~OM APT TABLE TO AC

K21

/SMOULD EQUAL 27
/YES-SKIP

/ERROR

~-:~"'

'·)

~
/FPP-12

·~

lNSTRUCTIO~

TEST 2A

'.)I AL10

V003

U:5S

1 .. ocT-71

PAGE 44

IT43·E~ECWTE A ALN A~O f"EXIT INSTRUCTIO~
/FRO~ ~OCATIO~ 1Z57
/wIT~ INDEV REGISTER BITS EQUAL TO 0

31(110
3101
311?12
31"JJ
3104
3111!5
3106
31;0:7
3'U.9
J·tt1

3112
31:1.3
311'4
3U5
3U6

6'52
'1JIZl'IJ
J53J
UIZ4

T43,

F'PICL
Cl..A Cl.L
K400'1
OCA I
TAO
K201'/J0

3!>32
1030
3531
1072

OCA

K4H6

TA.O

K1
K411llll5
KU57
K4f01

,,,,

F'~COM

;l525
6553

1124

7422

65!h

5315

OCA

TAO

OCA I

TAO
F'PST
Ml.T
F'PINT

K4ell!llZI

JM~

.-1

/tERO

f~E

F'PP WORLD

/ALTER F"AC LSW
/ALTER FAC MSW
/ALTER f'AC EXPONENT
/ALTER FPC
/l.OAO CMO REGISTER
/LOAD ADRS RfG!STER ANO START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST FL.AG

/EXAMINE A•T TABLE FOR CORRECT DATA
3111
J1UJ
31!1
3122
3123
3124
3125
3126
3127
3130

73U
1533
7041
1(1J3 0

744111
'14@2

1'32
'1440

1•h
1'~1

31!1
3132
3133

1043

3134

74h

1041

14'40

Cl.A CLL
I( 41!101
TAO I

TAO
SU
ML.T
TAO I
SU
Hl.T
TAO I

TAO
SU
Ml.T

1<27

K4Hl6
1(41!J05

/FAC I.SW FRO~ APT TABLE TO AC
/SlolOULD EQUAL 1
/YES-SK IP
/ERROR
/FAC MSW FROM APT TABLE TO AC
/SKIP IF i£RO
/ERROR
/f'AC EXPONENT F'ROM APT TABLE TO AC
/SMOULO EQUAL. 27
/YES-SI< IP
/ERROR

!NSTRUCT10~

/FPP·12

TEST 2A

DIAL.1111

VU3

10158

?•OCT-71

PAGE 45

/T44•EXECUTE A ALN A~D F'EXIT I~STRUCTIO~
/FROM LOCATIO~ 1~57
/WITH INDEX REGISTER BITS E~JA~ TO ~

3135

6552

'l'4 4 I

7300

3137

1fil30

TAO

~53J

OCA I
DCA I

314il

3141
3142
3143
3144
3145
3146

3147

315121
31'1
31'2
3153

3532
U74
3531
'-972
3'25

TAO

OCA t
TAO
OCA I
F'PCOM

6553
Ui4
6555
74@2

TAO

FPST
Hl.T
F"P?NT
JM!'

65'1
'3'2

/~ERO

F'P?CL.
CL.A CL.L

3136

K1
1(4007
K4006

K55
K41/J1215

K1057
K4001
1(400~

THE F'PP WORLO

/AL.TER F'AC LSW
/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/AL.TER F'PC
/L.0AO CMO REGISTER
/LOAD AORS REGISTER ANO START F'PP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST F'L.AG

.-1

/EXAMINE APT TABLE F'OR CORRECT DATA
3194
31'5
3156
31!17

31U
3161

3162
3163
3164

3165
3166
3167
3170
3171

t"i
'~

Cl.A Cl.L

in:s
74~0

74i2
2,532
7041

TAO l
SU
Ml.T
TAO I

1(41807

TAO
SU
Ml. T
TAO I
ClA
TAO
SU
Ml.T

K2Hl/J

,•1

ue.

7440

14~2·

2.Sh

711141

10•3
74~0

74,2

3112
3173

t7?3

JMP l

3220

32H

~174

00'5

:5175

6525

1(5' I
1(6525,

I< 4"'216

1(41/J12l'
!<27

/F'AC L.SW FROM APT TABl.E TO AC
/Sl<lP IF' i!ERO
/ERROR
/F'AC MSW F'ROM APT TABl.E TO AC
/SHOULD EQUAL 212100
/YES-SKIP
/ERROR
/F'AC EXPONENT FROM APT TABLE TO AC
/SMOUL.0 EQUAL 27
/YES-SKIP
/ERROR

55
6!525

~~i
i
I

~
/F'PP-12

tNSTRUCT!O~

TEST 2A

DI AL.121

V003

~
10158

7-0C:T.71

PA~E

A ALN AND FEXJT I~STRUCTION
1061
THE INDEX REGISTER BITS EOuAL T~ 1

/T45~EXECUTE
;rRo~

/~IT~

32lZ

T45,

~OCATIO~

•3220
rPtCL

32~Hl

e!>52

3201
3202
3203
3204
3205
3216
3217

4422
44e5
1176
35J3
UiJ

TAO

~532

OCA I

32U

3211
3212
3213
3214
3215
3216
3217
3220
3221
3222

1114
3531
1345
3525
1114
35'6
6553
11'4
6!>55

7U2
6551
5221

JMS I
JMS I
DCA I
TAO

OCA !

TAO

OCA I
TAO

OCA I
rPcOM
TAO

rPST
Hl.T
F'PlNT
JMP'

CL!R

LAF'T
1(7177
1(4007
1(3777
K4'1l06
K2525
K4r.!!05
K1361
K4001
K2525
K7012l1
1(4000

/CLEAR THE INDEX REGISTERS
/LOAD THE APT TABLE

<700Z·7~~7l

/ALTER FAC LSW
/ALTER FAC MSW
/ALTER FAC EXPONENT
/ALTER FPC
IALTEH INDEX REGISTER LOC 7001
/L.0AO CMD REGISTER
IL.CAO AORS REGISTER ANO START FPP
/SKIP ON fPP INTERRUPT REQUEST F'LAG

.-1

/EXAMINE APT TABLE FOR CORRECT DATA
3223
3224
3225
3226
3227
32J121
32$1
32;52
3233
3234
3235
3236
3237
3240
3241

7300

153;5
70421

7440
74~2

1532
7041
UcJ
744QJ

74~2

1531
1041
1114
7440
74~2

Cl.A CL.L
K4H7
TAO 1
CMA
SU
HL.T
KtHl06
TAO I
CIA
K3777
TAO
Si!l
~l.T

TAO I
c: IA
TAO
SU
~l.T

K4005
K2525

IF'AC L.SW FROM APT TABLE TO AC
/SHOUL0•7777
/Sl<lP IF' AC:•ta
/ERROR
IF'AC MSW FROM APT TABLE TO AC
/SHOULD EQUAL 3777
/YES-SKIP
/ERROR
/tAC EXPONENT FROM APT TABLE TO AC
/SHOULD EQUAL 2525
/VE'.S-SKIP
/ERROR

/F'PP-12

INSTRUcTio~

TEST 2A

oIAt..10

VH3

?•OCT-71

10158

PAI;£ 47

/T46-EX£CUTE A ALN ANO F'EXIT I~STRUCTION
/F'ROM LOCATION 1063
/WIT~ THE !NOEX REGISTER BITS EQUAL TO 2
3242
3243
3244
3245
3246
3247
3250
32!51
32,2
3253
3254
3255
3256
3257
3260

3261
3262
3263
3264

T46,

3~33

rPtCL
JMS I
JMS !
TAO
DCA I

1176

TAO

6!:>!:12
4422
44£5
1J5e

3532

OCA I

1176

TAO

3'31

OCA I

13~6

025

1030
3557
6553

,,,,
1124

'4~2

6551
'2~3

TAO

OCA I
TAO
OCA I
F'PCOM
TAO
rPST
Ml.T
J"PlNT
JM!I'

CLIR
LAPT

/CLEAR T~E !~DEX REGISTERS
/LOAO THE APT TABLE

K7774
1<400?

/ALTER rAC LSW

K?777
K4H6
K.'777?
1(4005
1<1363
1(411.101
I< 1

K7011J2

K.4000

... ,,

(70~~·70i7l

/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/ALTER F'PC
/ALTER INDEX REGtSTER LOC, '7002
/LOAD CMO REGISTER
/LOAD AORS REGISTER AND START F'PP
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

/EXAMINE APT TABLE F'OR CORRECT DATA
13U

3266

1533

TAO 1

10411

CMA

3267
32711
3271
3272
3213
3274
3275

3216
32'77

JJH
33111

3302

()

Cl.A Cl.L

3265

.,.,II
'4~2

1IU0

1440
14~2
1531

7041
1n0

'''"
14~2

K41!J07

SH
HL.T
TAO I
CMA

K41!JIU

Ml.T
TAO I

K42105

TAO
Si!A

1-11. T

/F'AC LSW F'ROM A,T TABl.E TO AC
/SMOULD11'77'
/SKIP lF' AC•el
/ERROR
/F'AC MSW F'AOM APT TABl.E TO AC
/SMOUL0s'777
/SKJP lF' AC•0
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SMOULD EQUAL. 1
/YES-SKIP
/ERROR

(~
\c

~
/F'PP-12

INSTRUCTlO~

TEST 2A

0 l AL. Ul

V00 3

~
10158

7-0CT-71

PAGE 48

/T47-EXECUTE A ALN AND FEXIT !~STRUCTION
/FROM L.OCATION 1065
/WITH THE INDEX REGISTER BITS EOUA~ TO 3
3303
3304
3305
3306
3307
3310
3311

33'1'.2

6'52
4422
4425
1114
3533
3532
1134
3531

J~~.3·

13,~7

3:·3:1;,"'

!525
1124

3315
JJU
3317
3320
33U

3560
65,3
1144
6555

3U2
332.3
3324

6551
5323

T47 1

F'P!CL
JMS I
JMS I
TAO
DCA
OCA

TAO
OCA

TAO
DCA

TAO
OCA I
P"POOM
TAO
F'PST
Ml.T

'4~2

CL.IR
L.APT
K2525
K401217
K412106
K4014
K4H!5
K1065
K4'1l01
K4002!
K700J
K40HJ

!712120·7~Z7l

/ALTER F'AC L.SW
/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/AL.TER FPC
/ALTER INDEX REGISTER LOC, 71211213
/LOAD CMD REGISTER
/LOAD AORS REGISTER AND START F'PP
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

F'PINT

JM ..

/CLEAR THE INDEX REGISTERS
/LOAD THE APT TABLE

.-1

/EXAMINE APT TABLE F'OR CORRECT DATA
3325
3326
3327
33H
3331
33:52
3333
3334
3335
3336
3337
3340
3341
3342

7300
1533

Cl.A Cl.L
K•4el07
TAO I
SU
Ml.T
K412106
TAO' I

74~0

74~2

1532
7041
:1.114
74,0
7.U2
1531
7041
1124
1440

Ml.T

5744
341Z0

3345
3346
3347
3350

112161
112163
1065
7774

TAO 1

K41!105

TAO

K4002l

c:u

74~2

3343
3344

K2525

Si!A

Ml.T

JMP t
3400

K10611
K1063,
K10651
'(77?4 I

1061
UJ63

1065
7174

.•1

/F'AC LSW F'ROM APT TABl.E TO AC
/SKIP IF' EQUAL TO !ERO
/ERROR
/F'AC MSW F'ROM APT TABl.E TO AC
/SMOULD EQUAL 2525
/YES-SKIP
/ERROR
/rAC EXPONENT rROM APT TABLE TO AC
/SMOULD EQUAL 4000
/YES-SKIP
/ERROR

/F'PP-12

!NSTRUCTlO~

TEST 2A

DUL.12

V003

10:58

7•0CT-71

?ACE 49

IT48•EXECvTE A ALN A~D F'EXIT INSTRUCTION
/F'ROM LOCATIO~ 1~67
/ltlITM THE !~~Ex REGISTER BITS EQUAL TD 4
He0

3400

6552

341211
3402
3403
3404
3405
3406

4422
4411!5

3407
3410

34U

•34121"1
F'PlCL.
JMS I
JMS I
DCA 1

J5:33
U14
3532

DCA I

13~6

TAO

3531

DCA I

13~3

TAO

3525

3412
3413

11~3

3414
3415
3416
3417

6553

3420
3421

T48,

DCA I
TAO

""
6551

DCA I
F'PCOM
TAO
F'PST
Ml.T
F'PlNT

~220

JMlt

35~1

1124
14~2

CLlR
LAF'T
K4001
K2525
1<42106
K3763
1(4005
K1061
K4001.
K3771
1(7004
1(4000

.-s.

/CL.EAR THE INDEX REGISTERS
/L.0AO THE AF'T TABLE
/ALTER F'AC L.SW

(70~121-7121~7)

/ALTER F'AC MSW
/ALTER F'AC EXPONENT
OL. TER F'PC
/AL.TER INDEX REGISTER LOC, 701214
/LOAD CMD REGISTER
IL.OAO AORS REGISTER AND START F'PP
/SKIP ON FP? INTERRU?T REQUEST F'L.AG

/EXAMINE APT TABL.E F'OR CORRECT DATA
3422

3424

1Ha
7041

3425
3426

7441!1

3427
3430
34:U
3432
3433
3434
34:'5!5
3436
34:$7

('1

3423

Ui~

74~2

15U
7441!1
74~2

1'U

1041
11~3

7440

14h

Cl.A Cl.L
K4e07
TAO l

cu
TAO

SU
Ml.T

TAO I
Sh
ML.T
TAO I

cu
uo

SU
Hl.T

K2525
K40"6

K4005
1(3777

/F'AC L.SW FROM APT TABl.E TO AC
/SMOUL.D EQUAL 2525
/YES-SKIP
/ERROR
/F'AC MSW FROM APT TABl.E TO AC
/SKIP IF' ~ERO
/ERROR
/FAC EXPONENT FRO~ APT TABLE TO AC
EQUAL. 3777
/YES-SKIP
/ERROR
/SMOU~D

/
I

/rPP-12

·~

I~STRU:TIO~

TEST 2A

DI AL1ill

Vill03

/T49-EXECUTE A ALN

A~D

1-ocr-11

1'!1158

PAGE 50

F"EXIT INSTRUCTION

/F'ROM LOCATION 112171
/~IT~

3440
3441

3442
3443
3444
3445

6552
4422
44~5

10:!0

T49,

THE

!~~EX

F'PICL
JMS l
J"1S I
TAO

3533

DCA

Ui4

TAO

3446

3532

OCA

3447

1037

TAD

34'0

3531

OCA

3451

13~4

TAO

3452

3453
3454

3525
1111
35~2

3456
3457

6553
114'4
6555

34H

14~2

3461

6551

3455

3462

!12~1

DCA
TAO

DCA I
F'PCOr.1
TAO

Cl.IR
UPT
K1
K4007
K400e
K4006
K14
K4005
1<1071
K4001
K7766
K7005
K401210

rl'ST

Hl.T
F'PINT
JMI'

E~UAL

TO 5

/CLEAR THE INDEX REGISTERS
/LOAO THE APT TABLE

(7Z00-7Z~7l

/Al.TER F'AC LSw
/ALTER F'AC MSl<I
/ALTER F'AC EXPONENT
/Al. TER F'PC
/Al.TER INDEX REGISTER LOC, 701215
/l.OAD CMO REGISTER
/I.CAD AORS REGISTER AND START F'?P
/SKIP ON rPP INTERRUPT REQUEST F'LAG

.-1

/EXAMINE APT TABLE F'OR CORRECT DATA
3463

131110

3464
3465

1533

Cl.A Cl.L
K4007
TAO I

1440

Si!A

3466

74~2

3467
34711
3471
3472
3473
34'14
3475
3476
3477

Hl.T

1532

'14~2

Hl.T

1531
'"•1
1171
7440

TAO I

J50il

74~2

7041

Ulll4

7440

TAO I

ClA

TAO
SU

Cl A
TAO

SU
H~T

K4fJ06
K21800
K400!S
K7766

/fAC LSW FROM APT TABl.E TO AC
/SKIP IF' URO
/ERROR
/F'AC MSW F'ROM APT TABl.E TO AC
ISHOUl.D EQUAL 20121121
/YES-Sl<I P
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SHOULD EQUAL 7766
/YES-Sl(JP
/ERROR

/fPP-12

!NSTRUeTlO~

TEST 2A

0 IA1.10

V003

PAGE 51

10158

7-0CT-71

IT50·EXECUTE A ALN AND FEX!T I~STRUCTION
LOCATION 1073 IN QOUBLE PRECISION MODE
/WITW THE !')EX REG!STE~ BITS EQUAL TO 6
/FRO~

35~1

3502
3503
3504
J525
3506
3507
351"1
3511
3512
3513
3514
3515
35U
3517
3520
3521
3522

&552
4422

T51i'J,

1n21
3533
~532

1146
~531

13~!9

3525
1170
U~J

11~4

F'PICL
JMS 1
JMS 1
TAO
OCA I
OCA I
TAO
OCA I
TAO
OCA I
TAO
OCA I
TAO

F'PC:OM
r:'PST
ML.T
rPtNT
JMP

6''3
655'
74~2

65'1

!:1~21

CLIR
LAPT
I( 1

K41i'J0?
K41!!06
1<5252
K4005
K1073
1(4001
1(7752
K7006
K4l!IH

/CLEAR THE INDEX REGISTERS
/LOAD THE APT TABLE

<71i'l2Z•71i'l~7l

/AL.TER F'AC L.SW
/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/ALTER F'PC
/ALTER INDEX REG!STE? LOC, 7006
/LOAD CMO REGISTER
/LOAD AQRS REGISTER ANO STA~T F'PP
/SKIP ON F'PP

INT~RRUPT

REQUEST fl.AG

,•1

/EXAMINE APT TABLE F'OR CORRECT DATA
3523
3524
3525
3526
352'1
3531
35U
3532
3533
3534
3535
3536
35~7

~.
\..

Cl.A C:l.L.
1(4eJ01
TAO I
SU
Hl.T

73U
1533
.,.~Ill

'4~2

15U

TAO I

K40J06

TAO
SU
Ml.T
TAO I

K2000

TAO
SU
Ml.T

1<5252

,+1

'"~1
uu

'14~0
74~2

1531

70~1

11,6
7440

3540

74~2

3541
J542

5742

JMP I

~6U

361!0

3543
3544
3545
350

1"61

1071
1073
~P~J

K1067,
1<1071,
1<1073.
K3763,

K41!!05

/F'AC I.SW F'RO~ APT TABl.E TO AC
/SKIP Ir URO
/ERROR
/F'AC MSW F'ROM APT TABl.E TO AC
/Sl<IP IF' URO
/ERROR
/tAC EXPONENT r~OM APT TABLE TO AC
/SMOULD EQUAL 5252
/Yf:S-SKIP
/ERROR

1'!16?
1071
11Zl73

3763

{
/"

F:"'
f
\,

""'

/FPP-12

INST~UCTIO~

TEST 2A

0 I AL.10

V003

~
10:58

7~0CT·71

PAGE 52

/T51-EXECU'E A AL.N AND FEXIT INSTRUC110N
/FRO~ ~OCATI~N 1075 IN DOUBL.E PRECISION MOOE
/WITH THE !~DEX REGISTER BITS EQUAL TO 7
36~0

3600 6552
3601 4422
3602 44e5
3603 35;53
3604 1U4
3605 3532
3606 1114
'3;6;17 -3"5:! 1
'3-'6;110 1366
3611 3525
3612 1042
3613 3564
3614 11~4
3"615 6553
3616 -6!S55
3617 14~2
3620 6551
301

52221

1136~0

T51,

FP!CL.
JMS l
JMS l
DCA I
TAC

OC A I
TA 0

'O'CA I

TAO

DCA l
'!'AO

OCA 1
TAO
FPC:OM

CLl R
UPT
K4i:!l07
K2000
K42106
K2525
1(4005
K1075
KUl01
K26
K7H7
K4011ll'J

1PST

HL.T
F'PINT
Jt-11'

/CLEAR THE INDEX REGISTERS
/LOAD iHE APT TA8L.E
/ill TER F' AC L.SW

<700~·70217)

/ALTER F'AC MSW
/ALTER FAC EXPONENT
/Al..TE:R FPC
/AL.TER !ND!X REGISTER L.OC, 7007
/LOAD CMO REGISTER
/LOAD ADRS REGISTER AND START FPP
/SKIP ON FPP INTERRUPT REQUEST FL.AG

,-1

/EXAMINE A'T TABL.E FOR CORRECT DATA
3622
36'23
3624
3625
36~6

3627
36H
3631
3632
3633
3634
3635
3636
3U7

13Z0
1!)33
'flll41
11'/l J"
1440
'14~2

1'32
7440
?4~2

1531
7041
1114
?440
74~2

CL.A CL.L.
K4011l7
TAO I

TAt)

SU
Ml.T
TAO l
Si!A
ML. T
TAO 1
CIA
TAO

Hl.T

Kl
K4e06
KH!lll5

1<2525

/FAC isw FROM APT TABLE TO AC
/SKIP Ir EQUAL TO !ERO
/ERROR
1rAc MSW FROM APT TABl.E TO AC
/SKIP IF EQUAL TO 0
/ERROR
1rAc EXPONENT rROM APT TABLE TO AC
/SHOULD EQUAL. 2525
/YE'.S-SKIP
/ERROR

INSTRUCTlO~

/F'PP-12

TEST 2A

O IAL.10

V003

7•0CT-71

10:58

PAGE 53

/T52 - TEST EXECUTION OF' F'LDA AND rEx!T INSTRUCTIONS
/STAQTING rqoM. L.OCATION 100?
3640
3641
3642
3643
3644
3645
3646
3647
36511J
3651

6~52

440
1363
3525

T52,

F'P!CL.
JMS l
TAO

LAPT
K1007
K4001

/~ERO THE F'PP wORL.D
IL.CAO APT TA~LE

TAO

K4000

6551

'4~2

r?ST
Ml. T
F'PINT

/Al.TER F'PC
/AC TO CMD REGISTER
/400121 TO AC
IL.CAO AORS REGISTER AND START F'PP
/ERROR - F'PP AL.READY RUNNING

52,llJ

JMP

.-1

/DELAY TO AL.LOW F'PP TIME

''':S
11~4
6555

OCA I
F'PCOM

F'I~ISM

/EXAMINE APT TABLE TO DETERMINE IF' F'AC DATA IS CORRECT
3652
3653
3654
3655
3656
36'7
36U
3661
3662
366:5
3664
3665
3666

t*':
\

,300
15J:S
10411J
74~11J
74~2

1532
7UllJ
74411J
''~2
1!5:51
70411J

,, ••,2

CL.A Cl.L
TAO I

CMA
SH
Hl.T
TAO I
CMA
SU
HI. 'T
TAO I
CMA
SU
loll.'

K4001

1rAc LSW F'ROM APT TABL.E TO AC

K006

/SKIP IF' EQUAL. TO 7777
/ERROR
/F'AC MSW F'ROM APT TABl.E TO AC

K41!l0!5

/SKIP Ir EQUAL. TO 7771
/ERROR
/F'AC EXPONENT F'AOM APT TABLE TO AC
/SKIP IF' EQUAL. TO 7777
/ERROR

t~~\

~
/F'PP-12

:~STRUCT!O~

TEST 2A

0 lALl.~

V003

7-0CT-71

/T53 - TEST EXECUTION ~F FLOA
FROM LOCAT!O~ 1~11

~
1'11158

A~D

FEXIT

PAl::E 54

lNSTRUCT!O~S

/STA~TlNG

3667

6552

367~

4425

3671

1176

3612
3673
3674
3675
3676
3677
3700
3701
3702
3703
3704
3705
3706

3533
1176

3532
1176
3531

13~4

352!5
6553
1124

65'5
7402

65!h
531Z5

T53,

FPI Cl..
J "'1 S I
TA 0
DC• I
TAO
DCA I
TAO
DC• I

TAO

OCA I
F'PC:OM
TAO
F'PST
Hl.T
F'P!"'IT
JMP

LAPT
K7777
K4007
K.7777
K411!06
K7777
K4005
K1011

/cERO THE FP? WORi,.O
/LOAD APT TABLE
/ALTER FAC LSW
/ALTER FAC MSW
/ALTER FAC EXPONENT

K4000

/ALTER FPC
/LOAD FPP CMD REG!STER
/4000 TO AC
/LOAD ADRS REGISTER AND START FPP
/ERROR - FPP ALREAOY RUNNING

. ·1

/DELAY TO ALLOW F'PP TIME TO FINISH

K4001

/EXAMINE APT TABLE TO DETERMINE IF F'AC DATA IS CORRECT
3707

37:1.0
3711

3712
3713
3714
J 7 :1.5
3716

3717

3720

'300

15~3
74~0
74~2

1532
7440
14~2
1531
'144(1)

14h

CL.A CL.L

TAO I
SH
HLT
TAO I
Sh
HI. 1'
TAO I
SiA
J.11. T

K4H7

K4006
K41!10!!J

/F'AC LSW FROM APT TABLE TO AC
/SKIP IF AC ~QUALS l£RO
/ERROR
/F'AC: MSW FROM APT TABl.E TO AC
/SKIP Ir AC EQUALS l£RO
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SKIP Ir ~c £QU~LS l£RO
/ERROR

trPP-12

!NSTRUCTIO~

TEST 2A

DlAL.10

Vllllll3

/T54 • EXECUTE F'LOA AND FEX!T
/STA~TING AT LOCATION 1013
3721
3722
3723
3724
3725
3726
3727
37 31!1
3731
3732
3733
37:54
3735

3736
3737
3740

65;2

3533

FP!CL
JMS I
TAO
DCA I

1146

TAO

T54,

,.~,

11~6

3532

OCA I

1146

TAO

LAPT
K5252
K41!l07
K5252
K41!l06
K5252
K412105
KUJ13
K4001

3531
136'
3525
65;3

OCA I
F'PCOM

1124

TAO

K4"'01!l

rPST
MLT
F'P!NT
JMP

• -1

DCA I
TAO

,,,,
,.~2

6551
!1337

10158

7•0CT-71

PAGE 55

I~STRUcTIONS
/~£RO THE FPP WORLD
/LOAD APT TABLE

/AL.TER F"AC MSW
/ALTER FAC LSW
/ALTER FAC EXPONENT
/FPC POINTER EQUALS 1013
/AC TO CMO REGISTER
/APT TABLE POINTER TO AC
/LOAD AQRS REGISTER ANO START FPP
/ERRQR·FPP AL.READY RUNNING

/EXAMINE APT TABLE FOR CORRECT DATA
3741
3742
3743
3744
37'9
3746
37'7

37'0
37'1
3792
37U
3754
J75'
3756

'300

Cl.A Cl.L

111l41
Ui4
7U17J

CIA

15~3

TAO I
TAO

Ml.T

1n2
711141
Ui4
1'41

TAO I

CIA
TAO
S!A

74'~2

Ml.T

1in1
711l41

14421

TAO
Sih
Ml.T

1<2525

• •1

3761

5762

JMI' I

411110

4010

3763

101l7

1(1Ql07 I

3764
3765
3766

3,lll11

I( 121111

1<12'13,
1<1075,

K252!1

K412lr/l5

3762

1013
1(117 5

I< 41210 6

TAO I

1114

14h

1<252,

74~2

37'7
37621

K41!ll!l7

IL.SW OF F'AC FROM APT TABLE TO AC
IL.SW OF FAC EQUAL 2525
/NO • ERROR
/MSW OF F'AC FROM APT TABLE TO AC
/MSW OF F'AC £QUAL 252,
/NO - ERROR
/EXPONENT or FAC F'ROM APT TABLE TO AC
/EXPONENT or FAC £QUAI. 252'
/NO - ERROR

121211
1''J11

1013
Ul75

(::""',
'(

~
/FPP-12

INSTRUCT10~

TEST 2A

DIAl.10

HJ 158

7•0CT-71

V003

~
PAC:E 56

/APT TABLE LOCATIONS 400121 TO 41211217
4121012)
412101
4002
4003

411)04
401Z15

4Hl6

4007

1HJii'11
illele'11
0121e0
00U

APT,

•4000
12100121
1210~0

001210
1110H
0011J0
11JHIZI
012100

0000
Q!0ii0

0000

~000
0000

~f'·f

f\\f:)I.;

000121

/FIELD BITS
/LOWER 12 SITS OF FPC
/LOWER 12 BITS OF I q 111 LOCATION
/LOWER 12 BITS OF BASE REG
/LOWER 12 SITS OF OPERANO ADDRESS
/EXPONENT OF FAC
/MSW OF F"AC
IL.SW OF FAC

/T55 • EXECUTE FLDA AND FEX!T INSTRUCTIONS

/STARTING AT LOCATION 112115
4010
4010

6552

4011

441/J5

4012
4013
4014
4015
4016

1114

o40H'l

T55,

FPtCL
JMS I
TA 0

LAPT
K2525

OCA

K4'!! 0 '1

TAO

K2525

OCA

KOJr/16

41U7

3533
1114
:5532
1114
3531

•020

1360

352,

TAO

K12!15

DC:A I

K4i!J01

6553

F'PCOM

4021
4022
40~3

4024
4025

40U
4027

11~4

6555
702
65h
5226

TAO

OCA

TAO
F'PST

K2525
K4H5

K4000

HL.T

F'P!NT
JMll

/tERO THE F'PP WORLO
/L.0AO APT TABLE

/AL. TER FAC L.Slil
/Al.TER F"AC MSW
/ALTER FAC EXPONENT

1rPc POINTER EQUALS 1015

/AC TO CMO REGISTER
/APT TABL.E POINTER
/LOAD AQRS REGISTER ANO START ;pp
/ERROR F'PP ALREADY RUNNING

• •1

/EXAMINE APT TABLE FOR CORRECT DATA
4030
4031

4032
4033
4Jll:s4
412l35
412136

41ZJ3?
4040
4041
4042
40•3
4044

731/JIZI

C:l.A CLL

744121
'14£2

CIA
T•O
SU
HL.T

"'~3
712141
1146

TAO I

K5252

TAD I
c: !A

.KUH

1146

TAO

K5252

744121

15h
712141
'14E2

Hl.T

1531
712141

CIA

'!'AO l

4046

1146
744121

TAO
SH

412147

74ii2

"'II,.,

4045

K400'1

K4005

K5252

IL.SW OF rAC rROM APT TABLE TO AC
IL.SW OF F"AC EQUAL '252
/NO • ERRO~
/MSW OF rAC rRoM APT TABLE TO AC

/MSW OF FAC EQUAL 5252
/NO - ERROR
/EXPONENT OF FAC FROM APT TABLE TO AC
/EXPONENT or FAC EOUAL 5252
/NO - ERROR

trPP-12

INSTRUCTlO~

TEST 2A

0 IAl.10

7•0CT-71

VH3

10158

PAGE 57

ITO•EXECUTE A F'AOO AND F'EXIT INSTRUCTION
ISTAIUING AT F'PP LOCATION 1017
I

F'AC

/EXP
/MSW

0000
111000 • 0011!0 = 0000
0000
011!00
llllillll0

11..sw
4050
4051
4052
4fa53
411154
4055
4"56
4057
4060

4H1

6552

440
1Jh
3525
65'3
Uc4

6555
74~2

6551
1n~0

TU,

00011!

CPR 1

F' AC

0000

rPICl.
JMS l
TAO
OCA l
F'PCOM

rPST
ML.T
F'PZNT
JM,

l.Al'T
l<Ul17
1(41!101
I( 41/J 0 Ill

/l.OAO APT TABLE
/Al.TER F'PC
IL.CAO F'PP CM~ REGISTER
/l.0AD AQRS REGISTER AND START F'PP
/SKIP ON rpp INTERRUPT REQUEST r1.AG

,•1

/TEST APT TA9L.E F'OR CORRECT DATA
4062
41'1l63
4064
41'1l65
4066
4067
4070
4071
4072
4073

""'"' ·
./

7300

15j3
'4~111

74~2

1532
744ta

,.,2

15H
7440
74,2

Cl.A Cl..L

UO I
SU

I( 4 011.1'

Ml. T

TAO l

KUH

loll. T

TAO I
SU
ML.T

K4HS

/F'AC I.SW rROM APT TABl.E TO AC
/SKIP IF' EQUAL TO Ill
/ERROR
/F'AC MSW rROM APT TABL.E TO AC
/SKIP IF' EQUAi.. TO !ERO
/ERROR
/F'AC EXPONENT FROM APT TABLE TO AC
/SKIP Ir lERO
/ERROR

,.,...
,

/F'PP-12

tNSTRUCT!O~

DlAl.10

TEST 2A

Vl1JZ3

10158

7•0CT-71

PAGE 58

/T61 • EXECUTE A F'ADO AND F'EX!T INSTRUCTION
/STARTING AT F'PP LOCATIO~ 1021
I
I

/EXP

/MSW
11..sw
4014
4075
4016
4017
4-'1Hf

65'2

OPR 4
F' AC
F'AC
000Ql
11Jl1Jl1J1
011JU
211ll1lW • 211l11J0 = 211ll1ll1J
11Jl1JQlQl
11Jl1Jl1J0
11Jlll11Jl1J

T61,

U~5

1124
3532

OCA I
TAO
DCA I
F'PCOM

13~2

1'11'1

:r525

4102
4103
412'4
4105
4106
4101

.,.,2

6553
11~4

TAO

F'PST

6555

F'PlNT
JMP

&551

5306

4112

13U
15!3
"·~0

4113
4114
4115
4116

102
1532
1041

-'121
4122
4123
4124
4125

1531

4117
4120

~.i~4

"''"
'1402

Cl.A CL.I..
TAO I
SU
1-41. T

/Ai,.TER F'AC MSW
/ALTER F'PC
/l.0AD Fpp CMO REGISTER
/LOAD ADRS R£GISTER AND START f"PP
/SKIP ON F'PP INTERRUPT REQUEST f"LAG SET

.-1

1<42107

TA,O 1

K006

TAO

K2H0

Ml. T
TAO 1

K41210!1

TAO

e-u

"''"

74~2

-K40011J

/l.OAD APT TABLE

APT TABLE F'OR CORRECT DATA

70,1

1"3111

LAPT
K20011J
K4011l6
K1Z21
1(4001

1-41.T

/[~AMINE

4110
4111

F'PlCL
JMS 1

Ml.T

/F'AC LSW F'ROM APT TABl,.E TO AC
/SKIP IF' te:RO
/ERROR
/F'AC MSW F'ROM APT TABl,.E TO AC
/SHOULD £QUAI. 2000
/YES - SKIP
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SMOUl..D EQUAL 1
/YES - SKIP
/ERR QR

/FPP-12

INSTRUeTIO~

TEST 2A

I) I AL.10

10158

7•0CT-71

V003

PAGE 59

/T62 - EXECUTE A FADO AND FEXIT INSTRUCTIO~
/STARTING IT FPP CODE LO CAT I ON 1021
I

/EXP
/MSW
IL.SW
4126
4127
4130
4131
4132
4133
41U
4135
4136
4137
414111
4141
4142
4143

6552

T62,

1300
3!133

U52

:s5n
3531
13~2

~,25

65!J3

F'AC QPR 41
0000
0e00

11i4

• 2000

= 0000

'1Jl2l00

0000

011100

F'PICL
Cl.A Cl.L
K4007
OCA I
K6'/l 00
TAO
K4006
OCA I
K4005
OCA I
K1021
TAO
K4001
OCA I
TAO

K4000

Ml.T
ll'PINT
JMP

.-1

rPST

'3~2

0000

600~

rPCOM

6555
14'2
6551

FAC

/eERO TME F'PP WORL.0
/AL.TER F'AC LSW
/AL.TER FAC MSW
/AL.TER F'AC EXPONENT
/AL.TER F'PC
/LOAD CMO REGISTER
/L.0AO ADRS REGISTER ANO START FPP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST FLAG

/EXAMINE APT TABLE FOR CORRECT CATA
414'4
4145
410
4147
4150
41':1.
4192
41'3
41'4
41!55
•156

TAO 1

1531
1••0
'14~2

'751
1H?~0

4160
4161

101'
1£117

U21

K411J01

SU
Ml.T

'1441!1
'14~2

4157

4162

Cl.A Cl.L

1300

15j3
144111
14@2
1'32

1<1"1',
K:l.0111
KUl21,

UO I
Si!A
Ml.T
TAO I
SU
Ml.T

l<UIU

JMP I
42H

,•1

I( 4Gl0 !J

/FAC 1..sw FROM APT TABLE TO AC
/Sl<IP IF U:RO
/ERROR
/F'AC MSW FROM APT TABLE TO AC
/Sl<IP IF' !ERO
/ERROR
/FAC EXPONENT PROM APT TABLE TO AC
/Sl<IP IF URO
/ERROR

1015
1U7
1021

l""i
\ /

>:;;~~

IFPP-12

~·
lNSTRUCTIO~

0 I ALtZ

TEST 2A

10158

7•0CT-71

VU3

PAGE 60

IT63 - EXECUTE A PADD ANO FEXIT INSTRUCTION
/STARTING AT FPP CODE LOCATION 1027
I
I

/EXP
/MSw
IL.SW

42e0
4 212111?1 6552
4201 nee1
4202 3533
42;03 .10'47
'400'4

3532

4205
4206
'4207

1,0J4

4210

'4211
•2u
'422.3
4214
4215
4U6

3531
1373
3525
65'3

.11~4

055

T63,

OPR 7
I=" AC
0001
0005
010f • 2000 :
0000
0000
•4200
F'PlCL
Cl.A Cl..L
K401211
DCA I
K11!! lil
1' AO
K4006
OCA I
K5
TAO
K005
OC:A l
K1027
TAO
KU01
OCA I
F'PCOM
K4011J0
HO
Ml.T
F'PINT
JMI'

65'1

'21'

•u1

•222
42U
4224
4225
4226
4227
42UI
4231
42!2
4233
4234

1'33
74~11l

14~2

usu
111l~1

74,0
74~2
15~1

?0,1
1031
7440
1•~2

IAL.TER FAC LSW
/ALTER FAC MSW
/ALTER FAC EXPONENT
/ALTER F"PC
IL.CAO CMD REGISTER
/l..OAO AQRS REGISTER AND START FPP
/ERROR
/SKIP ON rPP INTERRUPT REQUEST FLAG SET

F'PST

74~2

/[~AMINE

4217
•220

F"AC
01il1212
2000
01il00

,.,.

APT TABLE FOR CORRECT DATA
Cl.A Cl.I..
1(4201
TAO l

SiA
~L. T
TAO I

K4H6

TAO

K2000

SU
Ml.T
TAO I

K4005

HO
SU

c:u

/FAC ~sw FROM APT TABl..E TO AC
/Sl<lP IF Z£RO
/[RROR
/F'AO MSW FROM APT TABl..E TO AC
/S~OULD EQUAL 2000
/YES - SKIP
/ERROR
/FAC EXPONENT r~OM A?T TABLE TO AC

/S~OULD EQUAL 2
/YES - SKIP
/ERROR

Ml..'!'

-----.-~~-

/F'PP-12 1NSTRUCT10~ TEST 2A

OlAL.11/J

VllJl?JJ

7•0C:T•71

10151

PAGE 61

IT64 • EXECUTE A rAOO ANO F'EXIT INSTRUCTION
/STARTING WITl-4 FPP CODE LOCATION 111135
I
I

/ElCP
/MSW
IL.SW
4235
42:56
4237
424111
4241
4242
4243
4244
42'5
•20
424'7
42H
42'1
42'2
42'3
42'4

6552
7300
1146
3533

1112

35U
1122

S'31

U14

'''!
,,,,
11~4

74'2
6'91

5293

T64,

F'AC
1252

OPR U

1252

F'AC
1252

5252

2525

7777

1252 • 2525 = 3777

T40

OCA t

uo
OCA I
uo
OCA l
TAO

OCA I
F'PCOM
TAO

,PST
HLT
''INT
JM!'

THE F'PP WORL.0

/~ERO

F'P!CL
CLA CL.L
K5U2
K4H7
K1252
K4H6
K1252
1(411JB5
I( 11!J35
K4H1
K411llllllJ

/ALTER F'AC LSW
/Al.TER F'AC MSW
/ALTER F'AC EXPONENT
/ALTER F'PC
/L,0AO CMO REGISTER
/L.OAO AORS REGISTER AND START rpp
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST FLAG

.-l

/EXAMINE APT TABLE F'OR CORRECT DATA
42'5
4296
42'7
4261
42U

4262
42H
4264
426'
4266
4267
4271
42''1
4272
4273

n•e

1'33
71/J41
74~0

'''2
1H2

CL.A Cl.L
K4H7
TAO I
CHA
SU

MLT
TAO I
CIA
TAO
SiA
HLT

S.5U
1111~ 1

7441
74h

711141

7441/J
74~2

K'806

1(3777

TAO I

K411lU

TAO

1<1252

MLT

/FAC LSW F'ROM APT TABLE TO AC
/SHOUL.0•7777
/Sl<lP IF' AC•l!I
/EFIROR
/F'AC MSW F'AOM APT TABLE TO AC
/SMOULD EQUAL 3777
/YES • SKIP
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SHOULD EQUAL 1252
/YES • SKIP
/ERROR

a
--'>"~

- i~

(~,

"'"

)
./

()

~
\

/FPP-12

INSTRUCTJO~

TEST 2A

OUi..U

VH3

10158

7-0eT-71

PAGE 62

/T65 - EXECUTE A fAOO ANO rEXIT INSTRUCTION
/STARTING &T F'PP CODE LOCATION 1037
I
I

/EXP
/MSW
IL.SW

4274
4275
4276
4277
43fl0
4311
43112
43113
43114
43115
43H
4H7
43121
4U,1

4312

65'2

7310
UJUJ

::5533

T65,

CPR 13 f"AC
0;:lH
717'
0001
0012 • 3777 = 2000
0 000
7777
0001

fAC

rP!CL.
CL.A Cl.L
TAO

:5,32

OCA I
ijC& I

U76
3531
1375

OCA I

:5525

6553

,,,,
u~•

'140

6551
!53U

/~ERO
I( 1
1<411l07

1(4fJ'06

1<7777
1(411109

TAO

KUl37

OCA 1

t<4H1

TAO

I( 411!

HI. T
F'PlNT
JMP

• '! j,,

'PCO~

fllfl

F'PST

THE rPP WORL.0

/Al.TER f"AC 1.sw
/Al.TER rAC MSW
/AL.TER rAC EXPONENT
/ALTER rPC
/l.OAO CMO REQISTER
/L.OAO AORS REGISTER ANO START rpp
/ERROR
/SKIP ON rpp INTERRUPT REQUEST PL.AG

/EXAMINE APT TABL.E roR CORRECT DATA
4313
43H
4315

4316

431.7

•3H

43121
4322
4323
4324
432'
4326
4327

4330

73~0

1'33
10111
'14~2

2,H2

111J41

7441!1
14~2

15H
70,1
1n0
'''0
74~2

Cl.A Cl.L
1<41107
TAO 1
SU
ML.T
1<411106
TAO !
cu
TAO
SU

K2fllH

uo l

I( 4111 U

TAO
SU

1<1

Hl.T

Ml.T

1r•c 1.sw F'ROM APT TABl.E TO AC
/SKIP Ir ltRO
/ERROR
/F'AC MSW F'ROM APT TABl.E TO AC
/SMOUL.D EQUAL. 2000
/YES • SKIP
/ERROR
IF'AC EXPONENT F'ROM APT TABLE TO AC
/SMOUL.0 EQUAL 1
/SKIP Ir EQUAL. TO !ERO
/ERROR

...

/F'PP-12

tNSTRUeTtO~

OJAL.10

TEST 2A

Vl1JQl3

Ul158

7•0CT-71

PAGE 63

/T66 • EXECUTE A F'AOO ANO F"EXJT INSTRUCTION
/STARTING AT F'PP coo~ LOCAT!~~ 1041
I

/EXP
/"!SW

IL.SW
4331
4332
4333
4334

•Jn

•336
4337
•3•111
4341
4342
4343
4344
4345
4346
4347
435111

U'2

T66 1

7300
1137
s'~;s

10!52

3532
1033
3'31
1376

3925
65!53

UZ4
6595
74'2
65'1

13~7

F"AC

OPR 14

F"AC

0004

0002

11l2U • 0210 : 2104
2100
42Ul
42121
/~ERO

F'P!CI.
Cl.A Cl.L
1(42U
TAO
KU07
OCA I
K2U
TAO
K41!l 11J6
OC:A I
1(4
TAO
1(481115
OCA I
K1041
TAO
I( 4fllll1
OC:A I
F'PCOM
1(4eJllllB
TAO
F'PST
HL.T
F'PlNT
,•1
JMll

THE F'PP WORL.0

/ALTER F'AC L.SW
/Al.TEA F'AC MSW
/ALTER F'AC EXPONENT
/ALTER F'PC
/L.0AO CMO REGISTER
11.0AO AORS REGISTER ANO START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

/EXAMINE A,T TABLE F'OR CORRECT DATA
4351
4352
4353
4314
4355
4356
43!57
43611
4361
4362
4363
4364
436,
4;s66
4367
437111

CL.A Cl.L
K0el7
TAO I

73U
1533

71~1

/F'AC LSW F'AOM APT TABLE TO AC

TAO
SU
HL.T
TAO I

1<2111

/SMOUl.0 EQUAL. 21ee

K4111116

/ERROR
/F'AC MSW F'ROM APT TABL.E TO AC

11~7

74~0

TAO
SU

t<2Ul4

74~2

HL.T

1116
1~~fll

74~2

1n2
7041

S,531

TAO I

K4H9

TAO

1(2

711141
10h
7441J
74~2

SU
Hl,.T

4371
4372

5772

JM!J I
44011l

4373
4374
4375
4376

1027

44~0

111135

112137
10<11

1<1021.
1<112135'
1<1037.
1<1041'

/YES • St<lP

/SMOUl.D EQUAL 2104
/YES - St<lP
/ERROR
/F'AC EXPONENT F'AOM APT TABLE TO AC
/SHOUl.0 EQUAi. 2
SKIP
/ERROR
/YES •

.•1

1027
1035
1037
1041

..
('\
)
\.

--------- ---- --

- - ----

----·----

ri
\ /

·~

~
/FP?-12

INSTRUCTJO~

D!AL1i

TEST 2A

V003

~
10:se

7 .. ocT-71

PAGE 64

/T67 - EXECvTE A FADO ANO rEXJT tNSTRUCT!O~
ISTA~T!NG AT rpp COD£ LOCAT!ON 12!43
I

4400
4401
4422
44113

4404
4405
441216
440?
4410
4411
4412
44U
4414
441'
4416
441?

44E0
65,2
'7320
11'3
!,33
1111
3532

u:s,

3531
13~3

3,25
O':S
11~4

6555
?4~2

6551
5216

A:::

/EXP
/MSw
/LSw

02!U

:PR 15

ZZ10
2314 + 2104
2104
6314

F" AC
0011
= 2210
4 2 llil

•4400
T67 1

/iERO THE FP? WORLO

rPtCL
Cl.A C:LL
K6314
TAO
K402!7
DCA I
K2314
'TAO
I( 4el 0 6
DCA I
TAO
KU
DCA I
K400'
K1043
TAO
K40!1J1
OC: A I
TPCOM
1(4000
TAO
F'PST

HLT
rPtNT
JMi:t

/ALTER FAC LSW
/ALTER rAC MS\ol
/ALTER FAC EXPONENT
I Al.. TfR

P>C
/I.CAD CMO REGISTER
/LOAD ADRS REGISTER ANO START PPP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST FLAG

.-1

/EXAMINE APT TABLE FOR CORRECT DATA
44221
4421
14422
4,423
4424
442'
4426
•42?
44321
4431
4432
4433
4434
443,
4436
4437

73~0

CL.A Cl.L

""~1

TAO I

K4"21?

/F'AC I.SW FROM APT TABLE TO AC

K42U

1532

TAO
SU
Hl.T
TAO I

/SMOUl.0 EQUAL 4210
/Y£S - SKiii
/ERROR
/FAC MSW FROM APT TABLE TO AC

TAO
SU
1-11. T

K22UJ

?4~0
?4~2

1,;93
1137
?4421

''~2

10•1
11121

1531
7041
1036
'7440
7402

TAO I
CIA

TAO
SU
M~T

K4182!6

1<400!1
KU

/SMOULO EQUAL 2210
/YES - SKIP
/ERROR
/fAC EXPONENT FROM APT TABLE TO AC
/SHOULD EQUAL 11
/YES • SK!!'
/ERROR

1rPP-12

INSTRUCTIO~

TEST 2A

D lA!..10

V003

UJl59

1-oc'-11

PAGE 65

/T68 • EXECUTE A F'lD~ AND rEXIT INSTRUCTION
/STARTING AT fpp CODE LOCATIO~ 1045
I
I

/EltP
/MSW

IL.SW

4440
4441
44'2
4443
4444
44'5
440
4447
4451D
44'1
4452
445:5

44'4
4455
44'6
44,7

6552
'3U

Ui7
3533
1127
35j2

S,04fJ
J531

13~4
~525

6553

,,,,
U~4

74~2

t591

,256

T68,

F'AC

F' 4 c

OP~

e'~20
012123
2104 • 2314
6314
2124

0.,21

= 2210

F'P!CL.
CL.A CL.L
1<2U4
TAO
K4el07
OCA I
K2U4
TAO
!<4006
OCA I
TAO
1<2"
K4H 5
OCA I
!<Ul4'
TAO
K4011l1
OCA I
F'l'COM
KUllJI!!
TAO
rPST
Hl.T
F'P !NT
JMP
.-1

4210
THE F'PP WORL.0

/~ERO

/Al.TER F'AC LSW
/Al.TER F'AC MSW
/AL.TER F'AC EXPONENT
/Al.TER F'PC
/LOAD CMO REGISTER
/L,OAD AORS REGISTE~ ANO START rpp
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

/EXAMINE APT TABLE F'OR CORRECT CATA
400
4461
4462
4463
4464
446'
4466
4467
44?ra
4471
4472
4473
'4474

1nz

4476
'4477

7'440

4'47!5

73U
1,33
'"'1
1137
7441

14'2
7141
1111
74~1
74~2

1n1
71~1

13~2

'4~2

Cl.A Cl.L
TAO l

.1< 4011l7

/F'AC L.SW rROM APT TA91.E TO AC

TAO

1<42119

/SHOULD EQUAL 4218
/YU • SKIP
/ERROR
/FAC MSW rROM APT TABl.E TO AC

SU
Ml.T
TAO l
cu
TAO

SU
Ml.T
TAO I
ClA
TAO
SU
Hl.T

K4H6
K22Ul
I(

4fll5

1<21

EQUAL 2210
/YES - SKIP
/ERROR
1r•c EXPONENT F'AOM APT TABLE TO AC
/S~OUL.0

/SHOULD EQUAL 21
/YES • SKIP
/ERROR

•

/VPP-12

INSTRUCT%0~

TEST 2A

'.) lAL.H:l

V011l3

10:58

7-0CT-71

PAGE 66

/T69 - EXEeuTE A FADD AND FEXIT tNSTRUCT!O~
/STARTJ~G AT FPP coor LOCATION 112147
I
I
/()CP
/MS\ll

11..sw

45H
4501
4502
450'3
4'"14

~"'"
4506
4507
4510
45U
4512
4'513
4514
45U
4516
4517

T69,

FAC
0Z4l

OPR 17

1124
655,

rr>tCL
Cl.A C:l..L
K7356
TAO
K4007
DCA t
1(3356
T'AO
K411!06
OCA I
K411!
TAO
1(411!05
DCA l
K1047
TAO
1<42101
OCA I
rPCOM
K411!H
NO
FPST

74~2

HI. T

6552
7300
1165
3533
1u.~
3-~32

11214,

u,,
3,2,
3531

65'3

rr>tNT
JMlt

6551
5316

F' AC

0040
11Jl1l41
3356 • 1e42 = 2210
421121
H!42
73~H1
/tERO THE FPO WORi,.D
/Al. TEFI oc 1.sw
/ALTER F'AC MSW
/ALTER F'AC

E~PONENT

/AL.TER F'PC
/LOAD c~o REGISTER
/LOAD ADAS R£GISTER AND START r:'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST FL.AG

.-1

/EXAMINE APT TABl..E FOR CORRECT DATA
45U
4521
4522
45a::5
4524
4525
4526
4527
4530
4531
4532
4533
4534
4535
4536
4537

1Je0
1533
1'f/J41

Cl.A CL.L
K411l0'7
TAO I

'7402

15h
'71H1
'7440

/SMOUl..D EQUAL 2210

KU05

/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC

1<42U

/YES "' SKIP

K41

Si!A

74~2

0021
1043
111l45
1047

1<2210

TAO

1046

4542
4543
4544
4545

TAO
Si!A
ML. T
TAO I
CIA

'74~0

5741

K40f/J6

Ml. T

1532
72141
1110

4540
4541

TAO I

/SMOUl..D EQUAL 4210
/YES • SI< lP
/ERROR
/F'AC MSW F'ROM APT TABL.E TO AC

TAO

Si!A

'74~0
'7'4~2

Hl.T

JMi:i !
4600

46~0

1<21,
K1043,
K1045,
1<11Zl4?,

/F'AC 1..sw fROM APT TASL.E TO AC:

21
1"43
llll45
11Zl47

,•1

/SMOUL.D EQUAL 41
/YES • SKIP
/ERROR

1rPP-12

INSTRUCTIO~

TEST 2A

O!AL.10

V003

10158

7•0CT-71

PAc;E 67

IT70 - EXECUTE A F'ADO AN~ •EXIT INSTRUCTION
/STARTING AT FPP CODE LOCATION 1351
I

/EXP
/MSW
IL.SW

20 FAC
0101
0100
1252 • 3146 = 2210
4210
3146
5252

T70 I

04600
FPtCL
Cl.A C:LL

4600
4601
4602
462!3
4604
462!5
4606
4607
4610
46 :1.1
•612
4U3
4U4
4615
4616
4617

46e0
6552
ne0
U46
3533
11'? 2

:5532
1047
3531
13~4

3525
6553
11~4

6555
74~2

6551
'~16

FAC

OP~

0100

TAO

DCA I
TAO
OCA I
TAO
OCA I
TAO
OCA I
F'PCOM
TAO

/~ERO

K5252
K41!!07
K1252
K41!!11!6
KU0
K411105
K1051
K4001
K4'!!00

F'PST

Ml.T
F'F'!NT
JMF'

THE FPP WORLD

/ALTER FAC I.SW
/ALTER FAC MSW
/Al.TER FAC EXPONENT
/Al.TER FPC
/L.0AO CMO REGISTER
/L.0AO AQRS REGISTER ANO START FPP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

.-1

/EXAMINE APT TABLE FOR CORRECT DATA
4620
4621
4622
4623
4624
4625
4626
4627
4632!
4631
4632
4633
4634
4635
46:56
4637

73021
15:13
70~1

1137
74421
74~2

1n2
'1041
1110
7440

1,h
7041
13~2

Cl.A OL.L

TAO l

KUl07

/F'AC LSW FROM APT TABl.E TO AC

TAO

1<4210

/SMOUL.0 EQUAL 4210
/YES - SKIF'
/ERROR
1r•c MSW FROM APT TABl.E TO AC

ct•

Ml.T
T40 I

CIA
TAO
SU
Ml.T
TAO I
Cl A

TAO

74411l

Si!A

74~2

HL.T

K4H 6
K2210
K41UH5
K1fll 1

/SMOULD EQUAL 2210
/YES - SK?P
/ERROR
1r•c EXPONENT rROM APT TABLE TO AC
/SMOULD EQUAL 101
/YES - SKIP
/ERROR

,:~

t6":
'-·/

~--

·~\

1-r?1:1-12 l NSTRUC:T10"' TEST 2A

Oll.L.1l

VU3

7-0CT-71

10 I 5 S

:P A~E ·6·8

IT71 - EXECJTE A rAo~ A~~ F£X1T INSTRUCTION
/STARTING AT rp? COJE L~CATIJN 135~
I
I

/EXP

•6•0
4641

6552

4~42

11?6
1533
1143
3532
10,0
UJ1

4'6'4i5

•·644

•6'6

46'7
4650
•651
4'692

FAC
02.ae

/M~W

3777 •
7117

T71 1

f'PICL
Cl.A Cl.I..

7 30i!l

TAO

OCA I
T1'0
'OCA I
TAO

13~5

46'5
4656
46'7

3525

46H
4662.

4662
4663
4664
466'5
4666
4667
4670
4611
4672
4613
46H
467,
461'6
4617

1!533
1041

K7777
K4H7
K377'

i<4n.6
K2110

1<1053

OCA I
r.PCOM

K4H1

iAO

I( 41!10~

65!1
5256

, .. s,

CU C1.L
1(4807
TAO 1
t!A

K-421,eJ

7411l2

Ml.T
TAO 1

K4el06

1532
71"41

1110
7440

74U
1'31
7041
U!3
7440

74~2

4210

/A.I. TER FAC LSW
/Al..TER f'AC MSW
/Al..TER f'AC EXPONENT
/Al.TER f'PC
/LOAD CMO REGISTER
/ERROR
/SKIP ON f'PP INTERRUPT REQUEST f'LAG

APT TABLE FOR CORRECT DATA

1440

221~

/lERO THE f'PP WORLD

K41105

Ml.T
F'l'fNT
JMJ'

TAO

~PST

/[~AMINE

l="A:
0201

OCA I

65'5

7402

~2Z2
~421
~421

11.si.i

. .,,.3 .,,,3
Uc4
46''4

:Pl1

lf'AC LS~ f'~OM APT TAB1.E TO AC
/SMOULD EQUAL 4210
/YCS .. SKIP
/ERROR
/f'AC MSW f'ROM APT TABl.E TO AC

TAO J

K4H5

/S~OUl.0 EQUAi.. 2210
/YES • SKJP
/ERROR
lf'AC EXPONENT f'ROM APT TABLE TO AC

TAO

K21!11

/SMOu~o

TAO
SU
Ml.T

cu
SCA
Ml.T

K2210

EQUAL 201
/YE:S - SKlP
/ERROR

INSTRUCTIO~

/FPP-12

TEST 24

OlAL.10

V0!2!3

10158

7•0C:T-71

PA~E

/T72 - EXECUTE A FADO AND FEXJT INSTRUCTION
/STARTING AT Fpp CODE LOCATION 1055
I
I

/[XP
/t-1SW

/Lhl
4 70121
47Q!1
47212
47213
4704
4705
4706
4707
"4710
4711
4712
471:S
4714
4715
4716
4717

OPF< 22 FAC
FAC
0400
0401
0400
2735 • 1463 = 2210
1463
4210
6735

.,,,

rPJCL.
Cl..A Cl..L
K6735
TAO
1(4007
OCA I
K2735
TAO
1<4006
OCA I
1(400
TAO
K4005
OCA I
1<1'!155
TAO
1<4001
DCA I
FPCOM
1(4001!!
TAO
rPST

6551
5316

ll'P!NT
JMll

65~2

T72.

7300
1154
3533
1116
:S532
1055
3531
13~6

35U
655:S
Ui4

Ml.T

74~2

/cERO THE FPP W0Rl.0
/ALTER F'AC I.SW
/ALTER F'AC MSW
/ALTER FAC EXPONENT
/ALTER F'PC
/l.0AD CMD REGISTER
/l.0AO AORS REGISTER ANO START FPP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST FLAG

.-1

/EXAMINE APT TABL.E FOR CORRECT DATA
47221
4721
4722

7300
153:S
72141

4724

74~0

4723

4725

74~2

4726

1'32

4727
4 '3l1J
47:51
4732
47:S3
4734
4735
4736
4737

Cl.A Cl.L
I( 4811l'
TAO I
TAO

SU
Ml.T

K42U

UO I

1(4006
K22U

1121'6

TAO
Si!A
111. T
TAO I
Cl A
TAO

1•~2

~I.'!'

70~1

7440
'4~2

1n1
7041
74~0

Si!A

4740
4741

5741
5020

5000

4742
4743
4 7414
474!5
4746

fll11Z1
0221
1051
1053
1055

JM!' I
1<101,
1<201.
1<10511
1<12153.
1<1055,

101
201
1051
1053
1055

K41!105
K4fll1

.•1

/FAC 1.sw rROM APT TABI.£ TO AC
/SMOUl.D EQUAL 42121
/Y£S • SKlft
/ERROR
/F'AC MSW FROM APT TABLE TO AC
/SMOUl.0 £QUA!. 2210
/YES • SKIP
/ERROR
/FAC EXPONENT FORM APT TABLE TO AC
/SHOULD EQUAL 401
/YES - SKIP
/ERROR

........

~
/fPP-12

!NSTRUCT!O~

TEST 24

'.:l I A.i.1Z

10:58

7-0CT-71

V003

/T73 - EXECUTE A FADD AND FEX!T INSTRUCTION
/USING

S!NG~E

/FROM FPP
I

5~01
50~2

DR3

500•
5005
5006
5007
5eJU
'0'1'.1
'2112
521,3
5014
5015
5016

6552
1300
!•533
1.124

3532
U2!5

3531
1-176

3525

65'3

.,,,

11"4
74~2

6551
5215

INDIRECT ADDRESSING FORMAT
111115

FAC

OP>< 2

40~1

4~1111

!R BITS : 2

200Z • 2000
0:;,02
0000

F AC

4002

= 2000

•5fH
T73,

WIT~

~OCAT!ON

/EXP
/MSW
ILSW
50~0

5000

~CRO

C~DE

PAGE 10

F'P1CL
Cl..A CLL
K4007
'CC.A I
K200!
TAO
K4011J6
DCA I
K4H1
TAO
K4'9l05
DCA I
K1.105
TAO
K4001
DtA 1
FPeOM
K4rllkH'J
TAO
F'PST
Ml.T
PJ'ltl!T
JMP
.-1

0000

/lERO THE FPP WORD
/ALTER FAC LSW
/ALTER FAC MSW
/ALTER FAC EXPONENT
/ALTER FPC
/LOAD CMO REGISTER
/LOAD AORS R[GISTER AND START F'PP
/ERROR
/SKIP ON rPP INTERRUPT REQUEST F'LAG

/EXAMINE APT TABLE FOR CORRECT DATA
5017

nee

50H

1533

50U
5022

512123
511124
50i5
5026
5QJ27
50U

5031
5032

5033
5034

,.~fl

'14~2

1532
70~1

11·£4
74~0
74~2

1531
7041
11•6
14~0
'!4~2

Cl.A CL.L
TAO 1

K4001

Ml.T
TAO I

TAO
SU

K41U6
K2000

Ml.T
TAO t

t<4H5

TAO
Si!A
ML. 'r

K4002

c:u

/rAC LSW fROM APT TABLE TO AC
/SKIP IF' lf:RO
/ERROR
1rAC MSW F'ROM APT TABL.£ TO AC
/SHOULD EQUAL 2000
/YES • SKIP
/ERROR
/rAC EXPONENT FROM APT TABLE TO AC
/SHOULD EQUAL 4002
/Yf:S • SK IP
/ERROR

/F'PP-12

JNSTRUCT!O~

TEST 2A

DIAl.U

10159

7-0CT-71

V003

PAGE 71

/T74 - EXECUTE A F'ADO AND F'EXIT INSTRUCTION
IUS!~G DOUBLE WORD F'OR~4T Wf TH IR BITS = 0
I
I

F'AC

/EXP

2525

/MSW

11.sw
5035
5036

5037
50'21
5041
5042
5Ql43
51!144

5214'

5046

504?
50521
52151
5052

6552

1114
3533

1114
3532

1114

3531
1371
3525
6'5:S
11~4

65'5

!50!13

?412
65h

5e54

5253

T74,

CPR 40
2525

F' AC

2525
2525 • 1252 = 3777
7777
2525
5252

F'P!CL
CL.A CL.L
TAO

DCA

TAO

/~ERO

K2525
K41!lf117

K2S2!1

OCA

K006

TAO
OCA

1(41!lf119

1<2529

TAO

1<1111

TAO

1(4001!1

OCA t
f'PCOM
rPST
Hl.T
f'P!NT
JMP

K411lf1l1

THE rPP WORD

/Al.TER F'AC L.SW

IAL.TER F'AC MSW
/Al.TER F'AC EXPONENT
/Al.TER F'PC
/L.0AO CMO REGISTER

IL.DAO AORS REGISTER ANO START rPP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST YL.AG

.-1

/EXAMINE APT TABLE F'OR CORRECT DATA

'"' 1,h
nee

5056

5057
5061

7041
7441

9"61

7d2

!511J62
!51U:S
5064
5065

S.5h
7141

TAO t
CMA
SU

HL.T

/ERROR

1<377'1

/SHOUL.0 EQUAL 3717
/YES •St<!P
/ERROR

15U

5071

11i4

50?2

7440
''~2

/SKIP Ir ACorlJ

1rAc MSW F'AO~ A~T TABLE TO AC

52166
52167
51!170

71/J41

/F'AC L.Sw rAOM .,, TABL.E TO AC
/SMOUL.0•??77

K'1111/J6

1•h

K4H7

TAO 1

1441

!5073

11~3

Cl.A CL.L

ML.T

TAO l

KllU

/f'AC EXPONENT rROM APT TABLE TO AC

TAO

K252!1

/SHOUL.0 EQUAi. 2525

Ml..T

/YES • SK I Ft

/ERROR

(-\
~-)

( '\I
_j

--~

~
/rPP-~2

tNSTRUCTlO~

TEST 2A

Dl ALU

V003

7•0CT .. 71

~
UH58

PACE '12

/T75 - EXECUTE A F'AOO A~O F'EXIT INSTRUCTION
II~ F'IXED POINT ~COE - F'RO~ LOCATION 1117
/US!'G SI~G~E WORD J!RECT ADJRESSING F'ORMAT
I

5074
5075

6!'>52
731/:0

F'AC

/EXP
/MSW
IL.SW

777'

7777
2525 • 121210 = 2735
6735
2525
4210

T75,

F'PICL.
CL.A

5116

1114

TAO

511J71

:1533

-51011
5UJ1
5111!2

1114

OCA

CPR 14

el.L

1<2525
K4e07

S532

OCA

1176

TAO

K7777

3531

OCA

51214

1372
:5525
U24

TAO

OCA

053

rPCOM
rPST

5UJ7
5UllJ

,,,,

TAO

5111

702

ML.'!'

51U

5112

/l[RO THE F'PP WORL.0

!<2525
1<411106

TAO

5UIJ

51e5
511!6

0!51

F' AC

F'l'JNT
JMI'

K4H5
K1117
1<41101
KUH

/ALTER F'AC I.SW
IAl.TER F'AC MSW
IAL.TER F'AC EXPONENT
/ALTER F'PC
IOP MODE
IL.CAO CMO RE~ISTER
IL.OAO AORS REGISTER AND START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

.-1

/EXAMINE Al'T TABLE F'OR CORRECT OATA
5114

5115
5U.6
5117

51211J
5121
!1122
51H
5124
5125

5126
5127

51321
5131
5132

nee

uu
'1IU1
11'4
7440
'14h

:1.,s2

CL.A CL.L
K4H1

/F'AC

TAO
SU
"41. T

K6735

TAO I

KUH

ISMOUL.0 EQUAL 6735
/YES-SK IP
/ERROR
IF'AC MSW FROM APT TABLE TO AC

7041

CIA
TAO

144111

K2735

SU
Ml.T
TAO I
CMA

K4flllll!5

14h
uh
7111421
74421

14h

1..sw FROM A~T TABl.E TO AC

TAO l

loll,. T

/SMOUL.0 EQUAL 2735
/YES • SKIP
/ERROR
IF'AC EXPONENT F'~OM APT TABLE TO AC
/SMOULD•7777
/SKIP IF' AC•l!J
/ERROR

trPP-12

INSTRUCT!O~

TEST 2A

DI Al.10

10158

7•0CT·71

VU3

PAGE 73

/T76 - EXECUTE A F'ADO AND F'EX!T INSTRUCTION
/IN F'IXED POINT ~COE F'RO~ L~CAT!ON 1121 FORCING OVERF'l.OW CONDITION
/USING SINGLE wCRD DIRECT AD~RESS!NG FORMAT
I

5133
5134
5135
5136
513'1
5140
5141
5142
5143
5144
5145
51'6
5147
515e
5151

6552
7301!!

f"AC

/[)(p

7777

F'AC

CPR 13

7777

/MSW
ILSw

0000 • 3777 = 0000
0001
H01
7777

T76,

F'PICL
CL.A C:LL

TAO

J533
3532

OCA 1
DCA I

1176

TAO

J5h
1373
3525
1124
6553
6555

OCA I

TAO

OCA I
TAO
F'PCOM

/~ERO
I( 1
1(4007
1(4006
K.7777
K41!105
1<1121
1(4001
I( 4""' 0

rPST
Hl.T

74~2

F'Jll?NT

6551
5J5e

JM~

THE F'PP WORO

/ALTER F'AC LSW
/ALTER F'AC MSW
/ALTER f"AC EXPONENT
/ALTER F'PC
/OP MODE
/LOAD CMO REGISTER
/I.CAO AQRS REGISTER ANO START F'PP
/ERROR
/SKIP ON rPP INTERRUPT REQUEST F'L.AG

• •1

/EXAMINE APT TABLE F'OR CORRECT DATA
5152
51,3
5154

51'5

'156

51'7
5160
5161
5162
5163
5164
5165
5166

Cl.A C:l.L
1<'48217
TAO !
CIA
1<1
TAO
SU
HL.T
K41!106
TAO I

15h
1&141
1ne
7440
74~2

15J2
7440

'14~2

ML.T
TAO I
CMA

1531
7040
7440

SiU

74~2

ML. T

5770

JM!' 1
5200

5167
5170

5200

5171
5172
5173

1111
1117
11'1

1<11111
1<11171
1<1121,

I( 4""' 5

.. ,,

1r•c LSW rRo~ A,T TAB~£ TO AC
/SMOULD EQUAL 1
/YE:S·SKIP
/ERROR
/PAC MSW ;ROM APT TABLE TO AC:
/Sl<IP IF' i!ERO
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SMOULD=7777
/Sl<!P IF' AC•la
/ERROR

1111

1117
1121

/EXAMINE STATUS REGISTER
52e121
!>200

5201

6556
3024

•5200

F'PRST
OCA

STATUS

/READ FpP STATUS REGISTER INTO AC
/IMAGE or STATUS STORED IN LOCATION STATUS
t';~
I

\._ /

~
trPP-12

INSTRUCT!O~

5202
5203
'204
5205
5206

TEST 2A

1024
7041
1136

7440
74~2

DIAUl

V003

TAO

STA Ti.JS

C: IA
TAC:
SH

-<4221~

~l.T

7-0C:T-71

~
10158

6552
7320
6556
3024

7041

5215

11~4

5216

5217

/cERO THE FPP W0RL0
/READ Fpp STATUS R£G!STER INTO THE AC
/STATUS REGISTER IMAGE IN LOC STATUS
/STATUS REGISTER SHOUl.0•40210

TAO
SH

.,4~2

PQ!NT OVERFLOW)

CLL
F'P•ST
STATUS
OCA
SUTUS
TAO

1440

CFIXE~

F'P ! CL
CL.A

1024

'321~

/STATUS SHOULD = 420~
/VES - SKIP
/ERROR - EXA~INE LOCAT!Q\ STATUS FOR INCCRRECT STATUS

/TEST FP!CL Cl.EAR OF STATUS REGISTER BIT 4
5207
5210
5211
5212
5213

PA~E

K411l 2112!

Hl.T

/Sl<IP IF AC•0
/ERROR FPICL DID NOT CLEAR STATUS BIT 4

/T77 - EXECUTE A F'ADO AND F'EXIT INSTRUCTION
/IN FIXED POINT MOOE FROM LOCATION 1123
/USING SINGLE WORD INDIRECT REFERENCE FORMAT WITH

X11~

/EXP
/MSW
/I.SW

CPR 36 FAC
-·-·
0000
1252 • 2525 = 3777
52,2
2525
7777

'f77 I

FPICL
CL.A CL.L

5220
5221
5222
5223
5224
5225
5226
5227
52321

5231
5232
52n
5234
5235
5236
5237
5240
5241
5242
5243
!5244
,245
52'46
5247
52!51!!

6552
7300
1146

FAC

000~

TAO

~533

OCA I

1122

TAO

3'32
35;$1

13!14
3525
1124
655J

6555

OCA I
DCA I
TAO
DCA I
TAO

rPCOM

74~2

6551

F'PST
Ml. T
F'P?NT

!52U

JMP

131Z0
1533
1040
'440

14~2

1532
7041
1123
5650
5253

/cERO THE FPP WORD
!<5252
K4007
K1252
K41!06
KUl0S
K1123
K411101
!<4'000

/Al. TER FAC l,.!W
/ALTER FAC MSW
/ALTER FAC EXPONENT
/ALTER F'PC
/DP MODE
/LOAD CMO REGISTER
/l.0AO AORS REGISTER ANO START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST FLAG

.-1

/EXAMINE APT TABLE FOR CORRECT DATA
CLA CLL
/FAC LSW F'ROM APT TABLE TO AC
K401!!7
TAO I
/SMOULD=7777
CMA
/SKIP IF AC="
Si!A
/ERRQR
1-ll.T
/FAC MSW F'ROM APT TABLE TO 4C
K41.'!06
TAO t
CIA
/SHOULD EQUAL 3777
K3777
TAl'.l
JM F' I

5253

.•1
~--~~-,~-·---~-=~~~

/FPP-12

JNSTAUCT10~

TEST 2A

01AL1fll

ILOCATIO~

0H0

5252 CONTAINS rPP •EXIT
•5252
r[x IT

5253
7440

05253
SH

74~2

Ml. T

7440

5252
5252

5253
5254
5255
5256
5257

1flll58

7•0CT-71

VU3

uh
74~2

INSTRUCT!O~

/YES • SKIP
/ERROR
/FAC EXPONENT FROM APT TABLE TO AC
/SKIP IF lERO
/ERROR

K4"'215

UO I

PAGE 75

ML.T

IT78 • EXECUTE A F'ADO ANO FEXIT tNSTAUCT!ON

FIXEO POINT MOOE FROM FP~ CODE LOCAT!ON 1127
/USING DOUBLE WORD DATA REFERENCE r:"ORMAT WITM x=fll
/IN

I
I

526111
5261
5262
52U
5264
5265
5266
5267
521111
'211
5272
5213

9274
527'

5276

6552

nu
1137
uu
10'2
nu

3529
U,4
6553

,,,,
74~2

6551
5275

OPR 14

FAC

/EXP
/MSW
/LSW

f/JllJ0tll
-·-·
i1l2U • lll210

1111/JH

T'79'

F'PICL
CL.A CL.L
KOU
TAO
K4H7
OCA I
1<2U
TAO
!<UH
OCA J
1<4fJH
DCA I
KU.2'1
TAO
1(4HS.
OCA J
l<UH
TAO
F'PCOM
FPST
Ml.T
F'P?NT
JMP
• ·1

FAC
42U'

42U

= 18421
0420

liERO TM£ FPP WORLO
/Al.TER FAC LSW
/ALTER FAC MSW
/Al.TER F'AC EXPONENT
/ALTER F'PC
/LOAD CMD RECISTER
/LOAD ADRS REGJSTER ANO START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

/EXAMINE APT TABLE FOR CORRECT DATA
5277
53H
5311
53182
531113
5311!4
5305
531!16
53217
5310
5311
5312
5313
5314

a
--if--

73~1B

1n;s
7041
1097
7440
74~2

15;!2
70~1
1rll~IZI

7440
74212
:1.5h
74~0
74~2

Cl.A Cl.L
I( 411/J 1
TAO I

TAO
SiA
Hl.T

1<'2fll

TAO l

K41!11116

TAO
Si!A
HLT

1(4'21

TAO 1

SiA
HLT

1<4"05

/F'AC LSW FROM APT TABLE TO AC
/SHOULD EQUAL 42fll
/YES - Sl(lP
/ERROR
/rAC MSW FROM APT TABl.E TO AC
/SHOULD EQUAL 421
/YES - SKIP
/ERROR
/PAC EXPONENT FROM APT TABLE TO AC
/Sl<IP IS lERO
/ERROR
,---~

)

•

c~/

~
trPP-12

tNSTRUCTIO~

Dl AL10

TEST 2A

7•0CT-71

V012!3

~
HJ15!1

PP.GE 76

IT80 - EXECUTE A rsus AND FEXIT INSTRUCTION
/FRO~ LOCATION 1135
I

FAC

OPR 23

FAC

/EXP

0121H

0~01

IH'HH

/MSi-1

312100 - 1000
e! 1211210
1211210121

/l.SW

5315
5316
53H
532ik'
53"21
5'322'
5323
53\a4
5325

5J26
5327
5330
5331
5332
5333

6552

'\' 80 I

ne0
3533
1117
3~32

1030
35J1
1355

J,25

655:5

11i4
6555
14e2
6!:>h

5332
IE~AMINE

5334
5335
5336
5337
530
5341
5342
5343
5344
'34'
5346
'341
5350
5351

7300
1533
1•H0

F'PICL
CL.A Cl.L
K4001
OCA l
K30H
TAC
K411l06
OC'A I
Kl
'NO
K41!!05
DCA 1
K1135
TAO
K401211
OCA I
F'PCOM
K4000
TAO
rP!T
HL.T
FP!NT
JMI'
.-1

ML.T
TAO I

15$2
1041

1440
14h

TAO
Sil
HL.T

71!1H

CIA

TAO I

111130
7440

TAO

SH
Hl.T

14~2

5352'

5753
54~0

5354
5355

1123
1135

JMP t

5400
1<1123,
1<1135,

001210

ttERO THE FPP WORLD
/Al.TER FAC L.SW
/ALTER FAC MSW
/ALTER FAC EXPONENT
/ALTER FPC
/L.0AO CMO REGISTER
IL.CAO AQRS REGISTER AND START FPP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST FLAG

APT TABLE F'OR CORRECT DATA
CL.A Cl.L
K4007
TAO I

14h

53!53

= 200121

1123
11J5

K4006
K200Ql
K4005

,+1

/F'AC L.SW rROM APT TABL.E TO AC
/SKIP IF' lERO
/ERROR
/FAC MSW F'ROM APT TABl.E TO AC
/SMOULD EQUAL 200121
/YES • SKIP
/ERROR
/FAC EXPONENT rROM APT TABLE TO AC
/SMOULD EQUAL 1
/YES • SKIP
/ERROR

/F'PP-12

lNSTRUCTlO~

TEST 2A

DIAl.10

7-0CT-71

V023

10t5S

PACE 77

/T81 - EXECUTE A FSUB AND FEX!T INSTRUCTION
/FROM ~OCATION 1137
I
I

/EXP
/MSW
IL.SW
511120
65;2
730

T81,

FAC

Qp;;i 24

F4C

7777

0i01

0000

0400 - 2000 = 4200
00210
0000
0000
•5400

5403
54214

1055
\1~32

F'P!CL.
CL.A CLL
1<4001
DCA 1
1<41110
TAO
1<41906
DC:A I

54U
542'6
5407
542.21
54:1.1
5412
54U
!5414
542,!5
5416

U76

TAO

540111

5401
5402

35:13

1<777?

1<411105
K1!.37
I< 42101

659:3

OC:A I
TAO
DCA I
F'PCOM
TAO
f'PST

1<41110111

6555

~!531

:1.:5'0
~525

U~4

74112

65h
U1!5

Ml,.T
rPtNT
JMP

/cERO THE F'PP WORL.0
/ALTER F'AC I.SW
/AL.TER F'AC MSW
/Al.TER F'AC EXPONENT
/Al.TER F'PC
/I.CAO CMC REQlSTER
/L.OAC AQRS REGISTER AND START F'PP
/ERROR
/Sl<IP ON FPP INTERRUPT REQUEST F'LAC

•:I.

/EXAMINE APT TA6L.£ F'OR CORRECT CATA
5417
54U
5421
9422
!5423
5424
542!5

5426
5427
54321
'431
'432

nu
2,!533

74~0
'4~2

1'32
7041

7440
74~2

1n1
7440
74~2

Cl.A Cl.L
1<4fl07
TAO I

Ml.T

TAO t

1<401216

TAO
SU
HL.T
TAO I
SU
ML.T

1<4200

1<4'105

/FAC I.SW rROM APT TABl.E TO AC
/Sl<IP IF URO
/ERROR
/F'AC MSW FROM APT TABLE TO AC
/SMOUl.D EQUAL. 4200
/YES-SI< IP
/ERROR
/F'AC EXPONENT FROM APT TABLE TO AC
/SKIP IF' !ERO
/ERROR

~·~

trPP-12

~
'

lNSTRUC:TlO~

TEST 2A

01 Al..10

7-0CT-71

V003

/T82 - EXEeUTE A rsus AND FEXJT

U 158

?At';E 18

INST~UCT!C~

/FROv FPP 1.,QCAT!ON 1141
I
I

/EXP
/MSW
11..sw

5433
!5434
5435

6~52

731Z0
11!131

50'6

3533

'437
54•1

3532

!5441

1123
3531
1371

T82a

FAC

OPR 25

FAC

3777
3777
0000 • 0000

3751

0002

0001

= 2000

rPtCL.
Cl.A C:LL
TAO
K2
K4001
DCA I
K006
OCA I
K3777
TAO
K40!iHI
OC: A I
K1141

3525
6553

OCA l
F'PCOM

1124
65!55

TAO
rl'ST

K400m

54'4·6
!54'7

?4~2

5450

6551
5250

Hl.T
F'l'!NT

5442

!503

5444
!54 45

!5451

JM'

K4fll01

0000

/tERO THE FPP WORL.0
/AL.HR FAC LSW
I AL. TER FA C: "'15 W
/Al..TER FAC EXPONENT
/ALTER FPC
/LOAD CMO REGISTER
/LOAD AO~S REGISTER ANO START YPP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

.-1

/EXAMINE Al'T TABLE FOR CORRECT DATA
!54!52
!5453
!5494

'~"
54'6
5497
5460

5461
5462
5463
5464

7Jfa0

1533
74~11l
74~2

1532
7041
1U4
7440
74h
1531
70~1

'46' 1121
7440

5466

5467

?422

Cl.A Cl.L
TAO I

K_.tlrll 7

SU
1-11..T
TAO I
Cl A

K4H6

/fAC LS~ F'ROM APT TABl.E TO AC:
/SKIP IF ~ERO
/ERROR
/F'AC MSW fROM ~PT TA9LE TO AC

K2Q!l/l 0

/S~OULD

TAO

SU
1-11. T

TAO t

1<400!5

TAO
SH

K3751

Ml.T

EQUAi.. 2000
/YES - SKIP
/ERROR
/FAC EXPONENT FROM APT TABLE TO AC
/Sl-IOUl..D EQUAL 3751
/YES - SKIP
/ERROR

/F'PP-12 tNSTRUCTIO~ TEST 2A

OtAl,.10

VU3

10158

7•0CT-71

/T83 - EXEeuTE A rsue AND rEXIT
;pp LOCATION 1143

PAGE 79

INSTRUCTIO~

/F'qO~

I
I

/EO

54711l
5471
5472
5413
5474
547'
5476
5477
55211
551/JS.
55182
5593
!5594
551115

5!U16

,,,,,

6552

nee

1124
3'33
U~4

3532
UH
3531
1372
3525

6553

,,;,

7412

Uh
13~6

F'AC JPR 26 F'AC
4015
4U4
411?15

/MSW
ILSW

40H • 4000 = 2000
lll000
4000
2000

T83,

F'PICL
Cl.A Cl.L
TAO

OCA I
TAO
OCA I
TAO
OCA I
TAO
OCA I
F'PCOM
TAO
FPST
HLT

I( 4 Gl""
1(4007
I( 411llllfl

1(4006
1<•41114

t<.UU
1(1S,43
1(4901

KOH

F'PSNT

JM'

THE F'P? WORLD

/~ERO

/ALTER F'AC LSW
/Al.TER F'AC MSW
/ALTER F'AC EXPONENT
/Al.TER F'PC
/LOAD CMO REGISTER
/LOAD ADAS REGISTER ANO START FPP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST FLAG

.-1

/EXAMINE A'T TABLE F'OR CORRECT DATA
HUI
!55U
5512
95U
9514
551'
9516
5517
552'
9521
!5522

'523
!5524
9515

cl
~ -· ~~

- ---- =-~--

1n~
74~8
74~2
15~2

711141

1124
74~QI

74U
1531
n~1

U.3'

?44QI
74~2

Cl.A CLL
TAO l

1<41111117

lolLT
TAO I

K411JIU

SIA

TAD
SH

KUH

TAD I

K4Gl8'

TAO
Sh
Ml.T

Hl.T

41111 !J

/F'AC LSW FROM APT TABLE TO AC
/SICIP IF' !!RO
/£FIROR
/F'AC MSW FROM A'T TABLE TO AC
/SMOULD EQUAL 2100
/YES - SKlP
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SHOULD EQUAL 4115
/YES • SKIP
/ERROR

;-,,
.

\_ j

........

~
trPP-12

INSTRUCTtO~

TEST 2A

DI U10

V003

I
I

/EXP
/MSW
11..sw

5526
5527
55312!

5.H1
t5J.t

,5.U
5534
5535
5536
5537
5540
5:541
5542
5543

5544

5545

(15;2
7320

TS4,

rP!CL.
C:l.A Cl..L.
TAO

K420

DCA I

K4012l7

'!'AO

5'32

OCA l

1<4421

1114

TAO

1<252,

3531
1373
3'29
6553

OCA I
TAO

OCA I
f'POOM

K4rll05
K1145
K41!J01

TAO

K4l!JQI 0

t559

f"PST

65h

Ml. T
FP!NT
JM.P

'422

'3~4

!NSTRUCT!O~

/tERO T~E FPP WORL.0

1057

11~4

PAGE 80

FAC
OPR 27 FAC
2525
2525
2522
4421 - 4210 = 2104
0420
4210
2100

.3,33
U~l2l

12i 158

7 .. oc:r-11

/T84 - EXECUTE A rsue AND FEXIT
/FROM FPP LOCATION 1145

K4012l6

/ALTER F'AC L.SW
IAl..TER F'AC MSlrl
/ALTER F'AC EXPONENT
/ALTER rPC
/LOAD CMO REGISTER
/LOAD AORS REGISTER ANO START FPP
/ERROR
/SKIP nN rPP INTERRUPT REQUEST FL.AG

.•1

/EXAMINE APT TABLE roR CORRECT DATA
55416
5547
5550

5551
95'2
55'3
5554
!55'5
5556
!5557
556"
!5561
!5562
5563
!55••
5565

'7390
1sh

Cl.A Cl..L
TAO l

K412ll2l1

/FAC L.SW fROM A,T TABl.E TO AC

TAO

K.2UJI

70~1

'1440

'4~2

SiU
Ml.T

70~1

74~0
74~2
1~~1

SU
Hl.T

1126
1532
U~7

TAO I

K4U6

/SMOULO EQUAL 21012!
/YES - SKIP
/ERROR
/fAC MSW FROM APT TABl.E TO AC

TAO

K2U4

/l~OULD

TAO l

1041
1112
7440

ClA
TAO

K2'22

JMP I

,•1

"e2

SU
Ml.T

5567

!P67
He0

560121

5570
!5571
5572

1141
1143

5566

5573

11:57

1145

1<1137'
1<11411
1<1143.
K1145 1

KUl2l!S

1137
1141
1143

1145

EQUAL 2104
/YES • SKiii
/ERROR
/FAC EXPONENT rROM APT TABLE TO AC
/SMOULD EQUAL 2522
/YES - SKIP
/ERROR

trPP-12

INSTRUCTtO~

TEST 2A

OlALU

V003

10158

7•0C:T•71

PAGE 81

/T85 • EXECUTE A F'SUB AND >EXIT INSTRUCTION
1rRo~ F"PP 1.ocATION 1147
I

/EXP

/MSW
/LSW
56'10

56H
56U
5602
5603
5604
5605
5606
5601
5610
5611
5612
5613
5614
5615
'616
5617

•sh

ne0
1057
3533
11!160
3'32

U,6
~1531

13~2

U2'
6553

,,,,
U~4

1•e2
0!.11
J216

F'AC

OPR 3~ F"AC
5252
5252
5251
0421 - 2104 : 4631
0420
2104
4630
•561?0

TS5,

F'P!CL
CLA CL.L
1(420
TAO
1(4007
OCA I
1(421
TAO
1(4006
OCA I
1(5252
TAO
OCA I
I( 4""'
KU47
TAO
1('4001
OCA I
F'PCOM
1(4Ql00
TAO
rPST
HLT
F'P?NT
JMP
.•1

/lERO THE F'PP WORLO
/ALTER F'AC LSW
/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/Al. TER F"l'C
/LOAD CMD REGISTER
/LOAD AORS REGISTER ANO START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F"LAG

/EXAMINE APT TABLE F'OR CORRECT DATA
56U
5621
5622
5623
5624
5625
5626
!1627
5630

!1631
5632

56:53
!16H
5635
5636

5637
i ,_
I

(')

Cl.A CL.L

S.'U

10~1

Ut41
1440
114~2

S.532

"''1

U,2
1H0

Hh
UJ1
7041
U~!S

1441!1
'14~2

TAO I

1(4001

1r•c LSW rROM APT TABLE TO AC

TAO
SU
Ml.T

1<030

/SMOULO EQUAL 4631!1
/YES • Sl<lP
/ERROR
/F'AC MSW F'ROM APT TABLE TO AC

TAO
SH

1(4631

uo l
cu

111.T
TAO t

TAO

Hl.T

J( .. 01!16

I( 4 ""'

1<5251

/SMOULD EQUAL 4631
/YES • Sl<lP
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SMOULD EQUAL 5251
/YES • SKIP
/ERROR

~
/F'PP-12

~·

INSTRUCT!O~

TEST 2A

01Al.1v.'!

V003

Hll58

7-0CT-71

PA~E

/T86 - EXECUTE A F'SUB AND FEXIT INSTRUCTION
/FRO~

FPP L.OCAT!ON 1151

/EXP
/MS~

/LSW
T86,

OPR 31 FAC
7177
7775
0421 - 1042 = 5673
0420
1e42
5670

FAC

7777

5640
5641
5642

6552
2,057

TAO

56•3
56'4

3533

OCA I

5645

56'6

,647
5650
56,1
5652
5653

56'4
5655
5656
56!51

73e0
10~0

F'P!CL
Cl.A CL.L

TAO

3532
1176

0 r:' I

3531

DC! I
TAO
OCA I
F'PCOM

13~3

3525
6553
Ui4

TAO

6555

F'PST

74~2

6551

foll. T
F'PINT

5256

J"1P

/~ERO

K420

K4007

1(421
KUl06
K7777
K4 l!J0 5

KU51
K4001
K4001!l

THE FPP WORLD

/ALTER FAC LSW
/Al..TER •AC t.!SW
/ALTER FAC EXPONENT
/ALTER F'PC
/LOAD CMO REGISTER
IL.CAO AQRS REGISTER AND START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'L.AG

... 1

/EXAMINE APT TABLE FOR CORRECT OATA
5661!1

5661
'662
5663
5664
5665

730111
1533
70~1

11918

741110

5666
5661

1532
111l41

5671
5612

74110

5610
5673
5674
561!5

''"

56'7

1531
111l~1

U74
1440
74~2

C:l.A Cl.L
K4"211
TAO I

Cl A

TAO
SU
Ml.T
TAO I

1<5672

TAO
SU
Hl.T
TAO I
c: lA
TAO
SH

K5673

~l.T

K4i!l06

K411l0'
K7775

/F'AC LSW F'ROM APT TABl.E TO AC
/SMOULD EQUAL 5670
/YES • SKIP
/ERROR
/F'AC MSW F'ROM APT TABl.E TO AC:
/SMOULD EQUAL 5673
/YES - SKIP
/ERROR
1r•c EXPONENT FRO~ APT TABLE TO AC
/SMOULD EQUAL 777!5
/YES - SKIP
/ERROR

/F'PP-12

INSTRUCTIO~

OlAL.1~

TEST 2A

10158

7•0CT-71

V0213

PAGE 83

/T87 - EXECUTE A rsue AND r(XIT INSTRUCTION
1rROM rpp L.OCAT!ON 1153
I
I

/EXP
/MSW
/I.SW
572121
5701

!5702
'7rll3
57214

57215

97H
'7217

6'52

rAC

T87,

U41

353;5

U4Z
1n2

OCA I

1,173
Uh

F'PCOM

,,,,

F'PST

74U

HI. T

OCA I
TAD

f'PfNT
JMJI

6'91

nu
/E~AM1NE

'7i3
'7U
972'
9726

5727
!573111
,731

!5732
5713

nee

.,.~2

1n2

u•a
74~21

0
-

1rAC 1.sw YROM APT TABLE TO AC

TAD
SU

1(4639-

/SMOUl.D EQUAi. 4631
/YES • SKIP
/ERROR
/F'AC MSW FRO" APT TABl.E TO AC

HI. T
TAO I

K4H6

TAO

1(4631

Hl.T

uu
5734
'73'
5736
'737

TAO l

1<41!10'

TAO
SU

1<'767

'111J~1
U~2
74~1
,.~2

57421

f741

JMP l

62,el

6 2 eJrll

5742
5743
5744

11'1
1153

!<11'7,

1147

1<11!51,

1151

1<1153,

1153

/SMOUL.0 EQUAL. 4631
/YES • Sl<lfl
/ERROR
/F'AC EXPONENT rROM APT TABLE TO AC
/SHOUl.0 EQUAi. 776'1
/YES • Sl<lP

/ERROR

Ml.T

5741

U~7

,•1

'14@2

/LOAD AORS REGISTER AND START F'PP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST r1.AG

1(4190'1

70~1

/Al.TER F'PC
11.0AO CMO REGISTER

TAO t

.,UH,

1(411108

/ALTER F'AC EXPONENT

APT TABl.E F'OR CORRECT CATA
Cl.A Cl.I.

1,3~
721~1

/Al.TEA F'AC MSW

1<4H!S
1<1153
1<4H1

'"'
6'53

U.~4

K421H

OCA l
TAO

/iERO THE F'PP WORL.0
/Al.TER F'AC 1.sw

K717a

!5711
!5712
!57U
5714
97U

!S7U
97U
9722

rAc

l!B.,

TAO

13~4

s111

F'P ! Cl.
Cl.A Cl.L
1('6JllJ
TAO
1(4
OCA I
1(4631
TAO

!57U

!S7U

OP~

7710
7770
7767
4631 • 6314 = 4631
4630
6314
4630

.•1

"· /

()

~
/rP?-12

tNSTRUCTtO~

TEST 2A

O!AL.10

V003

?•OCT-71

10158

PAt;E 84

/BASE REGIST£~ TABLE
6121U

'!7 77

•60Z~

60~0

612101
6002
6023
6004
6005
6006
61U7

'f7 7 7

7777

'777
21121e 121

7 717
02i<'Z

001t0

~00e

00e0
e000

01210121

01212121
Ul22
01Hl2l

121H121
61D22

611JU
6f)11
6012

6013
612114
6015
6016
6011
602121

6121U
6222

6023
6024
6025
6026
6021

6025
1777
777121

6133

eeu

62120
0121e0

4121~1
2121~0

771?

0121~0

0fJ 210
612125

,,,,

711121
6133
UH
6H0

40U
200121
lll0H

00G'l 1

20121121
U 121111

60311l

.,,,,

2u121
012lH

6031

~U~0

"4H

6"32

U25

UH
1!525

6111U
035

Ul2

12'2

on
612136

f2'2

1252

6037
604121

252'

612141
611142
600
OU
604'
600
6047
605121

U00

2925

37;7
7777

eH4
0ii121
4210
HUI

52!2
12'2

/OPERAND WIT~ OFFSET OF 1
/OPERAND WITM OFPSET OF 2
/OPERAND WITM OFPSET or 3
/OPERAND WITM oFrSET or 4
/OPERAND W!TM OFPS£T OF 5
/OPERAND WITM OFFSET OF 6
/OPERAND WITM OFFSET OF 7
/OPERAND WITM oFrseT or 1121
/OPERAND WITM OFFSET OF 11
/OPERAND WJTM OFFSET or 12

2525

2,25

0000

/OPERAND WJTM OFFSET or 13

37'/7
1711
0U4
0210

/OPERAND WJTM OFFSET OF 14

421121
Q.1121

612151
60!52

nu
uu

2U4
2U4

210211l

12111l211l

2314

62154

2314
6314

60!53

/OPERAND WIT~ OFFSET O~ 2

/OPERAND WITM OFPS£T OF 15
/OPERAND WIT~ orrsET OF 16

6314

~-----

/rPP·12

INSTRUCTJO~

611)55
6056
6057
6060
611J61
611J62
6063

6064
611J65
6066

6061

6071

6071
6012
6013
6014
607'
607 6
6011
61111 el
6Ul1
611Z12
61U
61114
6115
611116
611!1'1

61Ul

61U
6112

/OPERAND WITW o;rsET or 21

0421
000

/OPERAND WITM o;rsET or 22

103
1463
0001

/OPERAND WITM orrsET or 23

0421

04~0
14~3

1463
0H1
1000
Ute
00h

61:u

0421

1000

001!10

IUU

2u0

3777

:S1'1

lll0ee

0010

u•1

0021
4015
4010
UH
2'U

40U

oeai

uh
2929
42U
42U

'2'2
21'!4
2104
u~a

1ei~2

0000

6132
6133

3146

20h

6;$14

6130

/OPERAND WITM o;rs£T or 17

02H

3146
02e1ZJ

6120

6126
6127

PAGE 85

/OPERAND WITW orrsE' or 20

6121

612'

Ut51

2!U:.'.
31416

3146

'1770
6314

6124

7•0CT-71

11Jl,Z11J

6116

6122
6123

2!24~

VU3

1•u2
1H2

7171

6117

D1AJ..1.:l

10412
10412

6113

6114
6115

~
'- f

011l411J

TEST 2A

3146
:U~6

1777
0421
0421

0000
10~2

1043
U25

2525

6134
6135

5252

6136
6137

5252

2525
5252

/OPERAND WITM orrsET or 24
/OPERAND WITM orrS[T or 25
/OPERAND WITM orrs£T or 26
/OPERAND WITM orrstT or 27

42U
4210
5292

/OPERAND WITM orrSET or 30

2U4
,,,,

/OPERAND WITM orrsET or 31

2U4

1u2
1u2
1110

/OPERAND WITM orrsrT or 32

6314

6314
00011l
3146
3146
1117

0421
111421
0000
H'!42
1043

2525
2525
2525
52!52
5252
5252

/OPERAND WITM orrs£T or 33
/OPERAND WITM orrs[T or 34
/OPERAND WITM orrSET or 35
/OPERAND WITW orrsET OF 36
/OPERAND WtTW orFSE~ or 37

t~"

\_)

~
/rPP-12

?NSTRUCT?O~

6140
6141
6142
6143
6144
6145
6146
6147
615121
6151
6152

25Z5
1252
5252

6-t.,,.

6.1,!t~

00fZ0
200
00ez
1210rz0
"1770

TEST 2A

DIA!.l.i
2525
1252
5252
312100
0H0
000Z

U~2

6002
0H0
111·0
lt053
1717

6.B53

n·n

"t711
'177 6

1116

61''1
6.S.U·

1777
200

17'11

6161
6t62
6-W

0001

'166

30~0

3777

20H
lllH0
31'11
UH
00121
1!1001

616-•
616J

IOI/Jell
0001

6167

uem

HIH

110~2

0H2

UZf/I

UH
1210HJ

611121
6171
6172

01H0

7-0C:T-71

10151

PA~E

/OPERAND WIT~ orrsET or

/OPERAND WIT~ orrsET or 41
/OPERAND WITM orrsET or 42

771~

01110111

7770

V01213

211'00

ftj:,5

/OPERAND WlTM OFFSET OF 43
/OPERAND WITM OFFS[T or 44
/OPERAND WITM orrsET or 45
/OPERAND WITM OFFSET or 46
/OPERAND WITM OFFSET OF 47

/OPERAND WITM OF,SET or 50

trPP-12

JNSTRUCT!O~

TEST 2A

DIAL.10

10158

7-0C:T-71

V003

PAGE 87

/TBS - EXECUTE A rsue AND F'£XIT INSTRUCTION
/F'RO~ F'PP LOCATION 1155

I
I

/LSW

fAC:
CPR 33
0000
0000
2525 • 3146 :
2524
3146

TSB,

*6Z00
F'PICL

/£XP
/MSW

iI
i
~

6200
62211
6202
6203
6204
6205
62H
'2211
62U

62E0
65!2

1320
1113
3533

1114

3532
35J1
1334
3525

CL.A Cl.L
TAO

1(2524
t<4H7
1<2525

1<4"06

TAO
OCA I

6U1
6212
62U
6214

65'3

F'PCOf'I

65'5

62U

65'1
521'

F'PST
loll. T
F'PtNT

6216

11~4

14~2

7776
5673
5670
/~ERO

OCA
TAO
OCA
OCA

F'AC

K42'0'
K1155
K4'J01

TAO

1(4000

JMll

...

TH£ F'PP WORl.0

/AL. TER F' AC 1.sw

/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/ALTER F'PC
/LOAD CMO RE~ISTER

/LOAD AORS REGISTER ANO START ,pp
/ERROR
/SKIP ON PPP INTERRUPT REQUEST F'LAG

/EXAMINE APT TABLE rOR CORRECT OATA
&2H
622'
6221
62U
6223
6224
622'
62U

1041
11;0
7H0

14h

Cl.A CL.L
TAO t
t<Ul07

1rAc LSW r~OM A,T TAll.E TO AC

TAO
Si!A

1<5671

/SMOULO !QUAL 5671
/YU • SKIP

TAO I

1<4"106

/F'AC MSW rAOM A,T TABLE TO AC

TAO

t<,673

/SMOUl.0 EQUAL 5613

cu
cu

Uh
7440

6231

74h

Ml.T

6232
6233

15h
10H

6234
6235
6236

u?1

1440

''~2

/ElllROR

ML.T

1532
'041

6221

62H

t"\
\ /

nee

TAO

CIA

TAO

SU
Hl.T

/YES • SKll'
/EIUtoR

t<OU

1rAc EXPONENT r~OM A~T TABLE TO AC

1(1776

/SMOULO EQUAL 7116
/YU • SKIP

/ERROR

/rPP-12

'~,
lNSTRUCTIO~

TEST 24

OUL10

VU3

10158

7-0CT-71

/T89 - EXECUTE A r:sue AND
LOCATION 1157

P,l~E

tEXIT INSTRUCTION

/Pl OM FPP
I

IL h

OPR 34 FAC
7777
7751
0421 - 0421 = 6000
0420
0421
0000

T89 1

F"P I CL

/EXP
/MSW

6237
6240
62•1
6:2'42

6552
1320
1057
3533

FAC
7777

OCA l

T',AO

!'6;~~
~

J,060
''3532

6245
&2•6
62•7
62H

1176
:n:s1

I
TAO
OC4 1

13U

TAO

~2!11

'62:12
62'''3

62'•
62'5
6296

•553
11i•
65;,
74~2

6551
5255

/cERO THE FPP WORLO

C:L.A CL.L
1<420
TAO
!ltA

OC4 I
J'PCOM

'F'PST
ML.T
rP!NT
JMll'

K4fl07

I AL. TER

1<•21
I(. 21 "6

/ALTER F"AC MSW

1<'777
1<400,
KH57
1<42101
K4C!l011J

FAC LSW

/ALTER rAC E~PON£NT
I AL TE:R FPC

/LOAU CMO REGISTER

ILOAO AORS RtGIITER ANO STAR. rpp
/ERROR
/Sl<IP ON rPP INT[RRUFT REQUEST rLAG

,•1

/EXAMINE All'T TABLE F"OR CORRECT DATA
62'7
62U
6261
62'62
6261
6264
626'
6266
6261
6270

6211
6272

•2n

6274

7320
S.'iJ

74~0
74~2

1532
70~1

Cl,;A CLL

TAO 1

l<Ulll6

/rAC LSW r~OM A,, TABL.t TO AC
/Sl<ll' IF i!ERO
/ERROR
trAe MSW rROM APT TAIL.E TO AC
/SHOULD EQUAL 6000

TAO I
SH

M.L T

1<4007

1152
1440
., •• 2

TAO
SH

K60H

HL. T

1n1

TAO l

t<UU

/ERROR
1r•c EXPONENT ;ROM APT TABLE TO AC

TAO
SU

1<1751

/SMOULD fQUAL 7751

70~1
11~7

,..,0
?4U

... LT

/YES - SI< 11'

/YES • St<ll'

/ERROR

INSTRUCTIO~

trPP-12

TEST 21

DlAl.10

?~OeT-71

V003

10158

PAGE 89

/T90 - EXECUTE A rsue AND F'EXIT INSTRUCTION
rPP LOCATION 1161

/F'RO~

62'1'
6216
62'1?
63H
6301
6302
63Ql3
6304
630,
631116
6307
63UI
6311

6!)52

F'AC

CPR 35

F'AC

/[XP

0000

7752

/MSW
11.sw

1041 • 1042 : 6000
1041
1043
0000

T90,

rPtCL
Cl.A Cl..L

'13U

1071

TAO

OCA t

3533
1071

TAO

OC4 l
OC4 t
HO
OCA !
,PCOM

3n1
1336
3,25

"'3
11~4

K1U2
K001
KU42
K006

K0.105

1<1161
KOU

KUH!

Ml.T
rPJNT
JMP

,•1

F'PST

nu "''

6313

/lERO THE F'PP WORl.0

'4~2

65'1
'312

/Al.TER F'AC L.SW
/Al.TER F'AC MSW
/Al.TER F'AC EXPONENT
/Al.TER F'PC
/L.0AO CMO REGISTER
/l.0AO AORS REG!STER ANO START 'PP
/EAR OR
/SKtP ON rPP INTERRUPT R[QUEST Fi.AG

/EXAMINE APT TABL.E F'OR CORRECT CATA
6314
631'

1300
2,5J3

6317

140

6316

63H
6321
6322
6323
6324

("";
,,
/

Cl.A Cl.L
TAO I
1<4llJIZl1

14~0

Si!A

Ml.T

1'32
1041

'1440

U!J2

'4~2

TAO 1

1<48"6

TAO

l<UH

Ml,.T
TAO 1

KUU

TAO

K1'52

6325

15h

6326
6327
63H
63U

U7e
744e

6332
6333

,13~

JMP 1

641l21

600

63H
6335
6336

1157

K1155,
1<115'1,

11~1

1<11611

70~1

U55

HI. T

1U5
11'1
1161

/SMOULD EQUAL 6010
/YU - SKIP

SiA

14~2

/FAC I.SW rAOM APT TABl.E TO AC
/SKIP IF' HRO
/ERFIOR
/'AC MSW FROM APT TABI.£ TO AC

,•1

/ERROR
/F'AC tXPONENT F'ROM APT TABLE TO AC
/SHOULD EQUAL 7152
/Yt:S-SI< IP
/ERROR

/FPP-12

l""i
!NSTRUeTtO~

TEST 2A

0 I AL10

U!l 15 8

'7·0eT-71

VU3

PA GE 9 QI

/'\'91 - EXECUTE A rsue AND FEXIT INSTRUCTION
FPP eooE LOCATION 1163
/US!~G SI~GLE WORD JND!~ECT ~EFERENCE FORMAT W!TM X:0

/f"Ro~

I
I
/[XP

IMSw
ILSW
6400

6401ll

.6.-s1
'.6412
·~*':eia

6404
6405

73U
.U•-4

'3';'53
3'32

1111
3531

6406
6407
64Ul
64,11
6412

6'5"3

6414

655!5

6413

6416
641?

:S525

:S555
11~4

TU,

•AC

OPR 42
7777

•6411H'l

/eERO THE F'PP WORL.0

F'PICL
Cl.,A C:LL
'TiO

K40H

!lCA
nCA

1<4007

1<42106

TAO

1<2314

DCA

K4005

TAO

K116:S
K4001
1<'7008

OCA
OCA I
rf'COM
TAO

KUH

102

Vll'ST
Ml. T
F'P!NT

Sfli6

JMI'

,•1

FAC

2301
000~ - 0000 = 2000
000ei
4000
11.'~00

233,4

/ALTER FAC LSW

/ALTER FAC M9W

/ALTER FAC EXPONENT
/ALTER f"F'C
/SET INDEX REGISTER 0 EQUAL TO eERO
/LOAD CMD REGISTER
/LOAD AQRS REGISTER ANO START F'PP
/ERROR
/SKIP ON rPP INTERRUPT REQUEST f"LA~

/EXAMINE APT TABLE FOR CORRECT CATA
6420
t4U
6422
642:5
64i4
6425

6426
6427
64:Sl/J
64U
64!2
64$3
643'4

6435

13U
1!533

'"~"
702

1532

7041
1104
74421
1d2
1'31
7041
13~0

7440
1d2

Cl.A Cl.L
TAO I
SU

1<401111

1rAc LSW r~OM APT TABLE TO AC

K4"l 06

/ERROR
/F'AC MSW rROM AP~ TABLE TO AC

/SKIP lF' itlltO

HL '\'
TA tl I

CIA

TAO
SU

Ml.T
TAO 1
ClA
TAO

1<2801!1

/SMOULD EQUAL 2000
/YES • SK lP

/ERROR

K41!111l!!S

1r•c EXPON£NT F'ROM APT TABLE iO AC

1<2:501

/SHOULD EQUAL 2301
/YES • Sl(lfl
/ERROR

SiA

Hl.T

/EXAMINE INDEX REGISTER 0
6436
6437
6440

1555
7440

14h

TAO
SU

ML'\'

K7000

/X0 f"RDM ~oc 7000 TO AC
/Sl<IP IF i!ERO
/£RROR•X0 NOT EQUA~ iO i!ERO

/F'PP-12

tNSTRUeTIO~

TEST 2A

DlAl..10

V01'J3

10: 59

7•0CT-71

PAGE 91

/T92 - EXEeuTE A rsue AND F'EXIT INSTRUCTION
/F'RO~ F'PP ~COE ~OCATION 1165 IN F'IX£0 POINT MODE
/USl~G Sl~~l.E wORO !~DIRECT ~EF'ERENCE FOR~AT WIT~ X:2

6441
6442

6'52

neei

64'3
6454

64'5
64,6

64'1

T92,

-·-·

""""
rPtct.

F'll!NT
JMP

3532

U31
13~1

:552,

14~2

'2~6

F'AC
0001

/~£RO

6't1

Ul30

64!11

7777 - 0001 : 7775
6000
2000

rPeOM
F'PST

6446

64!12

/MSW
/LSW

OPR 03

65'3
6!U'

1176

6450

0001

1124

~5j3

6444

6447

FAC

/EXP

CLA Cl..L
K4rll01
OCA l
K.7777
TAO
1<4006
OCA I
TAO
1<1
K400!i
OCA I
K1165
TAO
K4001
OCA I
K4el00
TAO

6443

6445

I
I

Ml.T

TME F'PP WORt.0

/Al.TER F'AC LSW
IAl.TER F'AC MSW
/ALTER F'AC EXPONENT
/At.Te:R F'PC
/LOAD CMO REGISTER
/l..0AO AORS REGISTER ANO START FPP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST F'LAG

.-1

/EXAMINE AllT TABLE F'OR CORRECT CATA
6460

6461
6462

1152

6465
6466
6467
6471

64'1
6472
6473
6474

647'
6416
6417

'-· /

70~1

6464

1UQl

1533

Cl.A Cl.L
1<40217
TAO I

cu
TAO

KUH

1'U

... L.,.
TAO I

I( 4 01216

TAO

1<1175

SH
1-11. T

70~1

CIA

74i0

74'2
'""

SIA

7041
U14
7440

Cl A

1'~1

1030

14h

TAO I

K4H!I

TAO

ML.T

/F'AC I.SW rROM APT TAel.E TO AC
/SHOULD EQUAi. 6lel0
/Sl<lP IF' UH
/ERROR
/FAC MSW rROM APT TABl.E TO AC
/$MOULD EQUAL 7775
/YES-SI< IP
/ERROR
1rAe EXPONENT F'ROM APT TABLE TO AC
/SMOULD EQUAL. 1
/YES-SK IP
/ERROR

~
/FP?-12

!NSTRUCT!O~

TEST 2A

OtAl.10

Vl1ll1l3

7-0CT-71

~
U1151j

PIAt;E 92

/T93 - EXECUTE A rSUB AND FEX!T INSTRUCTION
/IN >!XED ?Q!NT MO~E FROM LOC.AT!Otll 1167
/USI\G S!~Gl.E WORD DIRECT A9DRESS!NG FORMAT
I

IEXF
/MSW
Ii.SW

65H
6501
65.m-2
650'~

$'SJ'4'

6505
6506
65"7
6510
6511
t'i"2
65U
6514
6515
6!516

6552

FAC
0000
0421 - 0421 : 7777
7777
0420
0421
F4C

T93,

7Jf/;0

:1,057

TAO
TAO

3532

OCA 1
DOA 1

35H

13~2

TAO

DCA I

3525
1124

TAO

..,,,

rPeOM

74~2

Ml.T
ll'PtNT
JMP

,,,~

051
!SJ :1.5

7:500

652Z

1'33

652~

6524
6535
6526
6521
6530
6531
6532
6533
6534
6535
6536
6537
6540
6541
6542

TAO

Si A
Ml.T

1(4210'

K1167
1<42101
KU011l

K1171
I< 4"J 0 6

TAO I
C:? A
TAO

K'f777

TAO I

1<41109

Ml.T
JMP' I
6600

57:56

66e0
1<1163,
1<2301.
K1165,
K1167,

1163
2301
1165
1167

/Al.TER FAC MSW
141..TER FAC EXPONENT
/Al. TEA F'PC
/I.CAD CMO REGISTER
/l.OAO AORS REGISTER ANO START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'l.4G

TABLE FOR CORRECT OAT.A

14~2

/Al.TEA F'AC 1.sw

.-1

Si!A
Ml.T

7440

1165
1167

A~T

1,H

231Z1

K4211l
K4011l7
K421
K412111l6

Cl.A Cl.L
1(4007
TAO 1

'1041
1176
1440
1•@2
1'32
7041
1116
144"
74h

1163

/cERO THE F'FP WORl.0

F'PST

/EXAMINE

65"21
6522

F'PICI.
Cl.A 01..L
OCA I

3533
1:060

6517

OPR 21

011l~l1l

.•1

1rAC LSW F'ROM APT T4Bl.E TO AC
/Sl<IP IF' 7777
/ERROR
/F'AC MSW FROM APT

TAB~E

TO AC

/SI< IP IF' 7777
/ERROR
1r•c EXPONENT rRo~ APT TABLE TO AC
/Sl<IP IF i!ERO
/ERROR

/F'PP-12

JNSTRUCTIO~

TEST 2A

OlAl.111.'!

U158

7•0CT-71

V003

PACE 93

IT94 - EXECUTE A rsue ANO F'EXtT INSTRUCTION F'ROM LOCATIO~ 1171
rrxEo PC?NT MOOE F'ROM F'PP CODE LOCATION 1171
IUSI\G S!~~l.E WORO DIRECT AD~RESS rORMAT AND F'ORCING OVERF'LO~
II~

rAC

CPR 44

/EXP

7771

-·- ..

/MSW
/1,.5111

377' - 7171
717'
7176

T94 1

*6600
rPtCL
CLA eu

66£0

661110

6601
66212
6621J
6611')4
66ll'J'
6606

661"7
6611/J

6611

66U

66U
6614
66U
6616
6617

65'2
73£0

11?6
3533

11a3
3532
1176
3531
1350

11'4
65'3

,,,,
74~2

6551

!5216

F" AC

7777

= 3777
/~ERO

TAO

K7771

DCA I

1(007

TAO

OCA I
TAO
OCA l

TAO

OCA I
TAO

F'PCOM
F'PST
ML.T
F'P!NT
JMP

7777

1(3777
K4006
1(7177
1<400!5
1<1171
1<4001
1(400Ql

THE F'PP WORLO

/ALTER F'AC LSW
IAL TER F'AC MSW
/ALTER FAC EVPONENT
/ALTER F'PC
/LOAD CMO REQ1ST£R
/LOAD AORS REGISTER ANO START rpp
/ERROR
/SKlP ON F'PP INTERRUPT REQUEST FLAG

.-1

/EXAMINE A,T TABLE F'OR CORRECT CATA
1533
7040
744111
74~2

CL.A CL.L
1<4807
TAO I
CMA
SiA
ML.T

6626

1'32
711141

6630

7440

SiU

6620
6621

66U
66U
6624

662'
6627

1300

11~3

''~2

6631
6632
6633

1'H

6634
6635

TAO I

1(006

TAO

K3777

ML.T

TAO l

71114 0

CMA

74~1/J

702

I-IL. T

K4HS

/F'AO LSW rROM APT TABLE TO AC
/SMOULD•7777
/SKIP IF' AC•0
/ERROR
/F'AC MSW FROM APT TABLE TO AC
/SMOUL.0 EQUAL 3777
/SKIP IF 3777
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
ISMOUL0:'1777
/SKIP IF' AC1111J
/ERROR

/EXAMINE rPP STATUS ~EGISTER
6636
6637
6640
6641
6642
6643
6644

t'1"i

"·

30'4

F'PRST
OCA

1024

TAO

7041

CIA

6556

11~6

TAO

7440

SZA

74£2

I.IL T

SU TUS
ST nus

K4201?l

/F'PP STATUS REGISTER TO AC
/STORE STATUS IMAG~ IN LOC STATUS
/DP CBIT 0> ANO F'RAC OVF'LO <BIT 4) S~OULD BE SET
/YES - SKIP
/ERROR - EXAMINE LOC STATUS F'OR !NCORRECT STATUS

\""

/rPP-12

19'\
INSTRUC:TIO~

TEST 2A

J t 41.1'3

10158

7•0C:T-71

V003

PAGE 94

EXECUTE A rsua AND FEX!T INSTRUCTION FROM L0CAT!O~ 1173
/IN >IXEO PO!~T MOOE
/US!~G A JOUBLE WORD DATA RE~ERENCE FORMAT ~!TY X:0

/T95 -

6645

65!)2

nee

I
I
/EO
/MSW

0421 -

ILSiti

042f.

'1'95'

>AC

OPR 15

>AC

21001

----

0001

21214
2104

= 6314

/lERO THE FP? WORLO

rP!CL

Cl.A C:l.L

6646
664?

1057

66H

~H3

OCA

1(4001

66:51
66,2
6653
66§4
66'5
6656
66!c7
66U
6661
6662
6663
66U

10~0

TAO

I( 420

3~31
13~7

OCA

K421
K4006
1(1
K4ill 0 !5
1<11.73

3525

TAO

OCA

3,124

TAO

K4001
1<42100

6553
6555

!!'PST

3532
1030

OCA
TAO

F'PCOM

?4e2

Hl.T

65h

'PINT

'2~3

JMP

6314

, .. s,

/ALTER FAC LSW

/ALTER f"AC MSW
/ALTER FAC EXPONENT

/ALTER FPC
/OP MODE
/LOAD CMO RE~lSTER
/I.CAO AQRS REGISTER ANO START rpp
/ERROR
/SKIP ON f"PP INTERRUPT REQUEST f"LAG

/EXAMINE APT TABLE FOR CORRECT DATA
6665
6666
6667
667eJ
6611
6672

?3~0

Cl.A Cl.L

1!533

TAO I

71i'141

CIA

K4001

/rAC: L.SW F'ROM APT TABLE TO AC

K6J14

HI. T
TAO I

1<41!106

/SMOULD EQUAL 6314
/YES • SKll'
/ERROR
/rAC MSW rROM APT TAB~E TO AC

1041

Cl A
TAO

K6314

/S~OULD

6676

1440

6677
67HI

He2
15:!1
7041

SiA
Hl.T
TAO t

1<4'!105

7440
?4e2

6673

1532

6674
6675

6701
6702

6703
6704

:1.1; 3

10:50
7440

14~2

TAO
S~A

Cl A
TAO

SH
~LT

EQUAL 6314
/YE'.S - SKIP
/ERROR
/rAC EXPONENT rROM APT TABLE TO AC
/SMOULD EQUAL 1
/YES - SKIP
/ERROR

/FPP·12

INSTAUCTSO~

TEST 2A

0 Ul.1Z

V303

U158

7-0CT-71

PAGE 95

/T96 - EXECUTE A rsue ANO F'EXIT INSTRUCTION
1rRo~ LOCATIO~ 1204 IN F'LOAT!NG POINT MOOE
/USI\G A OOUBl.E ~ORJ DATA RE•ERE~CE FORMAT WITM X:~
I
I

/EXP

/MSW

6?U

6716
6707
6710
67U
6712
67U
6714
671'
6716
6717

67211J

65'2

TAO
OCA

TAO

OCA
OCA
TAO
OCA I

3'32
3'31
u~•
3529

,PCOM

6553

,,,,

TAO

11~4

!!1~22

6722

F'P I CL.
Cl.A CLL

1114

P'PST
Ml.T
P'PZNT
JMID

FAC
7776

2525 - 3146 = 5673
5670
3146

T96,

ui:s

flJ flJflJflJ

2524

3'33

ulli2

OPR 33

flJflJ liUJ

/LSW
7300

6721

F'AC

1<2524
J<4illflJ '1

K2525
K4H6
1(4805

KUllJ4
K4H1
1(40018

/ALTER F'AC L.9W
/Al.TER F'AC MSW
/ALTER F'AC EXPON£NT
/ALTER FPC
/L.OAO CMO REClSTER
/LOAD ADAS REGISTER ANO START PPP
/ERROR
/SKIP ON rPP INTERRUPT REQUEST rLAG

,•1

/EXAMINE A'T TABLE FOR CORRECT DATA

oa• no

Cl.A CL.L
TAO l

K4H1

/FAC 1.sw FROM APT TABLE TO AC

6726

'941

u;111

CIA
TAO

K'671!1

673111
OU
67!2
6733
6734
6735

7441

/SMOUL.0 EQUAL 96711J
/YES • SKIP

•1u uh
021

6736
6737

6?4flJ

~~!

TAO t

KUH

/FAC MSW FROM APT TABLE TO AC

TAO
SU

K567:S

/SMOUL.D EQUAL 5673

TAO l

K4111flJ!5

/ERROR
1rAc EXPONENT F'~OM APT TABLE TO AC

7440

''h

Ml.T

1'31
')'041

6741
6742

TAO

1<1776

1440

SiU

6743

14~2

HLT

6744

5749

JMI' I

674,

7flJ1flJ

7010

.. ,,

670
6H7

12u

1(1204,

1204

1173
1171

K1173,

1173
1171

6750

/E~ROR

~LT

14h
1532
1041
11'1

U15

K11711

/YES - SKIP

/SMOUL.0 EQUAL 17'16
/YES - Sl<lP
/ERROR

(~"\
,
I

"--

'-)

/F'PP-12

·~

INSTAUCT10~

TEST 2A

DI Al.10

VH3

/rLOAT!NG POINT INOEX REGIStERS

ee
,rne0
00U

L~CATIONS

7~2!0

PAGE 96
TO

70~7

•721~2!

11~

7000
7001
72102
7003
7004
7005
7006
70217

1211se

7•0CT-71

! R,

I I R ~

00021
0000

/ l

H20
111002!
00~0

02120

I I
I l

R 2
R 3
II R 4

0000
0000
212100
00021
0000
0H0

e0e0
00e0

11 IC 5

II R 6
I I R 7

/T100 - EXECUTE A F'MUL ANO F'EXlT INSTRUCTION
/STARTING AT F'PP coot LOCATION 12123
I
I

/EXP
/MS\ol
/l.Slol
7010
7011
712112
10U
7014
1015
7016
7017
7020
1021
7022
7U3
7024
7025
7026

7011!1
6552
73UI

u;,3

3532
1U3

3531

1354
:552'

6553
U~4

6555
74~2

T100,

CPR 45 F' AC
rAC
3715
111'1
1711
2000 x 2000 = 2000
0000
0001!1
0000
•70Ul
F'PtCI.
Cl.A 01.L
K4007
OCA t
K20H
TAO
KU06
OCA l
TAO
K1777
KU0!'J
OCA I
KU2~
TAO
1(4001
OCA 1
,POOM
K40H
TAO
F'PST

65'1

Hl.T
F'PtNT

5225

JMP

/iEAO THE F'PP WORLO
/Al. TER F'AC I.SW
/AL. TER F"AC MSW
/AL.TEA F'AC EXPONENT
/Al..TER F'PC
/L.0AO CMO REGISTER
/I.CAO AORS REGISTER ANO START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

,•1

/EXAMINE APT TABLE F'OR CORRECT DATA
7027
7030
70U
7032
7033
7034
7035
7036
7 lll3 7
711.!421
711.1111
7042
7043
711.144

15:!3

1300

CL.A CL.L
K4007
TAO I

74~0

Si!A

'4~2

HL.T
TAO I
Ct A
TAO
SH
HL.T
TAO I
Cl A
TAO

1532
1041

111~0

74~2

1531
1041
1357
7440
74~2

I-IL. T

K4006
K211JllJll.I
K4k'l05
K377!5

/F'AC LSW F'ROM APT TABL.E TO AC
/YES - SKlP
/ERROR
/rAC MSW F'RO~ A?T TABL.E TO AC
/SHOULD EQUAL 2000
/YES - SKIP
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SHOULD EQUAL 3775
/YES - SKI?
/ERROR

•

/rPP-12

!NSTRUCTlO~

TEST 2A

0 l ALU

10158

7-0CT-71

V003

PAGE 97

IT101 • EXECUTE A rMUL AND F'EXIT INSTRUCTION
/STARTING AT F"PP CODE LOCATIJN 1025
I
I

/EX?

/MSW
11..sw

7045
7046
7047
7050
7051
7052
7053
7054
705!5
7056
7051
7060
7061
7062
7063
72164

6552
7300

U76
3533
1176
3532

s,12130

3531
1355
3525
65'3
11~4

6555

65h
52~3

T1011

F'AC
0001

CPR 00

FAC

0000
1777
7771 x 7777 : 0Z012!
0000
7771
7777

F'P?CL
Cl.A C:LL
K.1777
TAO
1(42107
OC: A !
K7777
TAO
1(4006
OCA !
TAO
K1
K4005
OOA !
K1"25
TAO
K4001
OCA I
rPeOM
K4"00
TAO
F'PST
Ml.T
F'PlNT
,•1
JM!t

/lERO THE FPP WORLO
/ALTER F'AC LSW
/ALTER F"AC MSW
/ALTER F'AO EXPONENT
/ALTER F'PC
/LOAD CMO REGISTER
/l.OAO AORS REGISTER ANO START PPP
/ERROR
/SKIP ON rPP INTERRUPT REQUEST PLAC

/EXAMINE AIDT TABLE F'OR CORRECT OATA
7065
1066
1067

7070
7071

70'2
7073
7074
7015
7016

,-l

1533
74'0

14h
1532
1440
14~2

1531
1440
74~2

Cl.A CLL
1<4001
TAO I
SU
Ml.T
KUH
TAO !
SH
Ml.T
TAO l

UA
1-11. T

1(4005

/fAC LSW fROM A~T TABLE TO AC
/SKIP IF" lERO
/ERROR
/F'AO MSW PROM A~T TABLE TO AO
/SKIP Ir HRO
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SKIP IF' U:RO
/ERROR

t"i
/F'PP-12

·.~

INSTRUC:TIO~

TEST 2A

OlAL.111J

VH3

U:5B

7•0C:T-71

PACE 98

IT102 ~ EXECUTE A rMUL AND F"EXIT INSTRUCTIO~
/FROM LOCATION 1031 FORCING AN EXPONE~T OVERF"LOW CO~DlTION
I

/EXP
/MSW

11..sw
711J'17
71H
71U
711112

65'2
7300

1176
3533
11~3

71t!3
7HJ•
71215
7111!6
711217

3531
13'6

7111

.,,.3

71U

3'32
Ui3
3'25

7112

Ui4

71U

6555

7U.4
7115

74il2
6591

7116

T102,

FAC

CPR 47

0001
3771 x 3000
777'
0011Jl1J
3777

rPtC:I..
C:l.A Cl..L
TAO

OCA I
TAO

OCA I
TAO
OCA I
TAO
OCA 1

F" AC
411Jl1Jl1J
= 2777
7777
/~ERO

K7777
1(4Qll1J7
1(3777
K4fl06
1(3771
l<Ulll5
l<U31

KU01

J"PCOM

TAO

KUH

F'PST

ML.T
,, PH
JMP

THE FPP WORl..0

/Al.. TER FAC 1,.SW
/Al..TER F"AC MSW
IAl.TER FAC EXPONENT
/Al..TER F'PC
11..0AO CMO REGISTER
/1,.0AO AORS REGISTER AND START F'PP
/ERROR
/SKIP ON rPP INTERRUPT REQUEST r1..AG

.-1

/EXAMINE APT TABl..E FOR CORRECT DATA
7117
7121/J

7121
7122
'1U

7U4
71U
7116
7U7
71H

7131
7132
7133
7i;J4
713'
7136
7137
7140
714:1.

71•2
'1143
'11U

7145
7146

N~I

1,533

u•ei
74'QJ

1•0
1'32
7111~1
U~l1J

Cl.A Cl.L
KU07
TAO l
CMA
SU
Ml.T
TAO I

CIA
TAO

.,~~"

Si!A

TAO I

.,.~2

711141
u~•
7440
74~2

nee

6556
3024
1024
7041
1047
7440
7422
6552

Ml.T

CIA

TAO

KUH

1<2777
KUIU
t<Ul1Jl!J

Sii!A
I.II. T

CL.A Cl.L
F'PRST

ST4TUS
STATUS

TAO

KUllJ

OCA

SU
I.II.. T

F'PJCL

/F'AC 1..sw F"ROM A'T TABl.E TO AC
/SKIP IF' 7777
/&:RROR
/F'AC MSW FROM APT TABl.E TO AC
ISMOUl..D EQUAi.. 2777

/YES - SKIP

/ERROR
/F'AC EXP F'ROM APT TABl.E TO AC
/SHOULD EQUAL 40011J
/YES-SKIP
/ERROR
1rPP STATUS REGISTER TO AC
/IMAGE OF' FPP STATUS STORED IN LDC STATUS
/EXPONENT OVERFl..OW CBlT 5) SMOULD BE SET
/YES • SKIP
/EXAMINE 1..0C STATUS rOR INCORRECT STATUS
/~ERO TME FPP WORI,.~

..
.

1rPP-12

INSTRUCTIO~

7147
715121
7151
7152
7153

7154
7155
7156
71'7

716111

TEST 2A

OlAL.10
rPqST

65,6

~I..,.

5753

Jto.IP

72~0

72:!!0

1023

1<1023.

12123

111!~5

1<1025,

12'25

111!31
3775
'l 7"17

1<1031.

1031
37'75
2777

1<37'5,

".2777'

PAGE 99

/READ FPP STATUS INTO AC

.. ,,

Se A

7440
74h

111!158

7-0Ci-71

VIU3

/S"IOULIJ 9E eERO
/ERROR • FP!CL 010 NOT CLEAR EXP OVE~F"LO~ ST~TUS

I
/T103 • EXECUTE A rMUL AND FEXIT INSTRUCTION
/J'RO~

LOCATION 1114 IN FIXED POINT MOOE

FAC

OPR XX

F'AC

/[)(p

0000
= 0000

/MSW

00021
-·-·
00021 )( 11!002

IL.SW

2000

TUJJ'

•7200
rP!CL

12e0
72H
7211
7 21212

t5'2

73U

:s,~3

0525

CML. RTR
1(4006

1(411!111!7

OCA t
OCA I

7205
7206
1201

1017

TAO

1<1114

OCA

K4H1
1<4001!!

12u
722.1

1212
?'213
7214

3531

3525
U24

65;3

·~''

74l!J2

-oh

Sii!U

OCA I

TAO

1(400!!

F'PC:OM
F'PST
Ml. T
F'llllNT

JMP

THE FP~ WORL.0
= 2011!0
IAl.TER FAC L.SW
/AL. TE:R FAC '4SW
/AL.TER F'AC EXPONENT

/~ERO

CL.A CL.L

7213

12Z4

001!l0

/AC

IAl..TER FPC
/OP MODE
/I.DAO CMO REGISTER
/L.OAO AORS REGISTER AND START F'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST FL.AG

.•1

/EXAMINE APT TABL.E FOR CORA£CT CATA
7215

1216
1211
72U

730111

Cl.A Cl.L

7440

TAO I
SiA

u:;:s

1<007

1rAc LSw rR0'4 A~T TABL.E "1'0 AC
/Sl<lP IF l£RO
/ERROR

1(4006

/FAC '4SW FROM APT TABl..E TO AC

Ml. T
/EXA'41NE rAC MSW

7221
7222
7223

1532
'f 44' 0

TAO
SH

74~2

Hi.T

/SI< lP IF" lERO

/ERROR

/EXAMINE rAc EXPONENT

~
\. /

7224

1531

7225
7226

7440
74~2

TAO

Si! A
HI.. T

1(4005

/F"AC EXPONENT FROM APT TABLE TO AC
/SKIP Ir:- i!ERO
/ERROR

~
/F'PP-12

·~

INSTAUCTlO~

TEST 2A

OIAl..10

UI 158

1 .. ocr-11

V003

PAGE 1210

/T110 • EXECUTE A F'DIV AND r:EXIT INSiRUCTlON
/F'ROM 1..0CAT!ON 1033
I
I

CPR 46

F'AC

3717

3777

0002

11..sw

0000

00011.1

T1UI,

F'll' l Cl..

/EXP

/MSW

7227
723QJ
7231
72J2
1233
721"4

723'
7236
7237
72•1!1
7241
724'2
7243
7244
7245

6552
'JIZQJ

JSU

35J2
1123
3531

1366
3'2'

''53

11i4

6555
74~2

65!11

!5244

F' AC

21211!10 I 1000 : 2000
/~ERO

Cl..A Cl.L
K412107
OCA I
TAO

OCA I
TAO

OCA I
TAO
OCA l
r:'PCOM
TAO
F'PST
Ml. T
rPlNT
JMll

0000

1(212101!
l<-412106
1(3777
K42105

K1rll33
1(412101
I( 4121021

THE F'PP WORl..0

/ALTER F'AC 1..sw
/Al.TER F'AC MSW
/Al.TER F'AC EXPONENT
/Al. TER F'PC
/I.CAO CMO REGISTER
/1.0AO AORS REGISTER ANO START F'PP
/ERROR
/SKIP ON FPP INTERRUPT REQUEST VLAG

,•1

/EXAMINE APT TABl..E F'OR CORRECT CATA
7246
7247
72921
7211
7292
7253
72!54

72'5
72!16
72'7
7260
7261
1262
726:9

731/lfa

1HJ
7440
74h

uu
70~1
u~•

7441!1

74~2

1531
70~1

1031
74'0
'14~2

Cl.A Cl.I..
K4rll07
TAO l
Si!A
Ml. T
K4H6
TAO l
CIA
K201H
TAO
SU
t.11.T

TAO l

K4H5

1(2

CIA

Sh
Ml.T

/F'AC 1..sw rROM APT TABl.E TO AC
/Sl<lP IF' UAO
/ERROR
/F'AC MSW rROM APT TABl.E TO AC
/SHOULD EQUAL 20121121
/YES - Sl<ll'
/ERROR
/F'AC EXPONENT FROM APT TABLE TO AC
/SMOUl.D EQUAL 2
/YES - St<ll'
/ERROR

IF'PP-12

INSTRUCT!O~

TEST 2A

DIAL1Ql

V003

7•0CT-71

/T111 - EXECUTE A ro1v ANO ~EXIT
/FROM LOCATION 1101
I
I
I EXP

/MSW
11.sw

6552

7264
7265
7266

1116

126'1

:5533

7270
7271
7212
72'13
'12'14
7275
7276
72'!7
1311.10
73"1

3'32
1037
35H
1367
3525

73Ql2

'7320

65'3
1124

055
14~2

6551
!!1;5~1

T1111

U: 158

PAGE 101

l~STRUcTION

OPR 13 F' AC
0Ql00
00~0
0014
0000 I 3777 = 2735
0000
7?7?
2735

F' AC

F'P!CL.
CL.A CL.L
1<2'135
TAO
K400'1
OCA t
1(4006
OCA I
K14
TAO
1(005
OCA I
K1U7
TAO
1(4001
OCA l
rF'COM
TAO

rPST
HI. T
rP?NT
JM!'

K4 00 OJ

/lEFiO

THE F'PP WORl.0

/ALTER F'AC I.SW
/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/AL.TER F'PC
/I.CAD CMD REGISTER
/LOAD AORS R£GISTER AND START F'PP
/ERROR
/SKIP ON ;pp lNT£RRUPT REQUEST r1.AG

... 1

/EXAMINE A'T TABLE F'OR CORRECT CATA
73"3

7304
73U
7306
7307
131111
7311
'1312
7JU
'131•
731'
7316

~)
\

73~0

1533
74~0

74'2

1'U
70~1

Cl.A Cl.L
1<4007
TAO I
Si!A

HL.T
TAO I

Cl A

I( 41?106

1116

TAO

K2735

15H
7440
74h

SH
Hi.T
TAO I
SH
Hl.T

1<4005

14~0
74~2

/F'AC l.SW F'ROM A,T TABl.E TO AC
IF' URO
/ERROR
/F'AC MSW F'ROM A,T TASL.E TO AC
/Sl<JP

/SHOUL.0 EQUAi. 2735
/SKIP IF' 273'
/ERROR
/F'AC EXPONENT F'AOM APT TABLE TO AC
/SKIP IF' i£RO
/ERROR

/FPP-12

INSTRUCTIO~

TEST 2A

DSALt0

10158

1-ccr.11

VH3

PAGE 11/J2

/T112 - EXECUTE A FDIV A~D r~x!T I~STRUCTION
/FROM LOCAT[ON 1125 rQRCING A~ EXPONENT UNDERFLOW CONOITIO~
/AND NOT TRAPPJ~G roR IT
I

FAC

OPR 50

FAC

4001

012JllJ2

llJ01/J0

IL.SW

0001/J

0000

0001/J

T112.

rP!CL.
eLA CL.L

7317
7-~20'

132'.1

13ZZ
7323
7324
7325
7316

7'!27

1nv

7331
73:S2
1333
733'
7335
7U6
7337
7341'
7341
73'42
73'3

73'4
7:545
7346
7347
73'21
7351
13'2

73'3
73!J4
735'
7396
73'7
736fll
7361
7362
7363

6552
NU
n3'3
t"64

101/JllJ I 2001/J = 0~00

U~5

K4101
K1il!0111

OCA

K411le 6

TAC

UH
110

OCA

6'53

rll C-OM

TAO
OCA I

3!t2S-

.,,,
11~4

/~ERO

'rAO'

O'CA l

3532

K4tll01

K4 rJllJ!J

KU25
K 411!0 S.

KOH

65!51

TAO
rPST
ML.T
rPlNT
JMll

.-1

7320

CL.A Cl.L

74~2

TAO I
SU·

I( 4lll QI 7

74~0

1532

TAO 1

1(41106

1533

MLT

74~2

,.~~'
14~2

Ml.T

15U

TAO
SU

14~1/J
74~2

Ml.T
F'P!lST
OCA

61n6

:51/J24
1024

TAO

7121~1

s,049

1(411H

STATUS
STATUS

THE FPP WORL.0

/M.TER FAC L.SW lN APT TABLE
/ALTER FAC MSW lN APT TABL.E
/AL.TER FAC EXPON[NT IN APT TABLE
/AL.TER FPC POINTER IN APT TABL.E
/LOAD CMO REGISTER !N rPP
/L.0AO AORS REGISTER ANO START F'PP
/ERROR • rpp ALREADY RUNNING
/SKIP ON F'PP I~TERRUPT REQUEST FLAG

/F'AC LSW F'ROM A,T TAB~E TO AC
/SKIP IF' lERO
/ERROR
/PAC ~SW rAOM A,T TAB~£ TO AC
/Sl<IP IF' URO
/ERROR
/F'AC EXPONENT FROM APT TABLE TO AC
/Sl<IP If" URO
/ERROR
JREAO FPP STATUS ReGISTER INTO AC
/IMAGE or STATUS REGISTER

TAO
SU

K4'l

700

1525

TAO
CIA

K4H1

/SKIP IF' 4l!J
/ERROR • INCORRECT STATUS
/F'PC POINTER F'ROM APT TABLE TO AC

K112?

/S~OULD

14@2

Ml.T

70~1

!111

TAO
SU

··~"

74~2

7364
736!5

!!1765

7366

112133
1127

7367

/EXP
/MSW

"~"

!-11.T

JM!' t
'400

1<112133.
1<11el7.

1033

1107

,•1

EQUAL 1121
/YES • SKIP
/ERROR - rPc POINTER VALUE

/F'PP-12

lNSTRUCTIO~

TEST 2A

!:IUL10

/Tll!

• EX£CUTE A F'DIV ANO F'EXIT INSTRUCTION

F'AC

/F'RQl-I ~CCATIO~
I

0~2

7401

7300
3533
1117
3532
U.i4

1412
7 4Ql:5
7404
7405
7406
7407
74UI

'1411

3531

u.u

H25
U.04

OP~

T1l:S1

F'P!CL
CLA CL.L

•7U0

TAO
OCA I

1(4fllrll7
1(3000
1(4006

'fAO

1<4000

1(4005
1<1125
1<4eH/l1
K2Hel

7412

6553

7413
7414
741'

,,,,
U~4

CL.A Cl.L
1(4001
TAO

74U
7417
742111

'74@2

Ml..T
F'PJNT

nee

'''1
9217

F'PCOM

F'P!T
Jfl1P

T~APPI~G

F'OR IT

/iERO THE F'PP WORLO

OCA !

OCA t
TAO
OCA I
TAO

A~O

rAC

4001
~a02
3111
1000 I 2000 : 3000
0000
0000
0000

u~0

PAGE U3

1125 rQRCING EXPONENT UN!:!ERF'LOW CONOITJON

/EXP

/MSW
ILSW
14H

11/1158

7•0CT• 71

V0QJ3

/AL.TEA F'AC LSW
/AL. TER F'AC MSW
/ALTER F'AC EXPONENT
/ALTE:R F'PC
IL.OAO CMO REGISTER
IL.DAO AORS REGISTER ANO START 'PP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

.-1

/EXAMINE APT TABLE F'OR CORRECT DATA
74U
7422

7423

7424

742'
7426
7427

1,33
74,0

74~2

1532
7041

Ui7

CL.A CLL
TAO l
SU

MLT
UO I

KUl/l6

CHA
TAO

l<HH

SiA

7431

74~0

7431
74U
7433

1,;s1

Ml.T
TAO I

11~3
74~1

TAO
SiA

74~4

143'

7436

'14~2

70~1

14@2

1<41107

CIA
MLT

K41211!l5
K3777

/F'AC LSW F'ROM APT TABLE TO AC
/Sl<tP IF' UAO
/ERROR
/F'AC MSW rROM APT TABL.E TO AC
/SMOULO EQUAL 3100
/YES • SKIP
/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SMOULD EQUAL 3717
/YES • SKIP
/ERROR

•

""'

)

/rPP-12

.~1

·.~

t6'i
INSTRUeTtO~

TEST 2A

DtAL10

/EXA~l~E

743?

6556

744121
7441
7442
7443
7444
7445
7446

:S0~4

1529

14''1

7041

7•50.
14'1

1370

7452

STATUS
ST HUS

TAO

K40

'1041
l,045

Cl A

7'40

,.~,

~L.T

TAO I

K4001

TAO
SH
'"41. T

K1126

74,2
'''"

101 se

7-0CT-71

PAGE 104

STATUS REGISTER F'OR EXPONENT WNOERF'~OW CONDITION
F'PRST
OCA

1024

V003

/READ Fpp STATUS REGISTER INTO AC
/STORE STATUS !~AGE !N LOCAT!O~ STATuS
/SMOULD EQUAL 40 • EXPONENT UNDERF'LO~(BJT 6) SET
/YES - SKIF'
/ERROR - INCORRECT STATUS ~XAM!NE LOC STATUS
/F'PC POINTER F'~OM APT TABLE TO AC
/SMOULD EQUAL 1126
/YES • SKIP
/ERROR - F'PC POINTER NOT EQUAL 1126

IT114 • EXECUTE A F'DIV ANO F'EXIT INSTRUCTION
/F'RO"' LOCATION ~132 IN F'IXED POINT "'ODE
I
I
IElCP

/MSW

11.sw
74!SJ
7454
7455
74'6
74'7

7461
701
7462
7463

7464
705
7466
7467
7470

65'2

nu
3'33
uu

1532

U67
3'29
UZ4

,,;3
.,,,
'1422
65h
!12~7

T11'1

F'AC
0000

OPR XX F'AC
-·-·
0000
200flJ I 1flJ0flJ = 200121
000flJ
flJ0flJflJ
000121
F'F!CL.
CL.A CL.L
1(4007
OCA I

DCA
OCA
TAO
OCA

TAO

KUH
K4H6
1<4fl0'

KU32

K001
I( 4 flJ lllll

F'l>COM

'HL.T
"ST

rPINT

JMll'

/tERO TH£ rPll' WORL.0
/Al.TER F'AC L.SW
/AL. TER F'AC MSW
/AL.TER F'AC EXPONENT
/AL.TER F'PC
/L.0AO CMO REGISTER
/LOAD ADRS REGISTER ANO START PPP
/ERROR
/SKIP ON F'PP INTERRUPT REQUEST F'LAG

'•:I.

/EXAMINE All'T TABLE FOR CORRECT DATA
7471

1300

7472
7473

1533

7474

747!1
7476
7477
7511!0
7501

7502
7503
7504

7440
7402

15J2

1041
1124
7440

7422
1531

el.A CL.L
TAO I
SlA

1<4007

'"4LT
UO l

K4"06

C: I A

TAO

K201210

Sh
ML. T

7440

TAO I
SH

74e2

MLT

K41!l1215

/F'AC L.SW F'ROM APT TABLE TO AC
/SKIP IF' tERO
/ERROR
/F'AC MSW FROM APT TABl.E TO AC
/SHOULD EQUAL 20121121
/YES - SKI?
/ERROR
IF'AC EXPONENT F'ROM APT TABLE
ISK!P IF HRO
/ERROR

/F'PP-12

!NSTRUCTlO~

TEST 2A

DI AL 1fll

1fll t 5S

7•0CT-71

Vflll!l3

li'IAGE 105

/T115 - EX£cUTE A F'DIV ANO rEXIT INSTRUCTION
/FROM LOCATION 12fll7 F'ORCING A DIVIDE BY ~ERO CO~D!T!CN

751!15
75"6
75217
75121
7511
7512
7513
7514
7515
7516
7517
7520
75U
7522

052

130
3533
1124
3532
3531
1J?1

U25
6'!53

,,,,
u~•

'4~2

6551

5~21

I
I

F'AC

CPR 01

F'AC

/EXP

0000

0~00

00fll0

/MSW

2000 I 0000

= 2000

/LSW

0000

T115,

F'PICI..
Cl.A Cl.L
1(40el1
OCA I

0200

TAO

OCA I
OCA I
TAO
OCA I
rPCOM
TAO
rPST
loll. T
FPlNT
JMJI

0000

1<2000
I( 4006

1(4QJ05

1<1207

1(4001

/iERO THE F'PP WORLO
/ALTER F'AC 1..sw
/ALTER F'AC MSW
/ALTER F'AC EXPONENT
/Al.. TER rPC
/LOAD CMO REalSTER
ILOAO AORS R£GISTER ANO START F'PP
/ERROR
/SKIP ON F'PP INT£RRUPT REQUEST F'LAG

.-1

/EXAMINE APT TABLE F'OR CORRECT DATA

nee

CL.A Cl..L

7440

1521
7530
7531
7532

1'U

7!5 :54
?.5:55
7536

1'31

7523
7'24
752'
7!5U

1sn

1'3~

14~2

'70~1

11124
7440
74~2

7440

1•~2

TAO I

1<411107

Ml.T
TAO l

1(41!106

TAO

1< 2H

SU
ML.T
TAO I
SiA

K411J0!5

Ml.T

/F'AC LSW F'ROM APT TABL.£ TO AC
/Sl<IP IF' !ERO
/ERROR
/,AC MSW FROM APT TABLE TO AC
/SHOULD EQUAL 2000
/YU • SK IP

/ERROR
/F'AC EXPONENT F'ROM APT TABLE TO AC
/SKIP Ir i!ERO
/ERROR

/EXAMINE STATUS RCQISTER • DIVIDE BY i!ERO STATUS SMOULO SE SET
7531
7540
7541
7542
7543
7544

7545
7546
750
75!H!!
7551

("':1
"~-

"''

!llJ2 4

1024
7041
10;5
74'40
14,2

F'P,_ST
OCA
TAO

STATUS
STATUS

TAO

K400

SH
~L.T

651J2

,,,.

F'Pf CL
F'PlllST

7440

74h

Si!A
I-IL. T

/READ rpp ST4TUS REGISTER INTO AC
/STORE STATUS IMAGf IN LOCATION STATUS
/Sl-IOULD EQUAL 400 • DIVIDE BV eERO STATUS<B!T 3) SET
/YES - SKIP
/ERROR - EXA~INE LOCATION STATUS F'OR INCORRECT STATUS
/tERO THE rPP WORLD
/READ Fpp STATUS INTO AC
/S~OULD BE eERO
/ERROR - FPICL IOT DID NOT CLEAR DIVIDE 9Y eERO 'LAG
~

•

~
/F"OP-12

INSTRUCTlO~

7552
7553
7554
7555
7556
7557
756111
7561
7562

D?AL1Z

vu:s
BELL
ST

z025

!S~

536!5

JMP

13e0

C\.A

1051

Ti\O
Tl,.S

6046

K207

3025
6041

TS'

11~6
53~2

7564
7565
7166

6042
Rl2Z0

1567

1:1,32

757Ql

Uc6

5766

12~7

,•1

JMlf

ST,

TCJ'
,JMIJ

1<1132,
1<1126r
1<1201,

11~2

1126
12217

,•1

10:58

7-0CT-71
/Rl~G

PAGE 1'1'6

BELL EVERY 130 PASSES

/NO

Cl.L

Cl.A CL.L
K7100
HO
OCA
SELL

1320

7563

7511

TEST 2A

/AC=207 OR

8ElL

CO'E

/RING IT
/AC : ·1210
/SET BELL COUNTER = ~100
/F'LAG SET
/NO
/CLEAR F"LAG
/RETURN TO B£GINN!NG OF" PROGRAM

•
{

...

,...
1151

.....

.....
Cl
Q.

....

,,.f

".....•
u

•
"
..,
1151
&

1151

.....

-... ..
-'

...
N

Ill>
La.I

.....

-....

u
:>
1-

U')

.....l

...

.....
......

~
1rPP-12

r~
INSTRUCT!O~

TEST 2A

OtAl.10

VH3

10158

7-0CT-71

PAGE

1~7-1

0Hle
01u

:.111112'0
:.1111111

00200000
11111111

11111111
11111111

11111111
1111111e

02H
03H

11111111
11111111

11111111
11110000

1114H
"'11111

11111111
11111111

11111111
11111000

07H

11111111
11111111

11111111
11111101

HlH
11H

11111111
11111111

1281
13H

11111111
11111111

11111100
11111111

11111111
11111111

11111111
11111110

14H

11111111
11111111

11111111
11100H0

16H
17H

11111111
11111111

11111111
1HHH1

11111111
11111111

11111111
11111110

2HI
21H

11111111
11111111

11111111

11111111
11111111

11111111
1111101/llll

11111111

HUHH

11111111
l!lelllllllllHlll

2211
23111

11111111
11111111

11111111
111111110 QI

11111111
H001/lH0

11111111
l!J0UHJ011l

11111111
l!llill!llll11Jllll!l0

2 . . QI
2'80

11111111
11111111

11111111
11UHU

11111111
1'.H'J 0 H liil 0 l1J

26111

11111111

27111

11111111

11111111
11111111

11111111
111111121

39H
31Hl

11111111
11111111

11111111
1111111110

32210
331!10

11111111
11111111

11111111
111111.100000

11111111
l!lliill!Jl1J0U0

11111111

34H
3500

11111111
11111111

11111111
111111111.!

11111111
00011.10000

11111111
00n0000

11111111

361/llll
37021

11111111
11111111

11111111
11111110

11111111
00000000

2'00000210
~lll00001!J0

lrPP-12

'I --

INSTRUCT!O~

TEST 2A

0 Ul.10

Vl.1103

1121158

7•0CT·71

PA~E

112l7•2

4000
4100

11111111
11111111

11111111
11111l011J011J

11111111
e.0121012101210

4200
43210

11111111
11111111

11111111
11111110

400
4 !5 "8

11111111
11111111

11111111
1111111210

11111111
011J0011JHIZI

11111111
12111J0011J0011J

11111111
2!11Jl"00011JIZI

46U
41021

11111111
11111111

11111111
11111110

11111111
11Jl1Jl1J000012!

11111111
0H011Jl1J011J

11111111
flllil00121121121121

50U
5Ul1J

11111111
11111111

111111l.1
11111111

11111111
11111111

11111111
111111Jl1JH

52110

11111111
11111111

10111111
11111100

11111111
00000Hl1J

11111111
11J000121012111J

55H

11111111
111111U

11111111
U111111

11111111
11111111

11111111
1111001210

56H
51U

11U1111
11111111

11111111
:1.1111111

11111111
11111111

11111111
1111 UJ 0 0

11111111
0000000121

11111111
011JU0H0

11111111
12100121000121

UH
61H

111111U
11111111

11111111

11111111
11111111

11111111
U10121H0

6211/l
63H

11111111
11111111

11111111
111111U

11111111
11!01.!!H01210

11111111
121H00000

11111111
llJ121Ql011J000

11111111
H!0001.!11210

6.uJl?J
65021

11111111
11111111

11111111
111U011Jl1J

11111111
12101210 0 0121121

11111111
H13H000

11111111
0000001210

66U
6'11H

11111111
11111111

11111111
1u0001210

11111111
"112!1210011J00

11111111
011Ji!J12111!01.!111l

1Hl?J
7U0

11111111
11111111

111111l:l
11111111

11111111
11111111

11111111
11211210000121

11111111
1210111121012100

72rl!l1J
7300

11111111
11111111

11111111
00000000

7U11J
75210

11111111
11111111

1111111'.
11111111

11111111
11111111

11111111
1101210000

53H
5'4H

7U0
770121
{

I..,,

~
/FPP-12 tNSTRUeTf 0~ TEST 2A
41.N

00a

Al.TR
Al.TR1

0026
0027

4pT

4020

BEl.L
CLlR
CLlR1
CNTR
F'AOO
J'CL.A

0025
0022
11~2

rotv

00e3
10e0
00£2
3020

F'l.DA

1020

r&:XIT
n1u1.,

F'lllEG
F'NOFIM
F'PAUSE
F'PCOM
F'PMLT
F'PlCL.
rPtNT
rPIST
rPRST
FPST

rsue

IN'LAG
?NS
tNSERV

I( 1

1<10
1<1011J
1<10Hl
1<1001
I( 1002
I< 111l 1!1:5
I( 1 "'"
1<1007
1<1"1
1<UU
1<10U
1<1015
I< 1 llll 7
1<1021
1<1"23
K12l25
1<1027
1<1031
K1033
1<1035
1<1037
1<1041

e0ee

'"'"

00e3
0004
00h

.,,3
6554
6552
6'51
65,7
6556
055

20~21

113,
1727
70£21
0030

0035
0U7
011l64
llJ06'

0066
1?1067
00?1i!l
37~3

4742
376'
3765
•1~0
41~1
•1~2

71'4
71'9
•3?3
71'6
73H
4374
437,
·~?6

0?4L10

V003

K1042
K1043
K1045
KU'J47
K1051
l(UJ53
KU55
KU57
K1061

0071

1(1063

KU6'
KU67
KU71
KU?J
1<1075
K10?'7
1<11
1<1101
KU"3

K1111J5
KU07
1<1111
1<:1.114
1<U17
KU21
1(2,123
KUH
KUU
1<1127
1<1132
1<11:5!
1<1137
1<1141
1<:U43
K:U4!1
KU.47

1<1151
1<11'3
1<U5'
KU51

1<1161
l<U.U

l<U6'
KU.67

KU.71
KU73
KU.76
1<U01
KU04
1<121Z17
1<1211
1<1252

4543
4544
4545
4744
4745
4746
0072
3345
3346
3347
3543
3!Sl44
3545
3166
0073
0"36
0074
0075
0016
7::567
5171
11Jf077

5172
5173
53!!54
0 Ul 21
7570
U01
7H7
53'5
5570
5971
5572
5573
5742
57'3
5744
6334

U:S5
U:S6
6537
6'41
6'42
61'0
6747

U71
1572
6146
?571
1775
0102

1rill 58

7•0CT-71
K14
K1777
1(2
K20
K200
K2i2!00
K211!01
1(201
K207
K21
I( 2111!
K2100
K2104
1(2210
i<2301
K2314
1(24
1(250
1(2522
K2524
1<2525
1<2526
1<26
I( 20
K27
1(2735
K2777
K3
K311l
1<30210

2J037
0103
111031
0040

005121
11!1()!4
0U!!5
4743
""51
4542
0052
0106
0U 7
0110
6540
0111
0041
0053
1'.1112
0113
0114
0115
H•2
1567
011"3
0116
7U0
11l032

PAGE 107·3
K41
K420

K422!Z
K421
K421Z
K4421
K463Z
K4631
K4760
KS
K520
K5236
K5250
K5251
K5252
K5253
K55
K5670
K56?3
K6000
K6314
1(6525
1<6735
l<nJZl!I

2046
2051
<' 136
2062

2137
Z14Z
2J141
2142
0143
0034
0061
2561
0144
0145
0146
0147
3174
IH50

0151
11J152
0153
3175
11J154
0155
0156
0157
01611l
11J161
121162
0163
016'
0165
02162
0166
1?1167
tlJ17 0
0171
0172
0063

K40

"122
3546
'1!17
0123
0033
l1lQI 4'

K7Hl1
K7011l2
K70213
K7C!l04
K7H!5
1<7H6
1<7H7
K7356
K'70
K?'7011J
K1751
1<7752
K'766
K7767
K77?
1<7771?1

1(400

0(055

K'PJ:S

1(4000
K4H1

0124
0125
0126
0127
0130
0131
01:52
0133

1<7774
K77?5
K7776
K777?
LAF'T
LAF'T1
NUM
SETS

1776
3350
11J1 ?4
0175
0176
11Jl1J05
1742
11Jl1J23
1111!

0056
1111:54
0135

SETX

1100

SKPTST
ST

1(321

1(3356
1(3621
K37!11
1(3752
1<3763
K3'75

I(.

1(3777

1(40"2
1(40"3
1(4004

1(4005
K412l1i!l6
K400?
1<401
t<4014
K411l15

0117
1'79
0120
il!IZl!U

0121

0173

1565
7565

/rPP-12

t~STRUCTSO~

START
STARTO
START I='
STATUS
T1

T10
T100

r --

T101

T1"2
T1'1' 3
TUA
TUB
T10C
TUO

TUE
TU.

TUl1J
TU.1
TU.2
TU.3

TU4
T11'
TU
TS,3
Ts,4

0220
0026
2'025
011124
02£6
0644
70Ul
7045
1077
7200
01e3

TEST 2A

01 ALUI

VH3

T41

3H0
3040

T42
T43

T44

T48
T40

04Slll

T~0

351!11
3600
36'0
3667
3721
4011!1

T45

TO
TO

0713
0733

T51
T52

0753
0763
122111
7227

7264

Ui7

uee

7d~

'150
13~2

1••0
1426

T54

TS!J
T6
TO

T61

T62

'l'U
'l'H

T67
TU
T69
T7
T71

T1f
TUA
'1'16

106
1•U

'1'17
TS.I
T11A
TS.I
T2
TU
TU

1534

'1'71

160

T11
T13

T1~A

TU
'!'24

T2!5
T26
T27
TU

1'~9

u•e

1643

0211
1~~7

111100
2f/J44

uu
22~1

Uh
22~1
nu
24~21

2433

T29
T3

0211

2526

T32

T3J

2467
u~e

2635

TH
T'7!J
T76
T'7
T78
T8
TU
TIS.
T82
T83
TU
T8'
TU
T87
T88
T89
T9

TJ4

26~2

T91!l

T4
U21

Ql301

T91
TU

2735

3100

3135
3210
3242
331213
3400
3440

Ul158

7•0CT-71
T9J
T94
T95
T96
T9A
TRAP1
TRAP2
TIUP3
TIUP4
TUP5

PAGE 11217•4

65H
66H
6645
6705
0U0

30H
4000
5rll00

6H0
7 l?JQI"

1!1414

4050
40'14
4126
4210
4235
4274
4U1
4'110

4'4QI
45r!l0
0434
46H

4640
47H
51110
5935

5874

5133
5221!1
5260
111443
53U

!500
5433

54'10
5526
!S611111J
!S6411l

57tl0
620
6237
0543

6275
64H
6441
l

(")

r~
\
,'
'·

,_,
/,PP-12

lNSTRUCTtO~

TtST 2~

e
~INKS GENERATED! e

ERRORS DEiECTEDI

RUN-TIMEI

52 5£CCNDS

31< CORE USEO

oa~.i0

vu3

7•0CT•71

~
10158

ftA:<JE

1~7·5

..l

··(·--1,: