Digital PDFs

DIGITAL-8-20-F

December 1965

28 pages

Original

0.9MB

Document:	digital-8-20-f-d
Order Number:	DIGITAL-8-20-F
Revision:
Pages:	28
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/digital-8-20-f/digital-8-20-f-d.pdf

OCR Text

IDENTIFICATION
I .I

Digital-8-20-F-Bin

I .2

Four—Word Floating-Point Package

I .3

June 26, I 965

Digital—8—20-F
Page 2
2

ABSTRACT

This program is almost identical to the 3-word Floating—Point Package

(Digital-8—5-S) except that accuracy is carried to 35 bits, and 4 I2-bit words are used for
storage.
3.

REQUIREMENTS

3.1

Storage
This program occupies registers 7;

USAGE

4.I

40-6I; 5600-7577 (octal).

Binary Loader (Digital-8—2—U) or DECtape System.
4.2

Calling Sequence
Identical to Digital-8-5-S.
RESTRICTIONS

See Digital—8—5-S.

DESCRIPTION

The floating accumulator resides in memory locations 44, 45, 46, and 47. The
instructions FGET, FPUT use 4-word arguments (I I -bit exponent + sign; 35—bit mantissa + sign).
The 4-word package contains all operations except for square root (0002) and square (OOOI).
METHODS

See Digital-8-5-S.
8.

FORMAT

EXECUTION TIME

9.3

Average

(Not Applicable)

Execution times are very difficult to estimate as they greatly depend upon the data
on

which the floating—point package is operating.
FADD

FSUB

Generally speaking:

382 psec + 42(N) where N is the number of shifts to align

binary points.
FDIV

FADD time + 42 psec

3.4 msec

(approximately)

Digfial-S-ZO-F-Bin
Page 3
FMPY

FGET

FPUT

FNOR

FEXT

10.

PWDGRAN1

10.4

Program Listing

3.3 msec (approximately)
156 psec

17215ec
168 + N(42) psec where N is number of shifts;
+84pmeciforgumenf<0.
140.5Tmec

WORD FLOATING POINT
IARITHMETIC INTERPRETER
/PAGE 1
/4

*43
@649

Uflflfi

0041
@942
an45

EBEQ
$939
@020

DD44
@845
afl46
ww47
umSD

@009
EQMG
”$99
name
639%

$051

”WEE

HIGHI,
MIDI,
LOWI,
EXP,
HORDER,
MIDDL,
LORDER,
OVERZ,

a
D

OVERI,

fl
D
D
D
8

*61
$661

@299

FLAG,

IARITHMETIC ERROR FLAG

*5500

FPNT,

566%
56E1

@609

755%

CLA

CLL

5692
5625
5634

5951
SDSZ
16flfl
5257

DCA
DCA
TAD
DCA
TAD
AND
SNA

OVERl
OVERZ
I FPNT
JUMP
JUMP
PAGENO
OLA
.+5
MASK5
FPNT
ADDRS
MASK?
JUMP
ADDRS

56D5
5606

56M7
561%
5611
5612
5615
5614
5615
5616
5617

562%

1257
M265
7659
5214

1267

JMP
TAD

127%
3257
1262

AND
DCA
TAD
AND
TAD

6262

DCA ADDRS

@206
5262

/GET

INSTRUCTION

/PAGE 6??

/YES
INC

GET PAGE BITS

/GET 7 BIT ADDRESS

Dighal-B-ZO-F-Bin
Page 4
5621
5622
5625
5624
5625
5626

1266
@257
765%
5227
1662
5262

5627
5653
5651
5652
5655
5654
5655
5656
5657

2238
1662
5846
1262
5265
2265
1665
5041
2265
1665
5942
2265
1665
5045
1257
7196
7606

5640
5641
5642
5645
5644
5645
5646

5647
565%
5651
5652
5655
5654
5655
5656
5657
566%
5661
5662
5665
5664
5665
5666
5667

567%
5671
5672
5675
5674

5675
5676
5677

5796
5731

TAD INDRCT
AND JUMP
SNA CLA
JMP LOOPfil
TAD I ADDRS
DCA ADDRS

LOOPfll,

DCA
ISZ
TAD
DCA

ISZ
TAD
DCA
ISZ

MASK5
TABLE
JUMP2
I JUMPZ
JUMPZ
I JUMPZ
FPNT+1

1271
5269
166%
526%

fiflflfl
@009
6086

9E17
329%
B409
7603
@177
5672
5714
GEEQ
6026
6567
66fl9
57fl2
5755
6200

FPNT
I ADDRS
EX1
ADDRS
SAVE
SAVE
I SAVE
HIGHl
SAVE
I SAVE
MIDI
SAVE

TAD I SAVE
DCA LOVl
TAD JUMP
CLL RTL

@264

466%
5291
QEGW
0006

ISZ
TAD
DCA
TAD

JUMP,
JUMPZ,
602,
ADDRS,
SAVE,
MASK39
PAGENO,
INDRCT,
MASK5,
MASK7,
TABLE,

/BIT5=177

IYES

DEFER

IEXPONENT

/HIGH ORDER

/MIDDLE BITS

/LOWER BITS

ILOOK-UP ON TABLE

/EXECUTE
IGET NEXT

DigHal-8-20-F-Bin
Page 5
/FLOATING GEI:5DDD
5762
5705
5754
5795
5766
57D7
571%
5711
5712
5715
5714
5715
5716
5717
5726
5721
5722
5725
5724
5725
5726
5727
5750

5751
5752
5755
5754

5755
5756
5757
574D
5741
5742
5745
5744
5745
5746
5747
575%
5751
5752
5755
5754
5755
5756

@960
1D4fl
5944

FLGT,

1941
5v45
1342
5D46
1945
5947
5221
DDDE

EXl
EXP

DCA
JMP

LORDER

/FLOATING

FPNT+1
EXIT 0R SUBROUTINE:DDXX

EXIT,

/FLOATING

TAD JUMP
AND MASK5
SNA
JMP I FPNT
TAD TABLEG
DCA JUMPZ
TAD I JUMPZ
DCA JUMP2
TAD FPNT
DCA 602
JMS I JUMPZ
TAD GO2
DCA FPNT
JMP FPNT+1
PUT=6DDW

FLPT,

56%”
155%
526D
166D
526B
125%
5261
4660
1261
5230
52D1

TAD
DCA
TAD
ISZ
DCA
TAD
ISZ
DCA
TAD
ISZ
DCA
JMP

