Digital PDFs

DIGITAL-8-10-S

December 1965

30 pages

Original

1.5MB

Document:	digital-8-10-s-d
Order Number:	DIGITAL-8-10-S
Revision:
Pages:	30
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/digital-8-10-s/digital-8-10-s-d.pdf

OCR Text

IDENTIFICATION
I .I

Digital-8'4 0-5

I .2

CALCULATOR

I .3

J une 28, I965

PDP

8
LIBRARY

Digital ~8-T 0-5
Page 2
2.

ABSTRACT

of the PDP-B,

The Calculator program has been written to demonstrate the arithmetic capabilities
as

well as to serve as a useful computational tool.

the FORTRAN language.

lnput is in a form similar to
The Calculator consists of a compiler section and an operating section

and uses the PDP—8 Floating-Point System (Digital-8-5D-S).

REQUIREMENTS

3.]

Storage
Calculator occupies memory from 5-3374 (octal) and from 4557-7577

(Digital-B-SD-S).
3.2

Subprograms and/or Subroutines
Digital-8-5D-S is used and is supplied with the binary tape.

3.3

Equipment
4K PDP-B, 33ASR Teletype.

USAGE

4.]

Loading
Calculator is loaded via the Binary Loader (Digital-8-2-U) with the Floating—Point
(Digital-8-5D-S) in memory. The binary tape supplied consists of two parts: the Floating-

Package
Point Package and the Calculator program.
4.4

Startup and/or Entry

loaded, set 0200 in the switch register, depress LOAD ADCalculator will type a carriage return-line feed combination and wait for

After the program is

DRESS,then START.
a

command.

4.5

Errors in Usage
There are three error messages:

4.5.1

SYNTAX?
Calculator will type this when it is unable to recognize the commands it has been

given.
4.5.2

lnput overflow.
a

go command.

More than 400(8) valid characters have been typed without giving

Calculator will restart and ignore all previous input.

Digital-84 0-5
Page 3
4.5.3

STACK ERROR
The operating system has been unable to execute the code generated by the
This will be caused by illegal

compiler section.
nose.

input that the compiler was unable to diag-

Calculator will restart (see 8.l .l).

4 6

Recovery

Calculator restarts after all errors.
5.

RESTRICTIONS (Not Applicable)

DESCRIPTION

6.I

Discussion
The compiler will reduce the

input commands to a "reverse polish" form.

For example:
I

6/4 =;

Will compile as:
LOAD

STACK

LOAD

STACK

LOAD

STACK

DIVIDE

(
(
(

AC)“vv

ADD

OUTPUT

STOP
When compilation is complete, the operating system is entered, and the compiled
instructions are executed

METHODS (Not applicable)

FORMAT

8.l

Input Data

8.l .I

Arithmetic Expressions
Each arithmetic operation must be explicitly indicated by the keyboard character

representing the operation.
gram.

These characters are called operators.

Extraneous spaces, tabs, carriage returns, and line-feeds are ignored by the proThe character semicolon (,-) is used to terminate input and to start compilation and exe—

cution.
An arithmetic expression is normally evaluated from left to right;

however, certain
operations are always performed before others, regardless of their order in the expression. The
operators and their priority of evaluation within expressions are listed below:

Digital-B-l 0-5
Page 4

Expressions within parentheses
Exponentiation
Multiplication, division
Unary minus
Addition, subtraction
Output

(

)

i /
I

‘+
ll

For example:
0.

4+ 6 =;
+

produces

0.1000000E + 02

4 + 2*3 =;
+

produces

O. l OOOOOOE + 02

(4 + 2)*3 =;
+

produces

0. l BOOOOOE + 02

(4 + 2:)

3 =;

produces

0.6000000E + Cl

O. l BOOOOOE + 02

i 2 =;

produces

0.3600000E + 02

9t
+

5:;

produces

0.3000000E + Cl

(4 + (3*2=)=)* 2:,-

produces

0.6000OOOE + Cl

O. l OOOOOOE + 02

0.2000000E

The following functional commands may be

incorporated in expressions to be

evaluated.

ABS( )

SQT( )

Take the absolute value of the expression within the parentheses.

Take the square root of the absolute value of the expression within
the parentheses

SIN( )

Take the sine of the value of the expression within the parentheses

(considered to be in radians).
COS( )

Take the cosine of the value of the expression within the parentheses

(considered to be in radians).
ATN( )

Take the arc—tangent of the value of the expression within the

parentheses (answer in radians).
EXP( )

Take the exponential

(base e) of the value within the parentheses.

Digital—84 0-5
Page 5
Take the natural

LOG‘i’

logarithm of the expression within the parentheses.

These functions have a priority that is between exponentiation (f) and multi-

plication and division (*,/).
For example:

ATN((S|N(.l) =)/(COS(.l) =)

+0.9983341E +01
+

0.9950040E + 00

0.1003347E + 00

0.9999999E + 00

) 2; produces

SIN(.i)
cosm)

S|N(.l)/COS(.1)
ATN(TAN(.1))

TANGENTU)

(SlN(.l))l2 + (COS(.l)) l2 2,- produces
O.lOOOOOOE + CT

The RUBOUT key causes the previous character that was typed (as input) to be
erased

The character erased is then retyped by the

