Digital PDFs

DEC-08-YQYA-D

May 2000

22 pages

Original

0.8MB

Document:	PDP-8 FLOATING-POINT SYSTEM PROGRAMMING MANUAL For additional copies specify
Order Number:	DEC-08-YQYA-D
Revision:
Pages:	22
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/decus/focal8-11/decus-focal8-11.pdf

OCR Text

/.\DECUS

DECUS NO.

TITLE

PROGRAM LIBRARY

FOCAL8-11

EAE ROUTINES FOR FOCAL

Although this program has been tested by the contributor, no worranty, express or implied, i s made by the contributor,
Digital Equipment Computer Users Society or Digital Equipment Corporation CSI to the accuracy or functioning of the
program or related program material, ond no responsibility i s assumed by these parties i n connection therewith,

EAE ROUTINES FOR FOCAL
DECUS Program L i b r a r y Write-up

DECUS N o . FOCAL-11

Abstract

This patch replaces the floating-point system in FOCAL w i t h one
nearly identical t o the standard EAE Floating-Point Package. A new
floating-integer subroutine i s included, as well as a mu1 tiplicativecongruenti a1 pseudorandom number generator.
General
The binary tape i s t o be loaded over FOCAL before or a f t e r the
i n i t i a l dialogue. blhere possible, existing FOCAL routines have been
1e f t unchanged.
The l i s t i n g supplied does n o t contain detailed comments for
standard routines. These may be found i n DEC-09-YQYA-D or DEC-08-25-F.
The A L I G N , DI-NLT, DUBDIV, and DIiORbl routines are nearly identical t o
those i n the standard EAE package.
The others are similar to the
standard non-EAE package.
Floating-Integer Conversion

_
I

The FITR routine i n FOCAL has been replaced by one w i t h the
following properties:
a ) Both the o l d and new routines t e s t the low-order word of the
mantissa t o give the integer N as a result f o r arguments X where
N-E < x
N+l - E and where E corresponds t o a difference of
148 x 2-231 o i n the mantissa.
I

b) The o l d routine will n o t convert negative arguiiients s l i g h t l y
more positive t h a n powers o f 2 , t h a t i s , numbers for which the h i g h order mantissa i s 4000. For example S A = FITR( - 6 3 . W ) produccs an
error message. The new routine does not f a u l t f o r these arguments.

c ) The old routine results i n 0 for arguments between approximately -0.5 and 0. The new one produces -1.
d ) The old routine scales the floating accumulator r i g h t i n t r i p l e
precision, preserving low-order b i t s i n location 47. The new one uses the

AC and MQ t o s h i f t r i g h t i n double p r e c i s i o n .

e ) The standard r o u t i n e takes 1 0 . 5 ~ for Ixl<.5 and a t most
54611s f o r 1x1>1024. The new routine t a k e s a minimum o f 3011s for
0<1x1<.5 and a t most 7211s f o r 0.5<1x1<1.
Pseudorandom Number Generation :
The s t a t i s t i c a l l y poor FRAN f u n c t i o n has been replaced by a multip l i c a t i v e - c o n g r u e n t i a l algorithm (ref: R.P. Cahmbers, IEEE Spectrum, February,
1967, pp. 48-56). A double-precision odd i n t e g e r i s m u l t i p l i e d by 7775
and the low-order 24 bits a r e used as the random result, which has a
f l a t d i s t r i b u t i o n between -1 and 1. The sequence r e p e a t s after the
r o u t i n e has been c a l l e d 4,194,304 times. I t may be reset by placing an
odd double-precision i n t e g e r i n l o c a t i o n s 5776 and 5777 using the
switch register. T h i s r o u t i n e t a k e s 5 3 ~ sversus 37.5 f o r the o l d one.

/EAE FLOATING P O I N T PACKAGE FOR FOCAL < 4 / 2 9 / 6 8 )
/MAY I 1 9 6 9 ; J * D o APLEVI CH
/SEE D E C - 8 - 2 5 - F FOR D E S C R I P T I O N OF ALI G N I DMULTI DUBDI V
/AND DNORM ROUT1 NES*
/ERROR MESSAGES: ?02*561 I M A G SQR ROOT; ?02.761 D I V BY 0;
/ ? 0 2 * ; 8 1 INTEGER TOO LARGE; ?03*971 NEGATIVE EXPONENT.
MW=7405
D V I = 7 407
NMI=7411
SHL= 7 4 1 3
MQA=750l
ASR=7 4 15
L SR= 7 4 1 7
MQL=7421
SCA= 7 4 4 1
CAM=7621
FPOW=0000
FADD= 100ril
FSUB=2000
FMPY=30@B
FDI V= 400B
FGET=SE)00
FPUT=60@0
FI X TAB
FN OR= 7 500
FEX T= 0