1945
2262
5662
1046
2262
5662
1247
2262
5662

5251

575%
5776
577D
577D
577D
577D
577D

TAD
DCA
TAD
DCA
TAD

HIGH1
HORDER
MIDI
DCA MIDDL
TAD LOWl

1257
0264
745$

030D
1D44
5662

TABLE6,

/BITS 8‘11=M??

/YES:FEXT
/N0:LO0KUP BITS 8-11
/ON SUBROUTINE TABLE

/SAVE PSEUDO

/RESTORE PSEUDO PC
/RETURN

EXP
I ADDRS
HORDER
ADDRS
I ADDRS
MIDDL
ADDRS
I ADDRS
LORDER
ADDRS
I ADDRS

FPNT+1

EXIT6
EX1T6
EXIT6
EXIT6
EXIT6
EXIT6

/SUBROUTINE TABLE
/ABSOLUTE ADDRESSES
/0F SUBROUTINES

/EXIT6:DUMMY OR

NO?

DigHal-B-ZO-F-Bin
Pagaé
5757
5760
5761
5762
5765
5764

5765
5766
5767
5770
5771

EXITS
EXITS
EXITS
EXIT6
EXITS
EXITG
EXIT6
EXIT6
EX1T6

5770
5770

5770
5770
5770
5770
5770
5770
5770
0000

EXIT6,

JMP

5770

EXIT6

/FLOATING ADD=1000
*6000
6000

6001

0000
4251

6002

5600

6005
6004
6005
6006
6007
6010
6011
6012
6015
6014
6015
6016
6017
6020

4512
7500

6021
6022
6025
6024
6025

FLAD,

J05 ALIGN
I FLAD
SCALE
CLA CLL
TAD OVERI
TAD OVERZ
DCA OVERZ
RAL
TAD LOWI
TAD LORDER
DCA LORDER
RAL
TAD MIDl
TAD MIDDL
DCA MIDDL
RAL
TAD HIGHl
TAD HORDER
DCA HORDER
JMS I NORMAL
JMP I FLAD
JMP
JMS

1951
1050
5050
7004
1045
1047
5047
7004
1042
1046
5046
7004
1041
1045
5045
4705
5600

/ALIGN WORDS
/N0

ALIGNMENT

/TRIPLE ADDITION

/CARRY

/FLOATING SUBTRACTz2000
6026
6027
6050

0000

FLSU,

JMS
JMP

4706
5201

/ALIGN BINARY
6051
6052
6055
6054

0000
1045

7640
5240

ALIGN,

0PMINS
FLAD+1 /ADD
I

POINTS

TAD HORDER
SZA CLA
JMP .+4

/NEGATE OPERAND

DigHal-8-20-F—Bin
Paga7
6255
6656
6067

1242
5244

6242

1241
7652

6041
6042
6045
6244
6645
6046
6847
625%
6&51
6252
6255
6054

6355
6%56
6257
6U66
GU61
6962
6265
6&64
6M65
6266

6D67
6U70
6w71
6972
6976
6974
6275
6076
6&77
6196
6131
6102
6105
6124
6125
6126

6107
6119
6111

TAD EXl
DCA EXP
JMP DONE
TAD HIGHI

5272

SNA

5651
1242
7241
1244
7452
5272
7522
7241
5524
1524
1527
7712
5274
1242
7241
1244
7224
7622
1512
1511

JMP
TAD
CMA
TAD
SNA
JMP
SMA
CMA
DCA
TAD
TAD
SPA
JMP
TAD
CMA
TAD
RAL
SNL
TAD
TAD
DCA
JMS

5525

4725
2524

5267
2251
5651
1242
7241
1244
7722
5651
5722
5725

DONE,
NOGO,

CLA
I ALIGN
EXI
IAC

DONE
IAC
AMOUNT
AMOUNT
TESTI
CLA
NOGO
EXI
IAC

/EXPONENTS

EQUAL

EXIT

/NUMBER OF PLACES

/NO

SHIFTING POSSIBLE

EXP

CLA
TCONI
TCONZ
POINT
I POINT
ISZ AMOUNT
JMP 0-2
ISZ ALIGN
JMP I'ALIGN
TAD EXl
CMA IAC
TAD EXP
SMA CLA
JMP I ALIGN
JMP I .+1
FLGT+1

POINT,
AMOUNT,

d
0

6222
6526
2245

NORMAL,
OPMINS,

FNORM
OPNEG
@245

TESTl,
TCONI,
TCONZ,

/OPERAND=U

EXP

2222
2222

2225
6116

/C(FAC):0

SHFTOP-SHFTAC
SHFTAC

/SHIFT OPERAND RIGHT
ISHIFT FAC RIGHT

Dighal-S-ZO-F-Bin
Page 8
/SCALE BOTH RIGHT
6112

UQMD

SCALE,

6115
6114
6115

4541
4516
5712

JMS SHFTOP
JMS SHFTAC
JMP I SCALE
ISCALE FLOATING AC RIGHT

6116
6117
6123
6121
6122
6125
6124
6125
6126

0390
759%

SHFTAC,

6127
615%
6151

6152
6155
6154
6155
6156
6157
6140

1045
751%
7%29
7fllfl
5345
1346
701%
5246
1547
7919
5047
IMSB
7fllfi
5%53

E
CLA CLL
TAD HORDER

SPA
CML
RAR
DCA HORDER
TAD MIDDL
RAR
DCA MIDDL
TAD LORDER
RAR

DCA LORDER
TAD OVERZ
RAR
DCA OVERZ
ISZ EXP
NOP
JMP I SHFTAC

2244

796%
5716

ISCALE OPERAND RIGHT
6141
6142
6145
6144

6145
6146

6147
6159
6151

6152
6155
6154
6155
6156
6157
6166
6161
6162
6165

930%

7506
1941
751%
7E2fl
7Q16
5E41
1342

7%13
5642
1045

7610
5245

1%51
7U13
5E51
204B
7flflfl

5741

SHFTOP,

CLA CLL
TAD HIGHI
SPA

’CML
RAR
DCA HIGHl
TAD M101
RAR

DCA
TAD
RAR
DCA
TAD
RAR
DCA
ISZ
NOP
JMP

MIDI

Lowl
LOWI
OVERI
OVERI
Ex1
1

SHFTOP

DigHal-8-20-F—Bin
Paga9
/NORMALIZE FLOATING ACCUMULATOR
*6200
6200
6201
6202
6205
6204
6205
6206
6207
6210
6211
6212
6213
6214
6215
6216
6217
6220