input part of the program.

For example:
i-

l—

(A 8A8 (6
:3

;

produces

0.6000OOOE + O]

In the above case, the second A and the second

(were typed by the input pro-

gram after it processed the rubouts.

lf RUBOUT is used to erase more characters than were typed, the

input program

will type STACK ERROR, and Calculator will restart itself.
If the compiler detects a source
restart

itself.

language error, it will type SYNTAX? and

For example:

1*/6 2; SYNTAX?
8.1.2

Loop Controlling
Calculator has two

8.l.2.l

loop-controlling commands.

Repeat

The repeat command is indicated by R followed by an integer. It will cause
Calculator to evaluate the expression from beginning to end a specified number of times.
4 —.~ 2

R2; produces

0.6000000E + 01

0.6000OOOE + 01

Digital~8~l 0~3
Pageé
8.1 .2.2

Modification
The modification command is specified as follows:

expression 1 [operator expression 2]

Expression l is modified once on each pass through the loop.
0 [.+ l]

For example:

R3; produces

0.1000000E + Oi

0.20000000E + Oi

0.3000000E + 01

For example:

To produce a table of the first ten integers and their square roots,

Calculator would be instructed:

SQT(O [ +1]

)

R10;

and it would respond with:

SQT(OC+1]=)=RIO}
+OolOOOOOOE+01
+0olOOOOOOE+Ol
+OoQOOOOOOE+Ol
+0.1414213E+01
+OoBOOOOOOE+01
+0.1732050E+01
+0.4000000E+01
+0.2000000E+01
+OoSOOOOOOE+01

+0.2236067E+01
+0oéODOOOOE+Oi
+0.2449489E+01
+0.7000OOOE+01

+0.2645751E+01
+0.8000000E+01

+0.2828426E+Ol
+0.8999999E+01

+0oSOOOOOOE+Ol
+OolOOOOOOE+02
+0.3162277E+01

DigHal-8~lO-S
Page 7
8.2

Output Format
Calculator's normal output mode is floating-point decimal

(E format):

1 O.XXXXXXXE :t: XX
There is a command to change the output format:

FOR(X, Y)
X is equal
where X and Y are positive integers less than or equal to 3]
to the total number of digits to be outputted and Y is equal to the number
.

of digits to the right of the decimal point.

On output,

leading 0's are

suppressed. If the number is larger than the field width shows, X'swlll
be typed. E format is specified by FOR(E). The current output format is
maintained until explicitly changed.
The previous example could be rewritten as:

+-+m

0T‘(0[+1]FOR(Ku 4>=>F0R<9, 7)==R103
1.0000
1.0000000

2.0000

104142130

3.0000

1.7320500

2.0000000

5.0000

2.9360670

6 .0000

2.4A94R90

7.0000

8.0000

2.028A960

8.9999

3.0000000

10.0000

3.1622770

which produces:

DigHOI-8-10-S
Page 8
EXQTUTION 1CIME

(Not applicable)

PROGRAM

Program Listing
*5
INzJMS
@305

7409

0306

7299

@607

569%

IDEFINITIONS

7496
ouerMS

7200
EIM:JMS

5666

EXIT=14BQ
GETSGNzTAD 45
GETSWT=TAD 69
*2%
@623
0021

3922
0025
9024
@025
0626
0327

7776
7775
7774
777%
@302
@993
0690

-2
-5

M2?
M39
ma,

—4

P2,
P5,

0933
3031
0032

@009
@066
1525
2125

@033

2247

0334
0355

@066
@906

COUNTR,
COUNTI,
STKVAL,
sconx,
scowz,
scans,
A01,
A02.

0036
0637

@990
$636

POINT,
TEMP,
*63
PUSHzJMS

3
a
0
a

PUSH!
PUSHZ
Pusus
3
0
e
o

@065

0000

@664
Mfl65
@656

3057
1463
2663
3034
2454
1434
3055
2034
i454

USA
TAG

9967
@979
$671

0372
0075
0074

@075

1145

0076

7760

TEHP
I 4"2
ISZ 9'33
004 ADI
ISZ I ADI
TAD E ADI
DCA 402
ISZ ADI
TAD I ADI
TAD M69
SMA CLA

IPUSH DOWN ROUTINE
/C(CALL*I)ZADDRESS 0F POINTER
/C(POINTER+1):COUNT

DigHol-8-10-S
Page 9

0977

Gang

8191
9102
@133

ERRORI
132 I A01
TAD TEMP
USA I A02
EXIT PUSH

5551
2454
3037
5435
5465

xpusu ALGORITHM

/CCFOINTER)::C(POINTER)+1
/C(C(POINIER)):=C(AC)
/C(PDINTER+1)::C(POINTER+1)+1
I1? C(POINTER+I}>40,
POP=JHS

THEN OVERFLou

0104
@125
9166

@197
9119

fill!
9112
0113
@114
6115
3115
0117
@123
@121
9122
@123
0124
@!25

306%

1504
21%4
SESA

TAD 1 0'1
ISZ «'2
DCA A01
TAD X AD!
DCA A02
CLA EMA
TAD A92
DCA I ADI
I32 ADI
OLA CMA
TAD I AD!
DCA I ADI
TAD K ADI
SPA CLA
ERRO R!
TAD I ADE
KIT POF