C13=5
POINT= 1 5
MASK 5= 24
MASK7=26
MASK3=3 1
REST=34
EX 1 = 4 0
AClH=rll
AClL=42
OVER 1= 4 3
EXP= 44
HORD= 45
LORD= 46
OVER2= 47
EXP1=50
INTEGEF.=52
MINS=53
M3=74
EFLJN3I = 1 0 6
POFA=TAD I 1 3
PUSHA=JMS I 1 1 1
PUSHF=JMS I 1 1 2
POPF=JMS I 1 1 3
ERROR2=JWS I 1 3 4
EKROH3=JMS I 1 3 5
COUNT= 1 4 2
F S @ R T =40 1
FL TONE= 2366

/PAGE

040 1

7 463

*FSQRT
SQROOT
*INTEGER

0052

7 340

FINTEG

0953

6600

ACMINS
*6400

6400
64161
6482
64183
6404
6405
6406
6407
6410
641 1
6412
6413
6414
6415
6416
6417
6 420
6421
6422
6423
6424
6425
6426
6427
6430
6431
6432
6433
6434
6435
6436
6437
6440
6441
6442

0000 F P N T ,
7300
1600
7450
5600
3256
1256
0261
7650
5214
1024
0200
3260
1026
0256
1260
3260
1262
0256
7650
5227
1660
3260
22081 LOOP01r
1304
3015
1074
3142
12681
3257
1657
3415
2257
2142
5236
3043
3047
1256
7 106
7006
0031
1263
3257
1657
3257
5657

*MINS

6443

6444
6445
6446
6 447
6450
6451
6452
6453
6454
6455

/I N TERPRETE R

CLA CLL
TAD I FPNT
SNA
JMP I FPNT
DCA JUMP
TAD JUMP
AND PAGENO
CLA SNA

/QUICK

JMF .+3
TAD MASKS
AND F P N T
DCA ADDR
TAD MASK7
AND JUMP
TAD ADDR
DCA ADDR
TAD I N D R C T
AND JUMP
C L A SNA
JMP LOOP01
TAD I ADDR
DCA ADDR
ISZ FPNT
TAD T A G 4
DCA P O I N T
TAD M 3
DCA COUNT
TAD ADDR
DCA S A V E
TAD I SAVE
DCA I P O I N T
ISZ SAVE
ISZ COUNT
JMP e-4
DCA OVER1
DCA OVER2

TAD JUMP
C L L RTL

RTL
AND MASK3
TAD T A B L E
DCA

SAVE

TAD I S A V E
DCA SAVE
JMP I S A V E

EXIT

6456
6457
6460
6461
6462
6463
6464
6465
6466
6467
6470
647 1
6472
6473
6474
6475
6476
6477
6500
6501
6502
6503
6504
6505
6506
6 507
6510
651 1
6512
6513

6514
65i5
6516
6517
6520
6521
6522
6523

6524
6525
6526
6527
6530
6531
6532
6533
6534
6535

6536
6537
6540

0000
0000
0000
0200
0400
7177
7040
1303
5272
1303
3260
1304
3015
1074
3142
1415
3660
2260
2142

/PAGE 2
JUMPJ
0
SAVEJ
0
ADDRJ
0
PAGENOJ 0200
I N D R C T J 0400
TABLEI
TOP
FLPTJ
CMA
TAD T A G 3

JMP
FL G T,

5275
520 1
0044
0037
477 1
4774
520 1
4775
7100
1043
1047
3047
7004
1042
1046
3046
7004
1041

TAG3r
TAG~J
FLSUJ
FLADI

1045
3045
4773
520 1
1200
451 1
4512
0044
4407
50 40
0000
4452
1045
7510

NORFJ

FLEXJ

/FPUT= 6

.+4

TAD T A G 3
DCA ADDR
TAD TAG4
DCA POINT
TAD M 3
DCA COUNT
TAD I P O I N T
DCA I ADDR
ISZ ADDR
ISZ COUNT
JMP a - 4
JMP F P N T + l
EXP
EXl-1
JMS I OPMINS
JMS I A L G N
JMP F P N T + 1
JMS I UNORM
CLL
TAD OVER1
TAD OVER2
DCA O V E R 2
RAL
TAD AClL
TAD LORD
DCA LORD
RAL
TAD AClH
TAD H O R D
DCA H O R D
J M S I NORM
JMP FPNT+I
TAD FPNT
PUSHA

PUSHF
EXP
JMS I 7
F G E T EX1
FEX T
JMS I I N T E G E R
TAD H O K D
SPA

/FGET= 5

/FSUB=2
/FADD= 1

/FN OH= 7

/EXPONENT R O U T I N E : X t < + N )
/SAVE
/SAVE

CCFPNT)
AIiGUMEN’1‘

/GET E X P O N E N T
/CONVERT TO INTEGER
/MUST

BE P O S I T I V E

/PAGE 3
6541
6542
6543
6544
6545
6546
6547
65513
6551
6552
6553
6554
6555
6556
6557
6560
656 1
6562
6563
6564
6565
6566
6567
6570
657 1
6572
6573
6574
6575
6576

4535
7040
3376
4513
7554
4512
2366
4513