6221
6222
6226

6224

6225
6226

6227
6250
6261

6252
6255
6264
6255
6266
6267
6240

0000

FNORM,

7600
5361
6565
1045

CLA CLL
DCA MP1
DCA MP3
TAD HORDER

7510
2563
7640
5224
1046
7640
5224
1047
7640
5224

SPA
ISZ
SZA
JMP
TAD
SZA
JMP
TAD
SZA
JMP
TAD

1050
7640
5224
5044
5600

1565
7640
4261
1045
7104
7710
5251
1050
7104
5050
1047
7004
5047

6241
6242
6245
6244
6245
6246
6247
6250

1046
7004
5046
1045
7004
5045
2561

6251
6252
6256
6254
6255
6256

1661
7041
5044
1565
7640

6257
6260

4261
5600

GO6,
SHIFT,

5227

1044

NOREXT,

MP6
CLA
606
MIDDL
CLA
606
LORDER
CLA
GO6
OVERZ
SZA CLA
JMP GOG
DCA EXP
JMP I FNORM
TAD MP5
SZA CLA
JMS ACNEG
TAD HORDER
CLL RAL
SPA CLA
JMP NOREXT
TAD OVERZ
CLL RAL
DCA OVERZ
TAD LORDER
RAL
DCA LORDER
TAD MIDDL
RAL
DCA MIDDL
TAD HORDER
RAL
DCA HORDER
ISZ MP1
JMP SHIFT
TAD MP1
CMA IAC
TAD EXP
DCA EXP
TAD MP5
SZA CLA
JMS ACNEG
JMP I FNORM

# OF SHIFTS
lRESET SWITCH

/INPUT<0
IYES-SET SWITCH

/FAC=0?
/NO

/N0

/NO

/YES
IEXIT
IWAS
/YES

INPUT <0

/TOO

FAR?

/Y£S:LXIT ROUTINE
/NO

/SHIFT

LEFT

/ADD 1 T0 COUNT
/CONTINUE
/SUBTRACT COUNT

/EXPONENT

/NAS

/YES

/EXIT

INPUT<077

FROM

DignaI-s-zo-F-Bin
Page 10

y/NEGATE FLOATING AC
6261

”EDD

6262
6265
6264

7502

6265
6266

6267
6270
6271
6272
6275
6274
6275
6276
6277
659%
6531
6592
6585
6534
6595

ACNEG,

CLA
TAD
CMA
DCA
TAD
CMA
SZL
CLL
DCA
TAD
CMA

105%

7241
5D5$

1047
754%
7452

7161
5047
1946
7042
745a
7191
5246
1245
764%
7450
7131
5245
5661

CLL
OVERZ
IAC
OVERZ
LORDER

IAC

LORDER
MIDDL

SZL
CLL IAC
DCA MIDDL
TAD HORDER
CMA
SZL
CLL IAC
DCA HORDER
JMP 1 ACNEG

INEGATE OPERAND
6526

9266

6527

75ME
1351
7941
5651

6516
6511
6512
6515
6514
6515
6516
6517
652%
6521
6522
6525
6524
6525
6526
6527
6550
6551
6552

OPNEG,

CLA
TAD
CMA
DCA
TAD
CMA
SZL

CLL
OVER1
IAC
OVERI
LOWI

1645
7fl40
7450
7191
5045
1242
7M4B
7450
7161
5242
1941
7040
7459

DCA
TAD
CMA
SZL
CLL
DCA
TAD
CMA
SZL

7101
5041
5706

CLL IAC
DCA HIGHl
JMP I OPNEG

CLL IAC
LOW1
MIDI

IAC

MIDl
HIGHI

DigHaI-B-ZO-F-Bh1
Page 11
6555
6554
6555
6556
6557
654M
6541
6542
6545
6544
6545
6546
6547
6555
6551
6552
6555
6554
6555

6556
6557
656M
6561
6562
6565
6564
6565
6566
6567
657M

6571
6572
6575
6574
6575

6576
6577

@030
5561
5564

MULTIP,

DCA
DCA
TAD
DCA
CLL
TAD

1565
5565
710m
1561
7910
5561
1564
742%
5551
7150
1562
721%
5564
2565
5541
1561

MP1
MPSCON
IMIR
MP5

MP1

RAR

DCA MP1
TAD MPSCON
SNL
JMP .+5
CLL
TAD
RAR
DCA

MPZCON

JMP

MPSCON
MP5
MULTIP+6

TAD

MP1

152

7019

7lflfl
5755

JMP I

MULTIP

366%

000%
@089
Mflflfl

7764

-14
FMULT

6429
@599
4766
4250
595%

2777
5767
4261
5767
675%

SIGNI,

JMS I FMULTl
JMS FNORM
DCA OVERZ
152 I SIGNl
JMP I FLMY
JMS ACNEG
JMP I FLMY
SGNTST

*6435

/FLOATING
64%@

@093

6401
64%2
6495

7291
lfl4fl
1644

64fl4
6455

5644

6456
6457

1577
5772
4775

MULTIPLY

/(A*2T24+B*2112+C)*(D*2124+E*2112+F)
fl
FMULT,
CLA
TAD
TAD
DCA
TAD
DCA
JMS

IAC

EXl
EXP
EXP
SMACLA
I SGNSW
I SIGNP

/ADD

EXPONENTS

/SET UP SIGN ROUTINE
/GO THERE

Digfial-S-ZO-F-Bin
Page 12
6410
6411
6412
6415
6414
6415
6416
6417
6420
6421
6422
6425
6424
6425
6426
6427
6450
6451
6452
6455
6454
6455

6456
6457
6440
6441
6442
6445
6444
6445
6446
6447
6450
6451
6452
6455
6454
6455
6456
6457
6460
6461
6462
6465
6464
6465
6466

6467
6470
6471

1045
5775
1047
4774
7200
1776
5571
1046
5775
1045
4774
1571
5571
7004
1776
5570
7004
5567
1042

5775
1047
4774

1571
5571
7004
1570

1776
5570
7004
1567
5567
1045
5775
1045
4774
1570
5570
7004
1567
1776
5567
7004
5566
1041

TAD L001
DCA I MP2
TAD LORDER
JMS I DMULT
CLA
TAD I MP5
DCA MUL5
TAD MIDDL
DCA I MP2
TAD LOWI
JMS I DMULT
TAD MUL5
DCA
RAL
TAD
DCA
RAL
DCA
TAD
DCA
TAD
JMS