2454
fiflfifi
7240
1555
3454

2%54
7243
1434
3434
143A
7716
5551
1435
5536

IPOP UP ROUTINE

/POP ALGORTEHM
/C(AC)::C(C(POINTER))
/C(POINTER)::C(POINIER)~1

9126

0006

@127
@130
913!
0152
0133

0000
GGBE
0303
0899
903%
77¢0

@134

ELSS
0136
0137
0140
@141
0142

2773
$077
77%@
@006
0096
9240

/C(POIMIER+1)2:C(POINTER‘1)*1
ll” C(POINTER*1)‘0, THEN UNDERFLOW
G
/STACK POINTER
STACKI,
a
Icouur FOR OVERFLOV
B
STA 3x2 ,
o

STACK3.

mxaa,
ACON,
MASKR,
HASKL,
rims,
SAC},
P46,

a
~1ea

INIAB
@977
7739
a
9
azaa

IPOINTER T0 INPUT BUFFER

Digital-B—IO-S
Page 10

$143
@144
3105

0957

MASK5,
N5,
553,

'5
“‘23

CRLF3JMS I

PCRLF

2146

TESTidfls

TSTCSE
ERROR=JNP I
ERR
ERRORlzJHP I o
ERRI
POLXSHzJMS I o
POLS
EXECzJMP I o
EXCTE

@147

@156

915!

0152
0155

INPUTzJNS I

INGO

0154
9155
0156

GUI,
602,
303,
LEFT,
RIGHT,
R60,
OCOUNT,

0357
@169
8161
@162
6165

DECRzJHS

PQLI
POLZ
CLEFT
CRIGHT
R30"?
9

/DECREHENT POINTER

@164
9165

CLA CHA
TAD POIHT
DCA POINT
EXIT DEER

9166
9167
@179

/TRUTH TABLE STRUCTURE OF THE LANGUAGE
#200

6220
02%!
fiEflZ
9293
9204
3295
@236
3207
@210
0211
@212
@213
8214

0215
@216

6032
6956
5362
794@
3163
4546

1031
3126
1154
3127
1032
5130
3151
1335
3132

BEGIN,

KCC

TLS
DCA
CMA
DCA

OCOUNT
CRLF
TAD SCONI
DCA STACK!
TAD Migg
DCA STACK1+1
TAD SCONZ
DCR STACK2
DC“ STACK2+1
TAD SCDN5
DCA STACKS

lRESET FORMAT

/RESET LOOP COUNT
/TYPE CR, LP
/RESET ALL STACK POINTERS

019:101-8-‘10-5
Page 1:
@217
@22@

@221
@222
@223
@224
@225
@226
@227
@23@
@231
@252
@235
@234
@255
@256

@257
@24@

@241
@242
@245
@244

@245
@246
@247
@25@
@251
@252
@253
@254
@255
@256
@257
@260
@261
@262
@265

@264
@265

3135
1135
3@36
4554
1135
5@36

4063
@13@
4547
5240
555@
5323
555@
5243
2@26
5553
5243
2326
5227
5273

4425
1@6@
765@
5553
44B?
6526

START,

NEGT,
convnr,

1025
1126
5126
2127
7418

@267
@270
@271

5550
5343
5550

@272

555%

/GET INPUT
/RESET POINTER
IPUT @ ONTO STACK

/IF

INPUT STRING
IT IS NEGATIVE
-.

IGNORE

ITEST

INPUT TO

ICONVERT

F.P.

IINPUT?
ISOURCE LANGUAGE ERROR
PUSH INTO STACK
/YES
~

TAD P5
STACKI
DOA STACKl
ISZ STACX1+1

IOVERFLOU?

SKP

/NO

TAD

ERROR
TAD INCON
PUSH
STACKJ
DEER
TEST
JMP POLI
JMP POLZ

5553
1356
4965
@152
4164
4547

@266

IN
GETSMT
SNA CLA
ERROR
EIM
FPUT I STACKI

ISET INPUT POINTER

FEXT

@0@@

5275
5311

DCA STACK5+1
TAD ACON
DC4 POINT
INPUT
TAD ACON
DCA POINT
PUSH
STACKZ
TEST
JMP NEGT
ERROR
JMP POL3
ERROR
JMP CONVRT
ISZ COUNTR
ERROR
JMP CONVRT
ISZ COUNTR
JMP START
JMP NEGATE

ERROR
JMP POL4
ERROR
ERROR

@275

1567

NEGATE,

@274
@275
@276
@277

SBS@
4552

POL1.

4547
53@7

DOA STKVAL
POLISH
TEST
JHF 1N2

@502

5552

ERROR

/PUT

LOAD STACK 0N OPERATE STAR

/WHAT NEXT?

/+."
/o*9?9:

/
/
/