6600
6601
6602
6603
6604
6605
6606
6607
6610
661 1
6612
6613

0000
7300
1047
7041
3047
1046
7040
7430
7101

6614
6615
6616
66 17
6620
6621
6622
6623
6624
6625
6626

ITER,

0044
237 6

5357
1413
3200
520 1
4407
37 45
0000
5352
7201
1040
1044
3844
4772
520 1
7207
7020
7480
6620
7171
0000

3846
1045
7040
7430
7 101

FLMY,

/-(PI+ 1 )
/SET C O U N T E R
/PUT ARGUMENT INTO
/
WORK1 NG LOCATI ON
/PUT

100 I N T O FLTG AC

/DONE?
/N 0
/ZESTORE C C F P N T )
/EX1 T
/MUL T I PLY

/FMPY = 3

JMS I MULT
JMP FPNT+l
MINUS2
DMULT
DNORM
ALIGN
DUNORPI
0
*66810
ACMINS, 0
CLA CLL
TAD OVER2
CMA I A C
DCA OVER2
TAD L O R D
CMA
SZL
CLL I A C
DCA L O R D
TAD HORD
CMA

OPMINSI
MULTI
NORMI
ALGNs
UNORMr
PICTI

/ROUTINE

TO NEGATE FLTG AC

SZL

3045
5600
0000
1045
i640
5227
1046
765Pt
5354

ERROR3
CMA
DCA N C T
POPF
ITER1
PUSHF
FL TON E
PQPF
EXP
I S Z NCT
JMP .+4
POPA
DCA FPNT
JMP FPNT+l
JMS I 7
FMPY I I T E R
FEX T
JMP I T E R + S
CLA I A C
TAD EX1
TAD EXP
DCA EXP

ALIGNS

CLL I A C
DCA HORD
JMP I A C M I N S
0
TAD HORD
C L A SZA
JMP 0+4
TAD LORD
CLA SNA
JMP NOHERE

/EAE

ALIGN R O U T I N E

/PAGE 4
6 627
6630
6631
6632
6633
6634
6635
6636
6637
664D
6641
6642
6643
6644
6645
6646
6647
6658
6651
6652
6653
6654
6655
6556
6657
6660
666 1
6662
6663
6664
6665
6666
6667
6678
667 1
6672
6673
6674
6675
6676
6677
6700
670 1
6702
6703
6704
6705
6706
6707
67 10
6711
6712
6713

1041
7640
5235
1042
7650
5620
1840
7041
1044
7 450
5330
7510
7041
3366
1366
1367
77 10
5256
4333
7430
1374
1373
5342
4333
7 420
1374
i373
3378
1366
1770
3770
237 0
1370
337 1
237 1
137 1
3372
2372
7240
1366
3304
177 1
7421
1778
7415
0060
3304
7501
3333

1366
1332
7510
5357

TAD AClH
CLA SZA
JMP . + 4
TAD AClL
C L A SNA
JbIP i A L I G N
TtLP EX 1
CMA I A C
T A D EXP
SNA

JMF DONE
SPA
CMA IAC
DCA AMOUNT
TAD AMOUNT
TAD TEST2
C L A SPA
JMP . + 6
JMS OUTGO

sz L

TAD TAG2
TAD TAGl
JMP N O G O
JMS OIJTGO
SNL
TAD TAG2
TAD T A G l
DCA TEST3
TAD AMOUNT
TAD I TEST3
DCA I TEST3
ISZ TEST3
TAD TEST3
DCA TEST4
ISZ TEST4
TAD TEST4
DCA TESTS
ISZ TEST5
CLA CMA
TAD AMOUNT

DCA SHIFT3
TAD I TEST4
M QL
TAD I TEST3
ASR
SHIFT33 0000
DCA SHIFT3
M OA

DCA OtJTGO
TAD AMOUNT
TAD MINI5
SPA
JMP LESS15

/PAGE

DCA SHIFT2
TAD I TEST4
M QL
TAD I TEST3

6714
6715
6716
67 17
6720
6721
6722
6723
6724
6725
6726
6727
6730
6731
6732
6733
6734
6735
6736
6737
6748
6741
6742
6743
6744
6745
6746
67 47
67SPi
6751
6752
67 5 3
6754
6755
6756
6757
6760
676 1
6762
6763
6764
6765

3321
1771
7421
1770
7417
00B0
770 1
3772
13184
3770

6764

00190

AMOUNT* 0

6767
6770
677 1
6772
6773
6774

77 47
0@00
00G0
00018
0044
7774

TEST2r
TEST3r
TEST4
TESTSr
TAGlr
TAG23

7000
7001
7002

a000
7300
1045

DIVlr

LSH
SHIFT2r 000B

CLA M Q A