I MP5
MUL4

MUL5
MIDI
I MP2
/C*E

MUL5

MUL4
I MP5
MUL4
MUL5
MUL5
HORDER
I MP2
L001
I DMULT
MUL4
MUL4

/A*F

MUL5
I MP5
MUL5
MUL2

1047

TAD HIGHI
DCA I MP2
TAD LORDER

4774
1570
5570
7004

JMS I DMULT
TAD MUL4
DCA MUL4
RAL

5775

/B*F

MUL5

LORDER
I DMULT
TAD MUL5
DCA
RAL
TAD
TAD
DCA
RAL
TAD
DCA
TAD
DCA
TAD
JMS
TAD
DCA
RAL
TAD
TAD
DCA
RAL
DCA

/C*F

/D*C

DigHal-B-ZO-F-Bin
Page 13
6472
6475
6474
6475
6476
6477
6500
6501
6502
6505
6504
6505
6506

6507
6510
6511
6512

1567
1776
5567
7004

1566
5566
1046

5775
1042
4774
1570
5570
7004
1567
1776
5567
7004
1566

6515
6514
6515

5566
1045

6516
6517

5775
1042

6520

4774

6521
6522
6525
6524
6525
6526
6527
6550
6551
6552
6555
6554
6555
6556
6557
6540
6541
6542
6545
6544
6545
6546
6547
6550

1567
5567
7004

6551
6552

1566

1776
5566
7004
5565
1041
5775
1046
4774
1567
5567
7004
1566
1776
5566
7004
1565
5565
1045
5775
1041
4774
1566

TAD
TAD
DCA
RAL
TAD
DCA
TAD
DCA
TAD
JMS
TAD
DCA
RAL
TAD
TAD
DCA
RAL
TAD
DCA
TAD

MUL5
I MP5
MUL5

MUL2
MUL2
MIDDL
I MP2
MID1
I DMULT
MUL4

MUL4
MUL5
I MP5
MUL5
MUL2
MUL2
HORDER

DCA I MP2
TAD MID1
JMS I DMULT
TAD MUL5
DCA

/B*D

/A*E

MUL5

RAL
TAD MUL2
TAD I MP5
DCA MUL2
RAL
DCA MULl
TAD HIGHl
DCA I MP2
TAD MIDDL
JMS I DMULT
TAD MUL5
DCA MUL5

/B*D

RAL

TAD
TAD
DCA
RAL
TAD
DCA
TAD
DCA
TAD
JMS
TAD

MULZ
1 .mp5
MULZ
MULl
MULl
HORDER
I MP2
HIGHl
I DMULT
MUL2

/A*D

DigHal-8-20-F-Bin
Page 14
6555
6554
6555
6556

5046
7004
1565

6557

5045
1567
5047
157a
5050
5600

6560
6561
6562
6565
6564
6565
6566
6567
6570
6571
6572
6575
6574
6575
6576
6577

DCA
RAL
TAD
TAD
DCA
TAD
DCA
TAD
DCA
JMP

1776

MIDDL

MULl
1 MP5
HORDER
MUL5
LORDER
MUL4
OVERZ
I FMULT

0000
0000
0000
0000
0000

6740
6727

SGNSWT
SIGNCL
MULTIP
MPZCON
MPSCON
SMA CLA

6555
6562
6564
770a

/FLOATING DIVIDE=4000
*6600
6600
6601
6602
6605
6604
6605
6606

6607
6610
6611
6612
6615
6614
6615
6616

6617
6620
6621
6622
6625
6624
6625

6626

0000

FLDV,

4527
1041
7650
5505
7500

SNA

5520
5521
1525
5524

5255
1047
7004
5047
1046
7004

TAD
CMA
TAD
IAC
DCA
TAD
DCA
JMS
TAD

1040
7041
1044
7001
5044
1526
5540

DV5,

EX1
IAC
EXP

EXPONENTS

EXP
SPACLA
SGNSWT
SIGNCL
HIGHI
CLA
DVER
CLL

JMP
CLA
DCA QUOL
DCA QUOH
TAD MIF
DCA DIVCNT
JMP DVX
TAD LORDER
RAL
DCA LORDER
TAD MIDDL
RAL

/SUBTRACT

/SET

UP SIGNS

/DIVISOR=0?
ERROR
/YES
-

DigHal-8-20-F-Bin
Page 15

6627
663D
6631

6632
6633
6634
6635
6636
6637
664%

6641
6642
6643
6644

6645
6646
6647
665%

6651
6652

6653
6654
6655
6656
6657
6660
6661
6662
6663
6664

6665
6666

6667
667d
6671
6672
6673
6674
6675
6676
6677
673%
67fl1
67D2

3046
1945
7204
3345
1943
lfl47

3322
7334
1942
1fi46
3323
7DB4
1641
1945
7429
5254
3D45
1323
3646
1322
3&47
72ED
132E
7flfl4
3320
1321
7DD4
3321
1952
7UD4
335%
2324

Dvx,

DV2,

1321

4746
569%

HORDER
LOWl
LORDER
DTEMl

/PARTIAL SUBTRACT

MIDI
MIDDL
DTEMZ
HIGHI
HORDER

IDIVISOR<DIVIDEND7
DV2-1
HORDER
DTEMZ
MIDDL
DTEMI

/N0

/YES:C(L):QUOTIENT BIT

/SHIFT BIT
/QUOTIENT

QUOL
QUOH
QUOH
OVERZ
OVERZ

DIVCNT

/DONE?

DV3

/N0

QUOL
LORDER
QUOH
MIDDL

OVERZ
HORDER
DCA OVERZ
JMS I NORMIT
ISZ SGNTST
JMS I FACNEG
JMP I FLDV
DCA

DEXIT,

MIDDL
HORDER

LORDER
CLA
TAD QUOL

RAL
DCA
TAD
RAL
DCA
TAD
RAL
DCA
ISZ
JMP
TAD
DCA
TAD
DCA
TAD

5222
1329
3%47

3946
1m5w
3M45
321510
4717
2359

DCA
TAD
RAL
DCA
TAD
TAD
DCA
RAL
TAD
TAD
DCA
RAL
TAD
TAD
SNL
JMP
DCA
TAD
DCA
TAD
DCA

INTO

Digital-B-ZO-F-Bin
Page 16
6765
67D4
67%5

724%
5347
7248

6706
67E7
6710
6711
6712
6715
6714
6715
6716