(,
F.

OR
OR

FNC
3

TAO NEG
ICOMPILE THIS
IEXAMINE NEXT

DigHOI-S-TO-S
Page 12
JMP POL5
ERRO R
JMP CONVRT
ISZ COUNTR
ERROR
JMP CONVRT
DECR
JMP CONVRT

0501

5525

0502

5550

0505
0504
0505
@506
£307
0510

5245
2026
5550
5245
4164
5245

0511
0512
0515
0514
0515
0516
0517
0520
0521
0522

4552
1026
5140
4547
5507
5550
5525
5541

0525
0524
‘0525
0526
0527
0550
0551
0552
0555
0554
0555
0556
0557
0540
0541
0542
0545
0544
0545
0546
0547
0550
0551
0552
0555

1050
7640
5551
4065
0150
7410
4552
4547
5240
5550
5525
5550
5245
5504

POL5,

2140

POLAT,

5555
4104
0150
7450
5557
0156

AND

0554
0555

4065
0152

PUSH
STAC K5

1N2,

POLZ,

ICOMPILE THIS

ICONTINUE INPUT

ERRO R
JMP POL5

JMP POL4T
JMP CONVRT
JMP IN2'5

5245

5504

5550
1050
7001
7650

POLI SH
TAD COUNTR
DCA TENS
TEST
J HP 1N2

POL4,

TAD STKVAL
SZA CLA
JMP .+4
PUSH
STAC K2
SKP
POLI SH
TEST
JMP NEGT
ERRO R
J M? POL5
ERRO R
JMP CONVRT
JHP IN2-5

/IS

IT (7

/YES

INO

/INPUT?

ISZ TENS
ERROR
TAD STKVAL
IAC
SNA CLA

EXEC
POP
STAG K23
SNA
JMP GO
MASKR

/;?
/YES
/UNSTACK TO (

Digitci-8-10-S
Page 13

635
QSS?

0363
9561
@562
@363

5347

4547

836?

5275
5311
5556
5343
5550
5550

9566
8567

0320

w, *3

@095

GO,

INCON,
NEG,

J”? 0"?
TEST
JMP POL1
JMP POLZ
ERROR
JMP POLA
ERROR
ERROR
Gflfl5
3320

ICREATES LOAD-STACK

[COMPARE STACK PRIORITIES

#499
$400
9491
9402
0405

0404
0495
0405
e497

0419
0411
@412
0413
@414
9415
9416
@417
$420
9421

@600

POLS,

POP
STACKZ
DCA TENS
TAD TEM5
AND MASKL
DCA TEMZ
TAD STKVAL
AND MASKL
CLL CML CMA
TAD TEMZ
SZL CLA
JMP POLGO
TAD TEM5
AND MASKR
PUSH
STACKS
JMP POLS+1

A104
9130
3140
1146

@137
5251
1950
9137
7161
1231
7630
5222
1140
0156
4663
0132
5231

TAD TENS
PUSH
STACKZ
TAD STKVAL

0422
@425
0424
0425
9426
@427
0450

1146
4063
0130
1030

0451

3900

TEMZ,

0432
9433

4063
0130
2056
4547
5556

CLEFT,

PUSH
STACKZ

@454
0455
0436

PDLGO,

4063
0130
5600

/IF THIS

IRESTORE STACKS

/HANDLE

ISZ POINT
802

STACK THEN

IAC

PUSH
STACKZ
JMP I POLS

TEST
JMP I

UNSTACK

Digital-84 0-3
Page 14
0437
0440
0441
0442
0443
0444
0445
0446
0447
0450
0451
0452
0453
0454
0455
0456
0457
0460
0461
0462
0463
0464
0465
0466
0467
0470
0471
0472
0473
0474
0475
0476
0477
0500
0501
0502
0503
0504
0505
0506
0507
0510
0511
0512
0513
0514
0515
0516
0517
0520

JMP I

5557
5550
5550
5550
5550
0000
6031
5245
6036
7450
5245
3140
1140
4337
1140
0352
3140
1022
3026
1353
3010

ERROR
ERROR
ERROR
ERROR

INGO,

/INPUT ROUTINE

KS?
JMP 0'1
KRB
SNA
JMP

INGO+1
DCA TEM5
TAD TEM5
TYPE
TAD TEM5
AND BIT7
DCA TEM5
TAD M4
DCA COUNTR
TAD TABI
DCA 10
TAD TEM5
TAD I 10
SNA
JMP INGO*1
ISZ COUNTR
JMP 0'4
TAD I 10
SNA CLA
JNP RUB
TAD TEM5
TAD P200
DCA I POINT
TAD I POINT
TAD MINN;
SNA CLA
JMP I INGO
ISZ POINT
TAD POINT
TAD TOHIGH
SZA CLA
JMP INGO+1
TAD CHI
TYPE
TAD CHO
TYPE
CRLF
JMP I 1+1
BEGIN

1140
1410
7450
5245
2026
5265
1410
7650
5320
1140
1362
3436
1436
1351
7650
5644
2036
1036
1361
7640
5245
1347
4337
1350
4337
4546

5717
0200
4164

603

RUB,

DECR

lIGNORE BLANKS

/IGNORE PARITY BIT

ITABLE FOR IGNORING

IONE OF THESE?

/YES:

FORGET IT

/RUBOUT7
IYES

lg?
IYES:

EXIT INPUT ROUTINE

/OVERFLOU?
INO:
lYES:

CONTINUE
TYPE ”IO"

/START OVER AGAIN
IRUBOUT FOUND

Digital-8-10-S
Page 15
0521
0522
0523
0524
0525
0526
0527
0530
0531
0532
0533
0534
0535
0536

1036

TAD POINT

7040

CMA

1135

TAD ACON
SNA CLA
ERRORl
TAD I POINT
TYPE
JMP INGO+1

7650

5551
1436
4337
5245
0000
1345
4337
1346
4337
5731

0000
6041
5340

0545
0546
0547
0550
0551
0552
0553
0554
0555
0556
0557

0215
0212
0311

0560

0026
7775
0004
7612

0561

4405

0562
0563
0564
0565

0200
1375
1374
3010
1410
7450
5773

0566
0567
0570

0571
0572
0573
0574
0575

4337
5366
1150
1476
0010

/YES
/N0-TYPE ERASED
ICHARACTER
ICONTINUE
lTYPE CR-LF

ITYPE SUUBROUTINE

TS?
JMP 9'1
TLS
CLA
EXIT TYPE

7200
5737

0177
0553
7740

FLOW?

6046

0317
7505

/UNDER

TAD CR
TYPE
TAD LF
TYPE
JMP I PCRLF

TYPE=JMS
0537
0540
0541
0542
0543
0544

PCRLF,

IDECREMENT POINTER

CR,
LF,
CH1,
CH0.
MINNx,
BIT7,
TABI,

0215
0212
311
317
~275
0177
IIGNORE TABLE
ISPACE
ILINE FEED
ICARRIAGE RETURN
/TAB
/RUBOUT

~40

46-12
12~15
15-11
11~177

P200,
ERRI,
ERR,

0200
TAD TCONZ
TAD TCONl
DCA 10

TAD

X80

SNA

JN?

TYPE
JMP

xeo,
TCONl,
TCONZ,

9‘4
END+3
PTABl-l
o

PTABZ-PTABl

DigitaE-S-‘a O-S
Page 16
iPART II

/TYPE TEST ROUTINE
/TEST SYMBOLS OR OPERATORS
/RETURN TO
CALL+1
/
CALL+2
/
CALL+3
/
CALL+4
/
CALL+5
/
CALL+6
*600
0600
0601
0602
0603
0604
0605
0606
0607
0610
0611

0612
0613
0614
0615
0616
0617
0620
0621
0622
0623
0624
0625
0626
0627
0630
0631
0632
0633
0634

0635
0636
0637
0640
0641
0642
0643

0000
1366
3010
1020
4320
5220
.2200
7200
1022
4320
5223
2200
1410
7640

TSTCSE,

TAD
DCA
TAD

SADTAB
10
M2
COMPAR
JMS
JMP DCDEl
ISZ TSTCSE
CLA
TAD
JMS

1023
3026

1367
3011
7240
1036
3012
1021
3027
1411
1412
7640
5256
2027

COMPAR
JMP DCDEZ
ISZ TSTCSE
TAD I 10
SZA CLA
JMP TRYSYM

5226
5334
1026
1343
5332
1026
1346
5332

DCDEl,
DCDEZ,

TRYSYM,

TRYAGN,

JMP EXIT1+2
TAD COUNTR
TAD TABLl
JMP EXITI
TAD COUNTR
TAD TABLZ
JMP EXITl
TAD
DCA
TAD
DCA
CLA
TAD
DCA
TAD
DCA
TAD
TAD
SZA
JMP
ISZ

M7
COUNTR
FNTAB
11
CMA

POINT
12
M3
COUNTI
I 11
I 12
CLA
NOGO
COUNTl

+,-

IF
IF
IF
IF
IF

/,*,1,:
(, 0R FNC
), 3
DIGIT
.

OR 152

Digital-8-10-S
Page 17
DSA4
D645

DéAS
9547
@659
@651
@652
7353
@654
9655

0656
0657
9669
0661
0662
0663
@664
0665
@666
0667
067%
9671
0672
@675
0674
0675
0676
6677
D700
D761
D702
D703
D7D4
D795
D706
0737
071%

0711
D712
D715
D714
D715
D716
0717

072%
6721
0722
0725

3354
1624
1036
5036
2025
741D
577%
1026
1355
5352

1027
7040
1011
3011
2026
5252
2200
1020
4320
5557
2200
1410
7500
5300
1410
7710
5301
5600

N060,

TAD
CMA
TAD
DCA
152
JMP
ISZ
TAD

COUNT1

ISZ
TAD

I FORMAT
COUNTR
TABL5
EXITl

11
11
COUNTR
TRYAGN
TSTCSE
M2
COMPAR
DCDES
TSTCSE
I 10

SMA

JMP
TAD
SPA
JMP
JMP
182
152
CLA
TAD

.+5

I 10
CLA
.+3
I TSTCSE
10

TSTCSE

M3
COMPAR
I TSTCSE
TAD I 19
SNA
JMP I LEFT
TAD I 13
JMS
JMP

SNA
JMP
TAD

I RIGHT
I 10
SZA CLA
ERROR
JMP I RGO

7640
5550
5562

3326
1436
1410

0-5
P2
POINT
POINT
COUNTR

JMS
JMP

2010
2200
7200
1021
4320
5600
1410
7450
5560
1410
7450
5561
1410

9030

JMP
TAD
TAD
DCA
ISZ
SKP
JMP
TAD
TAD
JMP

COMPAR,

DCA COUNTR
TAD I POINT
TAD I 10

/COMPARE SUBROUTINE

Digital—B-IO—S
Page 18
@724
0725
B725
0727
@756
9751

7455
5729
2026

B732
9735
0734
0755
0735

5342
1742
5030
2336

9757
0749
0741

1026
1565
5352

DCDES,

TAD COUNTR
TAD TABL4
JMP EXITI

@000

TEN4,
TABLI,

@742
@743
9744
@745
0745
0747
B753
0751
B752
0753
@754
@755
0756
0757
@763
0761
0762

SNA
JMP I COHPAR
152 COUNTR
J”? .‘4
ISZ COMPAR
JMP I COMPAR

5325
2320
5729

EXITI,

TEM4
I TEM4

TABLZ,

.+3
0491
9402
.+5

B594
B505

0504
0505

@722

9722
@106
.+19
3611
0612
0613
06}4
@515
@617
9615

0106
0755
@611
0612
9615
0614
QSIS
3617
9616

TABLS,

9763
@764
0765

0766
0199
7777

TABL4,

0756
@767
077%
@771
0772
@775
@774
3775
0776
0777

1425
1445
1246

SRDTAB,
FNTAB,
FORMAT,
ABSF,

0009

/PUT PRIORITY
/IN STACK VALUE

STKVAL

POINT
J“? I TSTCSE

5699

0746
9401
3402
0755

DCA
TAD
DCA
152

.+3
0109
7777

DCTAB“
TABFN‘I
FORMIT
0

1045
7703
5771
4777
5771

TAD 45
SMA CLA
JNP I ABSF
JMS I
JMP I ABS?

63%0

6030

IUPDATE CHARACTER POINTER

/+
/'

/ /
/ *
/ ?
/ 3

/ABS

/SQT
ISIN
/C03
/ATN
ILOG
/EXP

)

DigH01-8-10-S
Page 19
#6545
6545

ABSF

0771
#6554

6554

6009

6000

/SET UP NEGATE

*1000

/EXECUTION
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014

1015
1016
1017
1020
1021
1022

1023
1024
1025
1026

1027
1030
1031
1052
1053
1034

1035
1036
1037
1040
11141
1042
1043
1044
1045
1046
1047
1050

1032
7040

EXCTE,

STACKZ
CLA
J0? OPGO
TAD
8N4

1532
7510
5545
3140

1140
1144
7510
5264
7450
5505
1020
7510
5521
7450
5756
1555
7500

/POP UP REST OF
ISTACK AND PUT
/ON OPERATE STACK

POP
STACKZ
SNA
ERROR
4ND MASKR
PUSH

STACXS
JMP EXCTE

DPSD,

1033
5132
1344
5343
1051
3126
4545
2152

SCDNZ

CMA

1150
7650
5215
4104
0130
7450
5550
0136
4063
0132
5200
7040
4063
0152

TAD

OPGOI,

CUA
PUSH
STACKS
TAD scons
DC4 STACKS
TAD SCON4
DCA STAcxa
TAD SCONI
DCA STACKl
CRLF
ISZ STAcxs
TAD I STACK3
SPA
USP OPEND
DOA TENS
TAD TENS
TAD MS
SPA
JMP OPRI
5N4
J0?

LOAD

TAD m2
SPA
JMP OUTPUT
SNA

JMP 1 FORM
TAD 012
SMA

IPUT TERMINATOR 0N
IOPERATE STACK

ITERMINATOR7
/YES

DEgitcf—B-TO-S
Page 20
5357
1554

JMP EXP
TAD P11
SNA
JMP STORE
DCA 0P2PT
EIM
FGET I STACK4

7450
5351
3260
4407
5743
0000

OPZPT,

6745

FPUT I STACK4
FEXT
JMP 0P601
IDOUBLE OPERAND COMMANDS

0000

5227

7200

OPRl,

1140
7112
7012

1655
3277
1545
1021
5342
4407
5742
0000
6742
0000
1342
3543

1025
1345
3543
4407
5526
6743
0000
1025
1126
5126

5227

CLA
TAD
CLL
RTR
TAD
DCA
TAD
TAD
DCA
EIM
FGET

OP1PT,

ISINGLE OPERAND

TEM5
RTR
CON
OP1PT
STACK4
M5
STACK
I

STACK

FPUT I STACK
FEXT
TAD STACK
DCA STACK4
JMP OPGOl

5227

7200

ILOAD STACK
CLA
LOAD,
TAD P5
TAD STACK4
DCA STACK4
EIM
FGET I STACK!
FPUT I STACK4
FEXT
TAD P5
TAD STACKl
DCA STACK1
JMP OPGO1

IOUTPUT TOP OF STACK
7200

4407
5745
0000

OUTPUT,

CLA
EIM
FGET I
FEXT

STACK4

Digital—8"] 0-5
Page 21
2:2;
422
4546

TAD SACl
OUT
CRLF
JMP OPGOI
TAD M6
TAD STACKI
DCA STACK
EIM
FGET I STACK4
FPUT I STACK
FEXT
JMP OPGOI

5227
134:
1126
3342
4427
5743
6742
2222
5227
7772
2222

2222

2366
7222
2163
5222
4546
5752
2223
7766
0011
@743

STORE,

'6
D
6
PUSH4-3
CLA
ISZ OCOUNT

M6,
STACK,
STACK4,
scona,
OPEND,

JMP OPGO+3
CRLF
JMP I .+1
BEGIN+3

212,

“12

P11,

11
AND I STACK4
FORMOP

CON,

1400

/EXPONENTIATE
7290
1345
1521
5542
4407
5742
0007
5743
0096

6742

CLA
TAD STACK4
TAD M3
DCA STACK
EIM
FGET I STACK
0007
FMFY I STACK4
DEBS
FPUT I STACK

@390
1542
3343
5227

FEXT
TAD STACK
DCA STACK4
JMP 0P601

EXP,

#1292

IHANDLE
1200

1231
1222
1203

1144
4564
4124
0130

CRIGHT,

TAD
JMS
POP

M5
SAVE

srncxz

DigH01-8-10-S
Page 22
1204
1205
1206

1207
1210
1211
1212
1213
1214

1215
1216

7450
5212
0136

SNA
JMP .+5
AND MASKR

4063
0132
5200

PUSH
STACK3
JMP CRIGHT
TAD STORE!

1244
4063
0132
2036
5370

PUSH
STACK3

ISZ POINT
JMP EXIT3

/HANDLE RN
1217
1220
1221
1222
1223
1224
1225
1226
1227
1230
1231
1232
1233
1234
1235
1236
1237
1240
1241
1242
1243
1244
1245

1144
4364

RCOMP,

3060
2036
4547
5550
5550
5550
5550
7410
5550
4645
7200
1060
7650
5550
1046

7041
3163
4164
5370
0010
7000

STOREI,
INDIG,

TAD MS
JMS SAVE
OOA so
152 POINT
TEST
ERROR
ERROR
ERROR
ERROR
SKP
ERROR
JMS 1 INDIG
CLA
GETSWT
SNA CLA
ERROR
TAD 46
CMA IAC
DCA OCOUNT
OEOR
JRR EXIT3
0010
7000

/HANOLE FOR(X,Y)
1246

1247
1250
1251
1252
1253
1254
1255
1256
1257
1260

1261
1262

1020
4364
2036

4547
5550
5550
5260
5550
5550
5550
1050
7640
5550

FORMIT,

TAD
ans

12
SAVE
ISZ POINT
REST
ERROR
ERROR
JMP .+A
ERROR
ERROR
ERROR
TAD SIKVAL
SZA CtA
ERROR

IINPUT INTEGER

Digital -8-1 0-5
Page 23
1265
1264
1265
1266
1267
1270
1271
1272
1275
1274
1275
1276

1277
1500
1501
1502
1505
1504

1505
1506
1507
1510
1511
1512

1515
1514
1515
1516
1517
1520
1521
1522
1525
1524
1525
1526
1527
1550
1551
1552
1555
1554
1555
1556
1557
1540
1541
1542
1545
1544

TEST
ERROR
ERROR
ERROR
ERROR
JMP INIT
ISZ COUNTR
SKP
ERROR
152 COUNTR
JMP EGO
ERROR

4547
5550
5550
5550
5550

5277
2026

7410
5550
2026
5555
5550
3060
4645
7200
1060
7650
5550
1046
0143
1142
4063
0130
4164
4547
5550
5550
5550
5550
5550
2036
2026
7410
5550
2026
5550
4645
7200
1046
0143
1142

INIT,

4063
0130
4547
5550
5550

IINPUT INTEGER

BIT

TAD‘P40

4063
0130
4164
1363

DCA 60
JMS I INDIG
CLA
GETSWT
SNA CLA
ERROR
TAD 46
AND MASK5

FEND,

PUSH
STACKZ
DECR
TEST
ERROR
ERROR
ERROR
ERROR
ERROR
152 POINT
ISZ COUNTR
SKP
ERROR
ISZ COUNTR
ERROR
JMS I INDIG
CLA
TAD 46
AND MASK5
TAD P40
PUSH
STACK2
DECR
TAD FCON
PUSH
STACKZ
TEST
ERROR
ERROR

IINPUT INTEGER

Digital-84 0-5
Page 24

5553

ERROR

5351

5553
5559

JMF .+5
ERROR
ERROR

2326
5570

JM? EXIT5

1142

152 COUNTR

F60,

1142
4063
V156

TAD FAQ
PUSH
STACKZ
TAD P48
PUSH
S?ACKZ

2936
5337

JMP FEND

4965
615%

ISZ POINT

@237

FCON,

0207

000%

SA VE,

177A
5375
5766

1375

EXITS,

5774
5773
9621
9509
9929

P71,
SPC,

TAD 1

PT!

DQA
JMP

SAVE

SPC

TAD SPC
DCA 1 PT!
JMP I .+A
TSTCSE+1
TSTCSE
fl

*AAEE
i4fi0
i401
1492
1493
{AQA
1495
1466
£497

1410
1411
1412
1415
1414
1415
1416

1417
142%

1421
1422

2132
1532
505?
1142
@057
7659
555%
1145
$957
514!
2152
1532
5057
1142
0037
765%
5559
1143
EQST

/EXECBTE FDRMAT
VISZ STACK3
FORMOP,
TAD
DCA

I STACKS
TEMP
TAD Pam
AND ramp
swa CLA
ERROR
TAG masxs
ans TEMP
ace. sac:
ISZ STACKS
TAD i swacxs
DCA ramp
TAD P46
AND ramp
SNA
LA
ERROR
TAD MASKS
Ame

ramp

Digflul-B-iO-S
Page 25
1423
1424

1425

5562
5625
1927

SCA 62
JMP I .+1
QPGOI

/DECODING
1425
1427
1533

7525
7776
7521

1451

@005

1452
1433
1434
1435
1456
1457
1440
1441
1442
1443
1444
1445
1446

1447
1459
1451
1452
1455
1454
1455

1456
1457
1460
1461
1462
1463
1464
1465
1466
1467
147%
1471
1472
1475
1474
1475
1476

1477
152%
1591
1502

DCTAB,

-257
57-52
52-136
156-75
75-59

7714
0241

0625
7527
7756
0001
0012
7473
0031
7776
7725
7776
@915

-251
51-75
75-72
72-60
-365

195-54
54-56

56-153
155-135
135-122

7477
747%
7455
7455
7457
7454
7455
7467
7462
7475
7461
7455
7477
7454
7462
7464
7461
7471
7473
745%
7469
7472
7461
7456

748FN,

@325
$331
0316

21‘481,

@524

TABLE
“253
53-55

«301
«532
«525
«323
«321
«524
«525
«511
-616
«503
«317
«323
«501
«524
«316
«514
«517
«5&7
«5&5
«539
«52a
~506
«5:7
«322

/ABS

526
331
316
324

/PRINT OUT TABLE

ISIN

Dighul-B-IO-S
Page 26
1503
1504
1505
1506

0301
0330
0277
0000

1507
1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522

0323
0324
0301
0303
0313
0240
0305
0322
0322
0317
0322

1523

0000

PUSH1,

2125

0000

*.+401
PUSHZ,

2247

0000

2371

0000

2773

0000

301
330
277
000

PTABZ,

323
324
301
303
313
240
305

322
322
317
322

0000

000

*.+121

Pusus,
*.+121

PUSH4,
*.+401

INTAB,

*.+400

XXXXXX,
IINPUT SETUP
*7144
7144
7145
7146

1436
2036
7000

7150
7151

7000
7000

TAD I POINT
ISZ POINT
NOP

#7156

ABSF
ACON
AD1

0771
0135
0034

'NOP
NOP

Digitai-B-lO-S
Page 27
ADZ
BEGIN
BIT7
CH1
CH0

CLEFT
COMPAR
CON
CONVRT
COUNTR

COUNTl
CR

CRIGHT
CRLF
DCD21
DCDEZ
DCDE3
DCTAB
DECR
EIM
ERR
ERROR
ERRORl
ERRI
EXCTE
EXEC
EXIT
EXITl
EXIT3
EXP
FCON
FEND
FGO
FNTAB
FORM
FORMAT
FOR MI T
FORMOP
GETSGN
GETSUT
GO
601
602
603
IN
INCON

INDIG
INGO
INIT
INPUT

0035
0200

0552
0547
0550
0432
0720
1155
0243
0026
0027
0545
1200
4546
0620
0623
0737

1426
4164
4407
0564
5550
5551
0563
1000
5553
1400
0732
1370
1157
1363
1337
1353
0767
1156
0770
1246
1400
1045
1060
0357
0155
0156

0157
4405
0366

1245
0444

1277
4554

Digital—S—IO-S
Page 28
2773
3397
flléfl
@546
1195
0137
6156
0143
6551
6&34
1155
962%
9621

@022
6144
1141
6&45

M6
use
m7
use

NEGATE
NEG?

N060
COUNT
QPEND

opeo
cpsox
OPRI
091?!
QPzPI
our
ourpm
PERL}?
POINT
POLGO

9025
@557
@27&
924%
@656
@163
i145
raxs

;927
1964
19??
1360
AAES

POLISH
PaLs
POLl

P0L2
PoLs
POLA
POLAT
POP
PTABI
PTABZ
PTl
PUSH

PUSH!
PUSHZ

Pusua
PUSHA
P11

1121
@551
@QSS
@422
4552
940%

9275
@511
6525
6545
@541
4104
1477
1587
1374
4&63
1523
2125
2247
2371
Ii54

Digifa i -8-] 0-5
Page 29
P2
%@{6
P5
334%
RCDMP
R60
4% GHT
1?
£25161

SADTAB
SA VE
SCONI
SCON2
SCON3
SCON4
SPC
STACK
STACK!
STACKZ
STACK3
STACK4
START
STK VAL
STOR E
STORE!
TAB FN

TABLI
TABLZ
TABLCS
TAB L4
TAB!
TC 0N1
TCON2
TEMP
TEMZ
TEM4
TENS
TEST
TOHIGH
TRYAGN
TRYSYM
TSTCSE
TYPE

XGO
XXXXXX

445

0562
@025
9142

1217
6162
6161
@520
@141
0766
1354
@051
9952
0935
1144
1575
1142
0126
9135
0132
1143

@227
9930
1131
1244

1447
0743
0746
0755
0753
@553
0574
@575
@937
9431
@742
0149
4547
0561
0632
0626
0630

4357
0573
5574

Digital-84 0-5
Page 30
12.

REFERENCES

12.]

Other Library Programs
See Digital-B-S-S'.