D C P I TESTS
TAD S H I F T 3
DCA I TEST3
TAD OUTGO
1333
DCA I T E S T 4
377 1
2228 DONE>
ISZ ALIGN
JMP I ALIGN
5628
-15
7 7 6 3 MIN15r
0000 OUTGO3 0
TAD EX1
1048
7841
CMA I A C
TAD EXP
1044
7@B4
RAL
7200
CLA
JKP I OUTGO
5733
3370 NOGOr
DCA TEST3
TAD I TEST3
1776
DCA EXP
3044
2370
I S Z TEST3
1778
TAD I TEST3
DCA H O R D
3045
IS2 TEST3
2378
1778
TAD I T E S T 5
DCA LORD
3B46
JMP I ALIGN
5620
1040 NOHERE, TAD EX1
DCA EXP
3044
JMP DONE
5330
7240 LESSlSr CLA CMA
TAD AMOUNT
1366
DCA SHIFT2
332 1
TAD I TEST5
1772
7421
M QL
TAD I TEST4
177 1
JMP SHIFT2-1
5320
-31
0
0
0
EXP
EX 1-EXP
*7@00
0

/SCALE

CLA CLL
TAD HORD

FLTG AC 1 R I G H T

/PAGE 6
7510
7@20
7810
3045
1046
7610
3046
1047
7010
30 47
2044
5600
5600
000QI DMULTs
7300
4327
1f342
3227
1046
7425
@0li)0 DI
3047
1045
3235
1042
i 425
0000 KEEP,
3227
7501
1047
3047
7004
1227
3227
1041
325 1
1046
7425
0000
7052 3235
7 0 5 3 7501
7054 1047
7055 3047
7056 7004
7057
1235
i 227
7060
7061 3227
7062 7004
7863 3235
7064 1045
7 0 6 5 3270
7066 1041
7067 7425

7003
7004
7005
7006
7007
7010
7011
7B12
7613
7014
7015
7016
7 0 17
7020
7021
71822
7023
7024
7025
7826
7027
7030
7031
7032
7033
7034
7035
7036
7037
7040
7041
7042
7043
7044
7045
7046
7047
7050
7051

SPA
CML
RAR
DCA HORD
TAD L O R D
RAR
DCA L O R D
TAD O V E R 2
RAR
DCA OVER2
ISZ E X P
JMP I D I V l
JMP I D I V l

/EAE

CLA CLL
JMS S I G N
TAD A C l L
DCA D
TAD L O R D
MQL MUY
e)@@@

DCA O V E R 2
TAD HORD
DCA KEEP
TAD A C l L
MQL M W
0060
DCA D
M BA

TAD OVER2
DCA O V E R 2
RAL
TAD D
DCA D
TAD A C l H
DCA .+3
TAD L O R D
MQL M U Y
0000

DCA KEEP
MQA
TAD OVER2
DCA OVER2
RAL
TAD K E E P
TAD D
DCA D
RAL
DCA K E E P
TAD HORD
DCA * + 3

TAD AClH
MQL M W

MULTIPLY

/PAGE 7
7070
7071
7072
7073
7074
7075
7076
7077
7100
71Ell
7182
7103
7104
7105
7106
7107
7110
7111
7112
7113
7114
7115
7116
7ii7
7120
7i2i
7122
7123
7124
7125
7126
7127
7130
7131
7132
7133
7134
7135
7136
7137
7i40
7141
7142
7143
7144
7145
7146
7147
7150
7151
7152
7153
7154

0000
DCA HORD

0000
3045
7501
1227
3046
7004
1045
1235
3i345

4746
312147

2358
5620
4453
5620
1041

FLDVr

7640

5315
1042
7650
4534
1040
7041
1044
3044
4327
4747
1326
3220
5301
6401
0@00 SI GNI
1034
3350
1045
7700
5337
4453
2350
1041
7700
5727
4751
2350
5727
5727
7400 NORMFr
7227 D1 V I DE,
00G30 SGN,
7 2 ~ 7 MINS2r
0000 D I V 2 ,
7300
1041

MQA
TAD D
DCA L O R D
RAL
TAD HORD
TAD KEEP
DCA H O R D
JMS I NORMF
DCA O V E R 2
I S Z SGN
JMP I DMULT
JMS I M I N S
JMP I DMULT
TAD A C l H
CLA SZA
JMP .+4
TAD AClL
CLA SNA

ERROR2
TAD E X 1
CMA I A C
TAD EXP
DCA EXP
JMS SIGN
JMS I D I V I D E
TAD * + 3
DCA DMULT
JMP F L D V - 6
FPNT+ 1
0
T A D REST

/FDI V = 4

/DIVISION

/TEST

BY 0

S I G N F O R MULT AND D I V

DCA SGN
TAD H O R D
C L A SMA
JMP * + 3
JMS I M I N S
I S Z SGN
TAD A C l H
C L A SMA

JMP I SIGN
JMS I MINS2
ISZ SGN
JMP I SIGN
JMP I SIGN
DNOHM
DUBDI V
0
MINUS2

0
CLA CLL
TAD A C l H

/SCALE O P E R A N D 1 RIGHT