5646
7640

6717
6720
6721
6722
6725
6724
6725
6726

DVER,

7110
5045
1G45
5fl44
2061
7%09

Dflflfl
0303
BEQQ
BEEG

7755
771%

CMA
LORDER
CMA
MIDDL

/DIVIDE

ERROR

RAR

HORDER
HORDER
EXP
FLAG

N0?
JMP DEXIT

5500
62@@
W093

CLA
DCA
CLA
DCA
CMA
CLL
DCA
TAD
DCA
132

NORMIT,
QUOL,
QUOH,
DTEMl,
DTEMZ,
DIVCNT,
MIF,
SPACLA,

FNOR
E
0
B
0
0

'45

/STEP COUNT

SPA CLA

/TEST SIGN SUBROUTINE

6727

990%

675%
6751
6752
6755
6754
6755
6756
6757
6749

1551

6741
6742
6745
6744
6745
6746
6747
6750
6751

SIGNCL,

5559
1045
7722
5557
4746
2550

1041
773%
5727

SGNSWT,

4747
2550
7606

5727
6261
65E6
$090

7776

FACNEG,
OPNEGS,
SGNTST,
RESTOR,

TAD RESTOR
DCA SGNTST
TAD HORDER
SMA CLA
JMP .+5
JMS I FACNEG
ISZ SGNTST
TAD HIGHl
SMA CLA
JMP I SIGNCL
JMS I OPNEGS
ISZ SGNTST
NOP
JMP I SIGNCL
ACNEG
OPNEG
%

‘2

/OR SPA CLA

DigHul-B-ZO-F-Bin
Page 17
ACNEG
ADDRS
ALIGN
AMOUNT

DEXIT
DIVCNT
DMULT
DONE
DTEMI
DTEMZ
DVER
DVX
DV2
DV5

EXIT
EXIT6
EXP
EXl
FACNEG

FLAD
FLAG
FLDV
FLGT
FLMY

FLPT
FLSU
FMULT
FMULTl
FNORM
FPNT
602
606
HIGHI
HORDER

INDRCT
'JUMP
J 1.114132
LOOPEI
LORDER
LOWI
MASK5

MASK5
MASK7
MIDDL
M101
MIF

6261
5662
6&51
6124
676%

6724
6574
6872
6722
6725
6725
6655

MPSCON
MP1
MP2
MPZCON
MP3
MP5
MULTIP
MULl
MUL2
MULS
MUL4

6655

MUL5
NOGO

6622

NOREXT

5714
577%

NORMAL
NORMIT

@944
@040

0PMINS
OPNEG
OPNEGS
OVERl
OVERZ

6746
609%

@061
6690

57%2
6567
5755
6926
640%
6566
6296

560%
5661
6224
@241
0%45
5666
5657
566%
5627

@647
@045
5664

5667
567%
0246
2042

6725

PAGENO
POINT
QUOH
QUOL
RESTOR
SAVE
SCALE
SGNSW
SGNSHT
SGNTST
SHFTAC

SHFTOP
SHIFT
SIGNCL
SIGNP
SlGNl
SMACLA

SPACLA
TABLE
TABLES
TCONI
TCONZ
TESTI
THIR

6564
6561
6575
6562
6565
6576
6555
6565
6566
6567
657%

6571
6974
6251
6165
6717
6136
6536

6747
@951
@052
5665
6105
6721
6729

6751
5665
6112

6572
674%
675%

6116
6141
6227
6727
6575
6577
6577

6726
5671
575%
611%
6111
6137
6565

Digflal-S-ZO-F-Bin
Page 18
/4/17/65-HB-DEC
/4 WORD
IFLOATING POINT I/O ROUTINES
/REQUIRES FLOATING POINT INTERPRETER
IENTRY AT wow?
*7

UWfi7

SGOO

OOAA

OOOO
HOBO
OQOO

FPNT,

56UU

*44

0045
UU46
UU47

COCO

EXPONT,
HORDER,
MIDDL,
LORDER,
*52

0952
wuss
UU54
wflSS

wean
BABE
BQEB
aflflfl

FPACI,

uw56
0&5?
wmsn
mu61

7777
7777

SWITI,
sulrz,
CHAR,
DszT,

wwflfl

ovum

8:5:56

7777
7777

/IF = O, NO CR-LF AFTER OUTPUT
/IF = w, NO LF AFTER CR IN INPUT
/CONTAINS LAST CHARACTER READ
/= 0 IF NO CONVERSION TOOK PLACE

*6767
6767
677a
6771
6772
6776
6774
6775
6776
6777

Uflufl

PRCHAR,

luS?
7656

5767
1377
4776
5767
7545
$212

DPUT,
LFED,

TAD SWITZ
SNA CLA
JMP I PRCHAR
TAD LFED
JMS I OPUT
JMP I PKCHAR
OUT
@212

/DOUBL£ PRLCISION DECIMAL-BINAKY
/INPUT AND CONVERSION
*7wa
7flUU
7UU1
7UU2

COCO
729w
SO45

7005
7UO4

6046

7UU5
7MU6

5266
3267
4659

7Ufl7

3047

DECONV,

CLA
DCA HOROER
DCA MIDDL
DCA LORDER
DCA SIGN
DCA DNUMBR
JMS INPUT

IINITIALIZE MANTISSA

DigHal-8-20-F-Bin
Page 19
7WID
7611

7%12
7m15
7014
7015
7m16
7217
7620
7021

7w22
7625
7v24
7b25
7626
7&2?
7m6m
7951
7M52
7055
7354
7D55
7066
7657
7046
7w41
7642
7u45
7&44
7a45
7946
7647
7356
7051
7652

7355
7654
7U55
7356
7057
7a60
7%61
7m62
7M65
7064

7665
7&66
7067
7u7n

154B
745%
5220
1557
7443
5221
7240
5266
4550
720%
1fl62
1541
7500
5606
1542
751M
562%
5265
1945
@545
7443
5220
2261
2267
4242
522%
DMD”

TAD PLUS
JMP DECON
TAD MINUS
SZA
JMP .+4
CLA CMA

DECON,

DCA DIGIT
TAD HORDER
AND MASK

/IF-, SET SWITCH
/IS

IT A

DIGIT

/NO

/YES
IOVERFLOW?

SZA
JMP
152
132
JMS
JMP

DECON
DSUIT
DNUMBR
MULTIU
DECON

TAD
DCA
TAD
DCA
TAD
DCA
DCA
JMS
JMS

LORDER

MULTID,
45

4270
1265
5245
5242
5241
4527
1U4D
5642

HORDER

DUDE

DUDD

MULTZ,

838.5!

/INDEX NUMBER OF DIGITS
/CONTINUE
/ROUTINE TO MULTIPLY
IDOUBLE PRECISION WORD
/BY TEN (DECIMAL)

/REMAIN=REMAINDER

41
4D

DCA 41
JMS DUBLAD
TAD 4D
JMP I NULTlD

DIGIT,
SIGN,
DNUMBR,

/YES-IGNORE

MIDDL
42

NULT2
MULT2
JMS DUBLAD
JMS MULTZ
TAD DIGIT
DCA 45
DCA 42

4270
4537

DUDE

DCA SIGN
JMS INPUT
CLA
TAD CHAR
TAD MIN9
SMA
JMP I DECONV

TAD PLUSIZ
SPA
JMP I DECONV

1&47
5fl45
1fl46
5242
1545
5041
504D
427D

UUDD

/TEST FOR SIGN

SNA

/CALL SUBROUTINE TO
/MULTIPLY BY TWO
ICALL DOUBLE ADD

IADD LAST DIGIT

RECEIVED

/EXIT WITH REMAINDER
IIN AC
ISTORAGE FOR DIGIT
/=D IF PLUS: =7777 IF
/:NUMBER OF DIGITS

/MULTIPLY LORDER,

MINUS

HORDER BY 2

Dighal-8-20-F-Bin
Page 20
7071
7072
7073
7074
7075
7076
7077
7100
7121
7192
7105
71fl4
7105
7106
7107
7110
7111

7500
1047
7004
5047
1046
7004
5046
1045
7004
5045
1040
7004
5040
5670
0000
7500
1047

7112

1045
5047
7004
1046
1042
5046
7004
1045

7115
7114
7115
7116
7117
7120
7121
7122
7125
7124
7125
7126
7127
7150
7151
7162
7165
7154
7165
7166

CLA

CLL
TAD LORDER
RAL
DCA LORDER

TAD MIDDL
RAL
DCA MIDDL
TAD HORDER
RAL
DCA HORDER
TAD 40
RAL
DCA 40
I MULTZ

DUBLAD,

CLA
TAD
TAD
BOA
RAL
TAD
TAD
DCA
RAL
TAD
TAD
DCA
RAL
TAD
DCA
JMP

1041
5045
7004
1040
5040

5707
0000
7500
2266

MSIGN,

7776
7525
7506
0012
7600
7775
5146

7147

3147

/DOUBLE PRECISION ADDITION
CLL
LORDER
45

LORDER

MIDDL
42
MIDDL

HORDER
41
HORDER
4B
40

DUBLAD

CLA CLL
ISZ SIGN
JMP I MSIGN

5750
4756
5750
6261

7157
7140
7141
7142
7143
7144
7145

3MP

JMP I
6261

MINUS,
'PLUS,
MINS,
PLUSlZ,
MASK,

/ROUTINE TO FORM
/2'S COMPLEMENT
/IF C(SIGN)=7777

MSIGN

255-255
‘256
“272
272-260
7608
7775
3146
7146
6147

/”ACNEG"

INTERPRETER

ITEST FOR SIGN

6146

/TEST

FOR DIGIT

/TEST

FOR OVERFLON

5146

DigHal-8-20-F-Bin
Page 21

7150
7151

OUOU

7161
7162
7165
7164
7165

72UE
6051
5552
6056
5062
196%
4774
1269
7450
5551
1576
7456
5775

7166

1577

7167
717%
7171
7172

765%
4775
'1U6O
575%

7175
7174
7175
7176
7177

6767
7545
7431
74U1
U162

7152
7155
7154
7155
7156
7157
716%

/INPUT A CHARACTER, IF CR, TEST
/INPUT SWITCH TO SEE IF LF SHOULD
/BE TYPED. IF RUBOUT, RESTART INPUT
U
/INPUT A
INPUT,
CLA
KSF
JMP .‘1
KRB

DCA CHAR
TAD CHAR
JMS I OUTPUT
TAD CHAR
SNA

INPUT+1

JMP
TAD

GOOD

4217
1524
5644
1545
4545

4757
1956
7650
5629
1541

SNA

JMP
TAD

I RESTRT
MINOR
CLA
I PRINT
CHAR
I INPUT

SNA
JMS

TAD
JNP

PRINT,
OUTPUT,
RESTRT,
MRBOUT,
MINCH,

FLOUTP,

/RUBOUT-RESTART

INPUT

/CR
SEE IF TO BE FOLLOWED
/BY LF
/EXIT ROUTINE
-

PRCHAR
OUT

FLINTP+1
-577

577-215

FORMAT

JMS FOUTCN
TAD BEXP
DCA EXPONT
TAD CHE
JMS OUT
JMS I FEXPPT

SWITl
CLA
I FLOUTP
CARRTN
OUT
LNFEED
OUT

7212
7215

4545

7214
7215

4545

TAD
SNA
JMP
TAD
JMS
TAD
JMS

7216

56OD

JMP I

1542

/IGNORE BLANKS

MRBOUT

/FLOATING OUTPUT "E"
TSP
/USES:
/
JMP 0-1
TLS
/
*7ZDU
72mm
7201
72U2
7205
7204
7205
7256
72D7
721%
7211

CHARACTER

FLOUTP

/CONVERT

MANTISSA AND OUTPUT

ICONVERT EXPONENT AND OUTPUT
/PRINT CR-LF?
‘

/NO-EXIT
/YES

/EXIT

DigHal-B—ZO-F-Bin
Page 22
/THIS WHOLE SUBROUTINE MAY BE ALTERED T0 BUFFER
/THE OUTPUT DIGITS : CHANGE JMS OUTDG T0 DCA I 10,
7217
7220
7221
7222
7225
7224

090%

7225
7226

7459
1550
4545
4555
1551
4545
759%
1045
772%
5242
704%
5755

7227
7250
7251
7252

7255
7254
7255
7256
7257
7240

7241
7242
7245
7244
7245
7246
7247
725a
7251
7252

7255
7254
7255
7256
7257
726»
7261
7262
7265
7264

7265
7266
7267

FOUTCN,

CLA
TAD
SPA
CLA
TAD
SZL
TAD
JMS
JMS
TAD
JMS
CLA
TAD

7506
1245
7710
722%

1527

4752
7249
1044

2524
5246

CLA
CML