/PAGE 8
7155
7 156
7157
7 160
7161
7162
7163
7 164
7 165
7 166
7167
7170
7171
7 172
7173
7174
7 175
7176
7 177

SPA

7510
7 120
7010
3041
1042
7010
38 42
11743
7010
30 43
7100
5752

CLL CML
RAR
DCA A C l H
TAD AClL
RAR
DCA A C l L
TAD OVERl
RAR
DCA O V E R 1
CLL
JMP I DIV2

BOTH ARGUMENTS H I G H T

/SCAtE

4200
4352
2040
577 1
577 1
6527 TOPI
7%f!?f4 6506
7201 6505
721i12 6 5 6 3
7203 71@7
7204 6 467
7205 6464
72156 6 5 2 5
7207 0000 MINUS2r
7210 7300
7211 1843
7212 7041
7213 30 43
7214 1042
7215 7040
7216 7430
7217 7101
7220 3642
7221 1041
7222 7040

JMS DIVI
JMS D I V 2
ISZ Ex1
JMP I DUNOHM
JMP I DUNORM
FLEX
FL AD
FLSU
FLMY
FL D V

/INTERPRETER TABLE

7223

7430

SZL

7224
7225
7226
7 227
7230
7231
7232
7233
7234
7235
7236
7 237
7240
7241

7181
3041
5607
0000
3340
1042
7104

CLL I A C
D C A AClH
JMP I MINUS2
DUBDIVJ 0
DCA DVFLG
TAD A C l L
CLL RAL
DCA D V 3
TAD A C l H

a000

3252
1041
7004
3273
1273
3245
1046

DUNORMI

FLGT
FL PT
NOHF
/NEGATE OPERAND

0
CLA CLL
TAD O V E R l
CMA IAC
DCA O V E R l
TAD AClL
CMA
SZL
CLL I A C
DCA A C l L
TAD AClH
CMA

/EAE

RAL
DCA DV4
TAD DV4
DCA DV2
TAD L O R D

DI VI DE ROUT1 N E

7242
7243
7244
7 245
7246
7247
7250
725 1
7252
7253
7254
7255
7256
7257
7260
7261
7262
7263
7264
7265
7266
7267
7270
727 1
7272
7273
7274
7275
7276
7277
7 300
7381
7302
7303
7304
7305
7306
7307
7 3 10
73i 1
7312
73i3

/PAGE 9
7421
M QL
TAD H O R D
1045
7 407
DVI
0000
00@0 DV2r
DCA DV2
3245
MQA
75181
DCA HORD
3045
M UY
7405
0008
0000 D V 3 r
C L L CMA I A C
7141
TAD D V 2
1245
SNA
7 450
JMP
DV5
530@
SNL
7 420
JMP DW6
5310
3252
DCA D V 3
CMA
7040
DCA DVFLG
3340
M QA
7501
C L L CMA I A C
7141
M QL
7421
SNL
7 420
CMA
7040
TAD D V 3
1252
DVI
7 407
0000
0000 DV4r
C L A MQA
7701
C L L CML
7120
ISZ DVFLG
2340
C L L CMA I A C
7 141
DCA LORD
3046 DVSr
SNL
7 420
CMA
7040
TAD HORD
1045
SPA
7510
JMP DV7
5330
DCA H O R D
3045
JMP I DUBDIV
5627
CMA I A C
7041 DV6r
DCA DV2
3245
TAD DV4
1273
CLL CMA I A C
7141

7314

12-45

TAD D V 2

7315
7316
7 3i7
7320
7321
7322
7323
7324
7325
7326

742a
5323
3245
7040
1045
3045
7200
1245
7 4481
5272

SNL
JMP .+5
D C A DV2
CMA
TAD HORD
DCA H O R D
CLA
TAD DV2

sz A

JMP DV4-1

/PAGE 10
7327
7 33u
7331
7 332
7333
7334
7335
7336
7337
7340
734 1
7 342
7343
7344
734s
7346
7347
7358
7351
7352
7353
7354
7355
7356
7357
7360
7361
7362
7363
7364
7365
7366
7367
7370
7371
7372
7373
7374
7375
7376
7377

5277
7110
3E 45
1046
7010
3046
2844
5627
5627

7 400
740 1
7 402
7 403
7404
7405
7406
7 407
7410
741 1
7412

00L.0
7320
1045
77 I Q
4453
7430
7040
3260
1045
7640
5225

0000
7301
1046
10B5

JMP D V 5 - 1
DV7s

JMP I D l l B D I V
FfNTEGs 0
CLA CLL I A C
TAD L O R D
TAD C 1 3
C L A RAR
DCA DV4
TAD E X P
SPA
JMP O U T
TAD M 1 3
SMA SZA
JMP O U T - 2
SZA
J M S I ROTAT
TAD DV4
S P A CLA
ISZ HORD

7210
3273
1044
7510
5370
1376
7540
5366
7 440
4777
1273
77 10
21945
7410
57 41i)
7 130
1045
7650
4534
57 40
7200 OUT,
1045