/NUMBER>M7?

/N0

SPLUS

SET LINK

/YES
i

SNINUS§

/NO

OUTDG

/0UTPUT "G"

PERIOD
OUT
CLL

/0UTPUT ".”

OUT

HORDER

SMA
JMP
CMA

CLA
F601

DCA
JMS

I SNPT
I MSNPT
CMA

/NUMBER

JMP F605
TAD FOUR
SMA

0500

020%

HORDER;

NEGATIVE

/NEGATE

/SUBTRACT 1 FROM BINARY
/COMPENSATE AT FGO4

LXPON

/INITIALIZE DECIMAL EXPONENT
/IS -4<EXPONENT<-1

SMA

527a
4407
574%
7240
1524
5524
5246
4407
5744

CLL

CLA
TAD EXPONT
DCA EXPONT
DCA BEXP
TAD EXPONT

5544
5524
1544
7509
5265
1526
7720

LTC.

F605,

ITOO LARGE:

MULTIPLY BY

CLA

JMP F604
JMS I FPNT
FMPY I TENPT
FEXT
CLA CMA
TAD BEXP
DCA BEXP
JMP F002
JMS I FPNT
FMPY I PRC.10

FEXT
ISZ BEXP
JMP F602

/TOO SMALL-TIMES
/TEN

/0NE TENTH

TEN

1/10

DigHal-B-ZO-F-Bin
Page 23
7270
7271
7272
7276
7274
7275
7276
7277

6764

7600
7601
7602
7606
7604

4766
4765
7410
4660
2044
5274
7450
5611
4656
1625
6044
4765

7605
7606
7607

4656
2044
5604

7610

5617

7611
7612
7616
7614

724a

7615
7616
7617
7620
7621
7622
7626

7624
7625
7626
7627
7660
7661
7662
7666

7664
7665
7666
7667
7640
7641
7642
7646

7644

F804,

FGOSA,

F806,

FGO6A,

F607,

1624
6624

1045
7640
5622
1047
765m
6624
7240
55m2
0000

7767
0004
0256
0602
0256
716%
7066
7665
7042
7670
7526
7504
0215
0212
0605
7144

DCA

DPT
M2PT
MlflPT

JMS
JMS
SKP
JMS DIVTWO
ISZ EXPONT
JMP FGOSA

INULTIPLY BY TWO
/IE.SHIFT LEFT
/MULTIPLY BY TEN
/COMPENSATE FOR
/BINARY EXPONENT

SNA
JMP F607
JMS OUTDG
TAD MINUS7
DCA EXPONT
JMS I MIDPT
JMS OUTDG
ISZ EXPONT
JMP F8064
JMP I FOUTCN

FIRST DIGIT A ZERO
IGNORE
/MULTIPLICATIONS YIELD
/DECIMAL DIGITS AS HIGH
/0RDER REMAINDERS
/IE. .672X10=6+.72.. ETC

CLA CMA
TAD BEXP
DCA BEXP
TAD HORDER
SZA CLA
JMP .+4

/IGNOR£ FIRST DIGIT
/SUBTRACT 1 FROM
/DECIMAL EXPONENT

TAD
SNA
DCA
CLA
JMP

BEXP,
MINUS7,
FOUR,
SPLUS,
SMINUS,
PERIOD,
MSNPT,
SNPT,
DPT,
MlfiPT,
MZPT,
FEXPPT,
TENPT,
CARRTN,
LNFEED,
CHE,
PRC.10,

I
I
I

/IS

/YES,

/7 DIGITS OUTPUT77
/N0: CONTINUE
/YES:EXIT

/IS

MANTISSA

CLA

BEXP

/YES:£XP:0

CMA

F806+1

‘11

/CONTAINS DECIMAL LXPONENT
/NUMBER OF DIGITS OUTPUT

0004

256
255-256
256
MSIGN

SIGN

DIGIT
MULTld
MULTZ
FEXC
TEN
0215
0212
6E5
0.10

ZLRU?

LORDER

/POINTERS

Digflal-8-20-F-Bin
Page 24
7645
7646
7647
7650
7651
7652

0000

OUT,

/OUTPUT 0N6 ASCII

7200
5745

OUTDG,

/OUTPUT ONE DIGIT

7656
7654
7655
7656

1657
4645
5756

7657

0260

0260,

0260

7660
7661

0000

DIVTwo,

7662
7666
7664
7665
7666
7667
7670
7671
7672
7676
7674
7675

74mm
7441
7442
7445
7444
7445
7406
7447
7414
7411
7412
7415
7414
7415
7416
7417

0000

TAD C260
JMS OUT
JMP I OUTDG

7110
6645

CLL RAR
DCA OUT

1045

7010

TAD HORDER
RAR
DCA HORDER
TAD MIDDL
RAB

6046
1047
7010
6047
1645
5760

DCA MIDDL
TAD LORDER
RAR
DCA LORDER
TAD OUT
JMP I DIVTWO

7010
6045
1046

0000
7240
6614
6061
4717
7200
1060
1616
7640
5220
1614
7650
5222
6722
6614
5720

CHARACTER

TS?
JMP l-l
TLS
CLA
JMP I OUT

6041
5646
6046

/FLOATING
*7400

POINT

FLINTP,

/DIVIDE BY T00 IE.
/ROTATE RIGHT
/TEMPORARY STORAGE

INPUT

CLA
DCA
DCA

CMA
PRSfl

JMS
CLA
TAD
TAD
SZA
JMP
TAD
SNA

/INITIALIZE "PERIOD SWITCH"

DSWIT

DPCVPT

CHAR
PER
CLA
F1601
PRSW
CLA

JMP F1602
DCA I DPN
DCA PRSW
JMP I DPCSPT

/7777

PERIOD

/PERIOD FOUND
/SECOND PERIOD

/YES,TERMINATE
/NO
SET NUMBER OF DIGITS
/SET PERIOD SWITCH TO 0
/CONVERT REST OF STRING
-

Digflal-8—20-F-Bin
Page 25
7424
7421
7422
7425
7424
7425
7426
7427
7455

1514
765»
1722
7441
5515
4721
1512

FIGOI,
FIGOZ,

FIGOS,

5444

4447
7540
6u52

7451
7452
7455
7454
7455
7456
7457
744a

1060
1511
7640
5252
4717

7441

4721

7442
7445
7444
7445
7446

1345
751a
7441
764a
5277

7447

1247

7454
7451

1515
5515

5444

/PERIOD READ

IN PREVIOUSLY?

TAD PRSW
SNA CLA
TAD I DPN

/YES:-NUMBER OF DIGITS IN SEX

CMA

/NO

IAC

DOA SEXP
JMS I MSGNPT
TAD C45
DCA EXPONT
JMS I FPNT
FNOR
FPUT FPACI
FEXT
TAD CHAR
TAD MINUSE
SZA CLA
JMP ENDFI
JMS I DPCVPT
JMS I MSGNPT
TAD HORDER
SPA
IAC
SZA CLA
JMP EXCESS
TAD LORDER
TAD SEXP
DCA SEXP

/TEST SIGN

INORMALIZE F.P.
/SAVE

/"E"

NUMBER

NUMBEH

READ

IN?

/NO

CONVERT DECIMAL
/TEST SIGN
/EXPONENT TOO LARGE77

/YES

/YES
/N0:DECIMAL POINT IS
/C(SEXP)PLACES TO RIGHT
/OF LAST DIGIT

/END OF FLOATING POINT INPUT
/COMPENSATE FOR DECIMAL EXPONENTS
7452
7453
7454
7455
7456
7457
746%
7461
7462
7466
7464
7465
7466
7467

4407
5052

JMS

0000
1515

I FPNT
FGET FPACl
FEKT
TAD SEXP

7450

SNA

5600

ENDFI,

/R£STORE

MANTISSA

JMP

I FLINTP
CLA
JMP F1604
JNS I FPNT
FMPY I PC.1m

77010
5276
4407
5710

SMA

0000

FEXT

2515
5255
5600

ISZ
JMP

SEXP
ENDFI+5
JMP I FLINTP

/. IS TO THE LEFT:
/TIMES .IDBO

EXPONI

DigHal-8—20-F-Bin
Page 26
747a

7471
7472
7475
7474
7475
7476
7477
7555
7551
75W2
7505
7594
7555
75m6
7527
7510
7511

7512
7516
7514

4407
5534

F1604,

21212210

724%
1515
5515
5255
1516

EXCESS,

5044
1516
5045

560%
2294

TEN,

I FPNT
FMPY TEN
FEXT
CLA CMA
TAD SEXP
DCA SEXP
JMP ENDF1+5
TAD C5777
DCA EXPONT
TAD C5777
DCA HORDEK
JMP I FLINTP
JMS

2400

mflflfl
DMDU

6906
@602

Pc.1m,
MINUSE,

6245

7522

7515
7516

5777

PER,
Pst,
SEXP,
03777,

7517

700M
792%
7152
7967

DPCVPT,
DPCSPT,
MSGNPT,
DPN,

DNUMBR

/0UTPUT

THE EXPONENT

7521
7522

7525
7524
7525
7526
7527
755E
7551
7552
7555

7554
7555
7556
7557
754a
7541
7542

@553
75wfl
1544
7515
7%61
3044

1567
7455
157a
4775
5045

1544
2345
1571
7555

5557

FEXC,

THE RIGHT:
/MULTIPLY BY 19

C.IW
-595
@545
'256
3

@523
@980

752%

BDU4

24b2

7144
7475

/CONTAINS

5777
DECONV
DECON
MSIGN

CLA CLL
TAD EXPONT
SPA
CMA IAC CML
DCA EXPONT
TAD C255

SZL
TAD C255
JMS I DGPT
DCA HORDER
TAD EXPONT
ISZ HORDER
TAD M144
SMA

JMP

0-3

DECIMAL

EXPONENT

DigHal-B—ZO—F-Bin
Page 27
7545
7544
7545

7546
7547
7554
7551
7552
7555
7554
7555
7556
7557
7564
7561
7562
7565
7564
7565
7566

7567
7574
7571
7572
7575
7574
7575

BEXP
CARRTN
CHAR
CHE
0.14
C12
C144
C255
C255
C264
C5777
C45

DECON
DECONV
DGPT
DIGIT

olvrwo

1572

TAD
DCA
CMA
TAD
SZA
JMS
DCA
TAD

5444

7444
1445
7444
4775
5445

1575.
7544
5555

1574
5447

4144

7766
4412
7555

412,
C12,
DGPT,

7545
7144
7574
7572
7567
7574
7557

7516
7512
7424
7444
7575

7465
7564

444444

7467

DPCSPT

7520

I DGPT
HORDER

TAD
SMA
JMP
TAD
DCA

M12

TAD
JMS

LORDER
I DGPT
I FEXC

JMP

C255,
C255,
M144,
C144,

4464

HORDER

0-5

C12
LORDER
CLA CMA
TAD HORDER
JMS I DGPT

7244
1445
4775
1447
4775
5725

7524
7541

EXPONT

EXPONT
ISZ HORDER'

1444
2445

7775
4442
7654

C144

@255 '269
255- 255
7654
@144
7766
4412
OUTDG

DigHal-8-20—F-Bin
Page 28
DPCVPT
DPN
DPT
DSWIT
DUBLAD
ENDFI
EXCESS
EXPONT

FEXC
FEXPPT
F801

7517
7522
7554
0061
7127

7452
7477
@044

F6054

7525
7557
7242
7246
7265
7272
7274

F606
FGO6A

7591
7524

F807

7511

F1001
F1002
F1605
F1604
FLINT?
FLOUTP
FOUR
FOUTCN
FPACI
FPNT
HORDER
INPUT
LFED

7425
7422
7426

F602
F605
F604

MASK

7470
7400
7202
7526
7217
0052
@267
0245
7152
6777
7542
0047
7145

MIDDL
MINCR
MINUS

7177
7157

LNFEED
LORDER

$246

11.

DIAGRAMS (Not Applicable)

REFERENCES
See DigHaI-8-5-S.

MINUSB
MINUS7
MIN9
MRBUUT
MSGNPT
MSIGN
MSNPT
MULle
MULT2
MlflPT

7511
7525
7141
7176
7521
7152

7552
7442
7275

M12

7555
7575

M144
MZPT

7571
7556

OPUT
OUT
OUTDG
OUTPUT
PC.lu
PER

6776
7545

PERIOD
PLUS
PLUSIZ
PRCHAR

PRC.16
PRINT
PRSW
RESTRT
SEKP
SIGN
SMINUS

SNPT
SPLUS
szTl
SflIIZ
TEN
TENPT

7555
7174
7515
7515
7551
7142
7142
6767
7544
7175
7514
7175
7515

7066
7555
7555
7527
5256

2057
7524
7542