77 10
7040
3045
57 40
7765
7564

C L L RAR
DCA H O R D
TAD L O R D
RAR
DCA L O R D
ISZ E X P
JMP I D U B D I V

M 13s

SKP
JMP I F I N T E G
C L L CML RAR
TAD HORD
SNA CLA
ERROR2
JMP I F I N T E G
CLA
TAD HORD
S P A CLA
CMA
DCA HORD
JMP I F I N T E G

/EAE

FL O A T 1 N G- I NTEGER CON VE R S I ON

/ADD

14 T O L O R D

/STORE L I N K

/EXP
/YES

/EXP

14?

/NO# E R R O R
/EXP = 13?
/NO#

SCALE RIGHT

/WAS L O R D > 7763?
/YES>

INCREMENT

/HORD = 4000?
/ Y E S * ERROR E X I T

/HORD
/YESJ

0?
MAKE I T - 1

13
ROTATI
FlNTl
D V F L G = F I N TEG
*7 400
DNORMs
0
C L A C L L CML
TAD HORD
CLA S P A
JMS I M I N S

/EAE NORMALIZE ROUTINE

SZL
CMA
DCA SIGN1
TAD HORD
CLA SZA
JMP L O P

/PAGE 1 1
TAD L O R D
7413 1046
SPA
7414 7510
JMP LOTJ+l
7415 5226
DCA H O k D
7416 3045
'TAD OVER2
7417 1047
DCA LOICD
7420 3046
DCA O V E R 2
7421 3047
TAD FOIIRTN
7422 1261
TAD EXP
7423 1044
DCA EXP
7424 3044
TAD L O R D
7425 1046 L O P 0
M
QL
7426 7421
T
A
D HORD
7427 1045
NMI
7430 7411
SNA
7431 7450
DCA EXP
7432 3044
DCA HORD
7433 3045
SCA
7434 7441
SNA
7435 7450
JMP EXIT1
7436 5255
CMA I A C
7437 7041
TAD EXP
7440 1044
DCA EXP
7441 3044
SCA
7442 7441
TAD O N E
7443 1262
DCA S H I F T
7444 3251
TAD OVER:!
7445 1047
M QL
7446 7421
TAD L O R D
7447 1046
SHL
7450 4413
7451 @@$0 S H I F T 0 0000
DCA L O R D
7452 3046
M QA
7453 7501
DCA O V E R 2
7454 3047
ISZ SIGN1
7455 2260 EXITlr
J M S I MINS
7456 4453
JMP I DNORM
7457 5600
7460 0800 S I G N 1 0 0
7461 7764 FOURTNr -14
-1
7462 7777 ONES
7463 4407 SQROOT, JMS I 7
FPUT FPACl
7464 6360
FEXT
7465 000"TAD H O R D
7466 1045
CLA S P A
7467 7710
ERROR2
74711) 4534
TAD EXP
7471 1044
CLL
7472 7100
SPA
7473 7518
CML
7474 7020
RAR
7475 7010
DCA ITER1
7476 3354
7477 7430
SZL

/FLOATING

SQUARE ROOT

/ N E G A T I V E ARGIJMENT

7 5QG
75W1
+, 5@2
7 5u3
7504
75135
75r.;c;
7 sa7
75'0
7 '-, I 1
7512
7513
7514
7515
7516
7517
7 520
7521
7 522
7523
7 524
7 525
7 52C
7 527
7 330
'1531
7532
7533
7534
7535
7536
7537
7543
7541
7 542
7543
7544
7545
7 546
7547
7550
7551
7552
7553
7554
7555
7556
7557

/PAGE 12
i2:7 ITERl
2354
NOP
7008
TAD SWCONl
1353
DCA I T E H l + 1
3355
DCA I T E R 1 + 2
3356
'I'AD FPAC 1+ 1
1361
C L A SZA
7640
JMP C L C U
5313
r 3 F P A C 1+ 1
1361
CLA SNA
76513
JMP SQEND
5351
JMS I 7
4407 C L C U J
FGET FPACl
5360
FDIV I T E R l
4354
FADD I T E R l
1354
FEXT
00PlG
C L A CMA
7240
TAD E X P
1044
DCA EX?
3@44
TAC) E X P
1044
CMA I AC
7041
TAD I TEli 1
1354
CLA
SZA
7640
JMP ROOTGO
5345
TAD HORD
1045
CMA I A C
7041
TAD ITERI*l
1355
CLA SZA
7 640
JMP ROOTGO
5345
TAD L O E D
1046
CMA I A C
7B41
TAD ITER1+2
1356
SM A
7 Sf30
CMA I A C
7@41
I AC
780 i
CLA SMA
7700
JMP I EFUN3I
5506
4407 ROOTGO3 JMS I 7
F P U T ITERl
6354
FEX T
0000
JMP C L C U
5313
DCA EXP
3044 SQENDI
JMP I EFUN31
5596
3015 SQCONIJ 3015
0
0000 ITER1,
0
@@&I0
0
8000
0
0000

7560

00@0

7561
7 562
7563

0000

FPAClr

0
B

Pj000

0000

7 564
7565
7566
7567
7570
757 1
7 572
7573
7574
7575
7576
7 577

0000
7040
3373
1046
7421
1845
7415
BL3013
3045
7501
3046
57 6 4

kJ406

5753

5753
57 5 4
5755
5756
5757
5760
5761
5762
5763
5764
5765
5766
5767
5770
577 1
5772
5773
5774
5775
5776
5777

1377
7425
7775
3045
7501
3377
1376
7425
7775
7701
1045
3376
1376
3045
1377
3046
3044
30 47
SSP16
000s
0005

/ P A G E 13
FINTlr
0
CMA

D C A .*S
~ I A 9L O R D

PI QL
'IAD H O K D
ASR

a@@@

/SCALE

R I G H T DOUBLE PRECI S I Ob1

DCA HORD
MQA

DCA L O W
JMP I F I N T l
*4Q6

FRANDr

RHr

RL s

FRAND
*5753
TAD RL
MQL M W
7775
DCA HOHD
M QA
DCA RL

TAU HH
MQL M W
7775
C L A MQA
TAD HORD
DCA FUI
TAD KH
DCA HORD
TAD FL
DCA L O R D
DCA EXP
DCA O V E R 2
JMP I E F U N 3 I
5
5

/ E A E PSEUDORANDOM NUMBER G E N E R A T O R
/WITH P E R I O D = 2 t 2 2

/ R E S E T WITH A DOUBLE P R E C I S I O N
/ODD I N T E G E R I N T H E S E L O C A T I O N S .

/PAGE 14
C R O S S REF TABLE
UL385
0007
W013
0015
0024
0026
003 1
0034
0037
0040
0041
@@42
0043
0@44

u045

0046

0047

0052
06153
0Q74
0106
0111
0112
0113
0134
0135
0142
0553
5776
5777
6 408
6401
6414
6427

C13r

7 343

5776
6533 6557
6554
6431 6437
6412
6415
64513
7 130
65W4
6534 6564
EX l r
6522 6627
AClHz
7221 7225
AC 1La
6516 6632
7228 7 2 3 1
O V E R ~ J 6443 6512
6503 6532
EXP9
6755 6773
7 424 7432
7551 5773
6523 6524
HORDJ
7 @ @ 6 71i13 1
7250 7303
737 1 7374
7 538 7571
LORDJ
6517 6520
7825 7047
7413 7 420
5772
OVER29 6444 6513
71640 71641
7454 5774
INTEGEJ 6536
7 105 7135
MINSI
6432 6473
M3J
EFUN3I J 7544 7552
6530
653 1 6546
6544 6550
7 1 1 4 7366
6541
COUNT,
6433 6441
0406
576 1 57 66
RHJ
5753 57 60
RL I
6 402 64@4
FPNTJ
6502 6507
641 1
LOOPBlr 6424

5777
7463

7513

7545

6472

6475

7553

6754

6635 67 3 4
7@45 7066
7234
7 8 2 3 7D33

7 107

7115
7 137

7 174
7154

7160

7112

7161

7163

7214

7164
6551
7@15
7 440

7 166
6565
7117
7441

721 1
6566
7 120
747 1

7213
6637
7335
7521

6736
7346
7 522

67 44
7423
7523

6537
7064
7306
7 4e2
7574
6685
7074
7425

66 12
707 1
7321
7410
57 56
661 1
7241
7 447

6616
7876
7 322
7A16
5765

6747
7132
7368
7433

7682
7243
7364
7466

7300
7452

662 1
7 1013
7331
7 427
5770
6752
7 332
7535

6514
7654

66@2 6604
7b55 7 102

7812
7417

7814
7421

7404

7 456

6527

6555

6624

7@@7 7B11
7334 7342
7567 7576

5775

7470
6474

6500

5767
577 1
6413
6526

6427
6556

6461
6578

7@30
744s

6436
6456
6457
646@
6461
6462
6463
6472
647 5
6503
6504
6545
6552
6557
6566
657 1
6572
6573
6574
6575
6576
6600
6620
6627
6635
6656
6704
6720
672 1
6738
6732
6733
6742
6754
67 57
6766
6767
6770
677 1
6772
6773
6774
7000
702B
7027
7035
7051
7070

/PAGE 15
6442
JUMP#
6405
SAVE,
6435
ADDR,
6414
6477
PAGENO, 6 407
INDHCT, 642 1
TABL E 3
645 1
6466
650 1
TAG3r
6465
TAG4r
6430
I TEHr
656G
6562
6553
6547
O P M I N S , 6505
6567
MULT,
6525
NORM0
ALGN0
6506
UNOHMs
6510
NCTI
6543
ACMINSI 66 17
ALIGN#
6634
6623
663 1
6650
SHI FT3r 6677
6765
SHI FT2r 6714
DONE,
6641
MIN15r
6711
665 1
OUTGO0
6655
NOGO,
NOH E RE1 6626
LESS150 6713
AMOUNT, 6644
TEST20 6646
TEST3r
6662
6742
TEST40
6670
TESTS;
6673
TAG 1a
6654
1AG20
6653
7016
DIVlr
DM UL TI
7 104
DI
7024
7032
KEEP,
7046
7065

6416
6440
6420

6422
6452
6425

6730

6731

6753

6705

6724

6406
6436
6417

6445
6453
6426

6454
6434

64S5
6470

6476

6725

6467
647 1

6552

6761
67 56
6656

6707

6726

6741

6645

6663

6676

6710

6760

6664
6743
6671
6674
666 I
6660
7017
7106
7036
7052

6665
6745
6672
6723

6666
6746
6700

6667
6750
6715

6702
6751
6727

6717

7060
7077

7061

7073

7172
7124
7443
7057

6764

6762

7044
7063

7101
7115
7 126
7127
7 137
7146
7 i47
7150
7151
7152
7171
7212i7
7227
7245
7252
7272
7273
7277
7300
7310
7323
7331ir
734u
7366
7370
7376
7377
7 46i0
7425
7426
7451
7455
7461i3
7461
7462
7513
7 545
7551
7 553
7554
7555
7556
7560
7561
7564
7573

/PAGE 16
7 125
7111
7 123
SIGN,
7622
7134
NOHMFr
7101
DIVIDE, 7122
SGN9
7 103
MINS2r
7142
DIV2r
717B
DUNOHMr 7 1 7 5
f.iINUS2, 7226
DUBDIVr 7397
DV2r
7240
DV3r
7233
7326
DV4r
7236
7327
DV5r
7256
DV6r
7260
7316
DV7r
7385
DVFLGr
723W
7353
OUT3
7358
M13r
7351
ROTATr
7355
DNORM,
7457
LO?,
7412
7415
SHIFT3 7444
EXI'i'lr
7436
SIGNlr
7487
FOUHTNr 7 4 2 2
ON E s
7 443
CLCUJ
75ra7
ROOTGOr 7527
SQENDr 7512
S Q C O N l r 7502
ITERlr 7476
7 583
75g4
FPAClr 7 5 1 4
7s05
FINTlr
7577
7566

7121

7141

7144

7145

7131

7136

7143

7336
7246
7261

7337
7254
7271

7311

7314

7237

7312

7345

7356

7263

7276

7362

7367

75@@ 7515
7532
7 537

7516

7525

7173
7 176

7455
7 s511
7534

751U

7317

7375

7324

/PAGE

ACMINS
AClH
AClL
ADDR

6600
0041
0042
6460
ALGN
6574
ALIGN 6620
AMOUNT 6766
CLCU
7513
COUNT 0142
C13
0005
D
7027
DIVIDE 7147
DIVl
7000
DIV2
7152
DMULT 7020
DNORM 7400
DONE
6730
DUBDIV 7227
DUNORM 7171
DVFLG 7340
DV2
7245
DV3
7252
DV4
7273
DV5
7300
DV6
7310
DV7
7330
EFUN31 81106
ERROR2 4534
E R R O R 3 4535
EXIT1 7 4 5 5
EXP
0044
EXP1
0050
EX 1
0040
FEXT
0000
FINTEG 7340
FINTl
7564
FLAD
6506
FLDV
7107
FLEX
6527
FLGT
6467
FLMY
6563
FLPT
6464
FLSU
6505

FLTOME 8 7 6 6
7000
7461
7568
6400
5753
0401
HORD
0045
INDRCT 6462
INTEGE 0 0 5 2
FNOR
FOURTN
FPACl
FPNTFRAND
FSQRT

ITER
6S45
I T E ~ I 7554
JUMP
6456
KEEP
7835
LESS15 6757
LOOP01 6427
LOP
7425
LORD
0046
MASK3 @ a 3 1
MASKS 0 0 2 4
MASK7 0826
MINS
0053
MINS2 7151
MINUS2 7207
MINlS 6732
MULT
6572
M13
7376
M3
0074
NCT
6576
NOGO
6742
NOHERE 6754
NORF
6525
NORM
6573
NORMF 7146
ONE
7462
OPMINS 6571
OUT
7378
OUTGO 6733
OVER1 OB43
O V E R 2 0047
PAGENO 6461
POINT 0015
POPA
1413
POPF
4513
PUSHA 4511
PUSHF 4512
REST
0034
RH
5776
RL
5777
ROOTGO 7545
ROTAT 7377
SAVE
6457
SGN
7150
SHIFT 7451
SHIFT2 6721
SHIFT3 6704
SIGN
7127
SIGN1 7460
SQCONl 7 5 5 3
SQEND' 7551
SQROOT 7 4 6 3
TABLE 6463
TAG1
6773

TAG2
TAG3
TAG4
TEST2
TEST3
TEST4
':EST5
TOP
UNOHM

6774
6503
6504
6767
6778
6771
6772
7177
6575