DIGITAL 8 10 S Calculator

DIGITAL-8-10-S Calculator DIGITAL-8-10-S Calculator

User Manual: DIGITAL-8-10-S Calculator

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

1.
IDENTIFICATION
1.1 Digita 1-8-10-5
1.2
CALCULATOR
1.3
June
28, 1965
~
--
PDP
'§"i
2.
ABSTRACT
Digita
I-S-1
O-S
Page
2
The
Calculator
program has
been
written
to
demonstrate
the
arithmetic
capabilities
of
the
PDP-S,
as
we
II
as
to
serve
as
a useful
computationa
I
tool.
Input
is
in a form sim i lar
to
the
FORTRAN
language.
The
Calculator
consists
of
a
compi
ler
section
and
an
operating
section
and
uses
the
PDP-S
Floating-Point
System
(Digital-S-5D-S).
3.
~fQUIREMENTS
3.
1
Storage
Calculator
occupies
memory from
5-3374
(octal)
and
from
4557-7577
(Digital-S-5D-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-S,
33ASR
Teletype.
4. USAGE
4.
1
Loading
Ca
Iculator
is
looded
via
the
Binary Loader
(Digita
I-S-2-U)
with
the
Floating-Point
Package
(Digital-S-5D-S)
in
memory.
The
binary
tape
supplied
consists
of
two
parts:
the
Floating-
Point
Package
and
the
Calculator
program.
4.4
Startup
and/or
Entry
After
the
program
is
loaded,
set
0200
in
the
switch
register,
depress
LOAD
AD-
DRESS,then START.
Calculator
will
type
a
carriage
return-line
feed
combination
and
wait
for
a
command
.
..1.5
Errors
in
Usage
There
are
t!'ree
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
10
Input
overflow.
r./\ore
than
400(S) val id
characters
have
been
typed
without
giving
a
go
command.
Calcuiator
vlill
restart
and
ignore
all
previous
input.
4.5.3
STACK ERROR
Digital-8-10-S
Page
3
The
operating
system has
been
unable
to
execute
the
code
generated
by
the
compiler
section.
This
will
be
caused
by
illegal
input
that
the
compiler
was
unable
to
diag-
nose.
Calculator
wi
II
restart
(see 8.1
.1).
4.6
5.
6.
6.1
For
example:
Recovery
Calculator
restarts
after
all
errors.
RESTRICTIONS
(Not
Applicable)
DESCRIPTION
Discussion
The
compi
ler
wi
II
reduce
the
input
commands
to
a
"reverse
pol
ish"
form.
1 +
6/4
= i
Will
compile
as:
LOAD
LOAD
LOAD
DIVIDE
ADD
OUTPUT
STOP
STACK
STACK
STACK
(1)
(6)
(4)
When
compilation
is
complete,
the
operating
system
is
entered,
and
the
compiled
instructions
are
executed.
7.
8.
8.1
8. 1 . 1
ME
THODS
(Not
appl
icable)
FORMAT
Input
Data
Arithmetic
Expressions
Each
arithmetic
operation
must
be
explicitly
indicated
by
the
keyboard
character
representing
the
operation.
These
characters
are
ca
lied
operators.
Extraneous
spaces,
tabs,
carriage
returns,
and
line-feeds
are
ignored
by
the
pro-
gram.
The
character
semicolon
C)
is
used
to
terminate
input
and
to
start
compi
lation
and
exe-
cution.
An
arithmetic
expression
is
normally
evaluated
from
left
to
right;
however,
certain
operations
are
a Iways
performed
before
others,
regardless
of
the
ir
order
in
the
expression.
The
operators
and
the
ir
priority
of
eva
luation
within
expressions
are
I
isted
be
low:
evaluated.
1 E.xpressions
within
parentheses
( )
2.
exponentiation
t
3.
Mu Itipl
ication,
division
*, /
4.
Unary minus
5.
Addition,
subtraction
+,
6.
Output
For
example:
a.
4 + 6
=;
produces
+
0.1000000E
+
02
or
10
b. 4 + 2*3 = ;
produces
+
0.1
OOOOOOE
+
02
or
10
c.
(4 + 2)*3 = ;
produces
+
O.
1800000E +
02
or
18
d. (4 + 2
=)
* 3 = ;
produces
+
O.
6000000E +
01
or
6
+
O.
1800000E +
02
or
18
e.
6'2=-
,
produces
+
O.
3600000E +
02
or
36
f.
9t'5=;
produces
+
O.
3000000E +
01
or
3
g.
(4
+ (3*2=)
=)*
2=
;
produces
+
O.
6000000E +
01
or
6
+
O.
1
OOOOOOE
+
02
or
10
+
O.
2000000E +
02
or
20
Digital-8-10-S
Page 4
The
following
functional
commands may be
incorporated
in expressions
to
be
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{ )
COS(
)
ATN(
)
EXP( )
Toke
the
sine
of
the
va lue
of
the
expression
within
the
parentheses
(considered
to
be in
radians).
Take
the
cosine
of
the
value
of
the
expression
within
the
parentheses
(considered
to
be in
radians).
Take
the
arc-tangent
of
the
value
of
the
expression
within
the
parentheses
(answer in
radians).
Take the
exponential
(base
e)
of
the
value
within
the
parentheses.
LOG(
,
Digitol-8-10-5
Page 5
Take
the
natural
logarithm
of
the
expression
within
the
parentheses.
These
functions
have
a
priority
that
is
between
exponentiation
(-t)
and
multi-
plication
and
division
(*
,I).
For
examp
Ie:
ATN«5IN(.1)
=)/(C05(.1)
=)
=)
= i
produces
+
O.
9983341 E +
01
+
O.
9950040E +
00
+
0.1
003347E +
00
+
O.
9999999E +
00
5IN(.1)
C05(.
1)
5IN(.1)/C05(.1)
=
TANGENT{.l}
ATN(TAN(.l
))
(5IN(.1))t2
+
(C05(.1))t2
= i
produces
+
O.
1
OOOOOOE
+
01
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-
I-
::::> ::::>
(A
~
A
~
(6 = i
produces
::::> ::::>
e:::: e::::
+
O.
6000000E +
01
In the
above
case,
the
second
A
and
the
second
(
were
typed
by
the
input
pro-
gram
after
it
processed
the
rubouts.
If
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
language
error,
it
will
type
SYNTAX?
and
restart
itself.
For
example:
8.1
.2
8.1.2.1
1
*/6
=;
SYNTAX?
Loop
Cantrall
ing
Ca
leu
lator
has two
loop-controll
ing
commands.
Repeat
The
repeat
command
is
indicated
by
R
followed
by
an
integer.
It
wi
II
cause
Calculator
to
evaluate
the
expression
from
beginning
to
end
a
specified
number
of
times.
4
-~
2 =
R2;
produces
+
O.
6000000E +
01
-T
O.
6000000E +
01
8.1.2.2
Modification
The
modification
command
is
spec
ified
as
follows:
expression
1
[operator
expression
2]
Digital-S-10-S
Page 6
Expression 1 is
modified
once
on
each
pass
through
the
loop.
For
example:
o
[,+
1 J =
R3;
produces
+
O.
1
OOOOOOE
+
01
+
O.
20000000E +
01
+
O.
3000000E +
01
For
example:
To
produce
a
table
of
the
first
ten
integers
and
their
square
roots
..
Calculator
would
be
instructed:
5QT(0
[ +
1]
=)
= R10;
and
it
would
respond
with:
SQT(O(+lJ=)=RI0J
+
0.1000000[+01
+0.1000000F.+Ol
+0.2000000[+01
+0.1<41<4P.l::\F.+Ol
+0.3000000[+01
+ 0 • 1
7320
50F.+0
1
+0.<4000000[+01
+0.2000000[+01
+0.5000000E+Ol
+0.2236067F.+01
+0.6000000E+01
+0.2<4<49<489[+01
+0.7000000[+01
+0.2645751E+01
+0.8000000[+01
+0.2828426E+01
+0.8999999E'+01
+0.3000000F.+01
+ 0
.1
OOOOOOE+OP.
+0.3162277E+Ol
B.2
Output
Format
Digital-B-10-5
Page
7
Calculator's
normal
output
mode
is
floating-point
decimal
(E
format):
+
O.
XXXXXXXE ±
XX
There is a
command
to
change
the
output
format:
FOR(X,
Y)
where
X
and
Yare
positive
integers
less
than
or
equal
to
31.
X is
equal
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
O's
are
suppressed.
If
the
number
is
larger
than
the
fie
Id
width
shows,
X's
will
be
typed.
E
format
is
specified
by
FOR(E). The
current
output
format
is
maintained
unti
I
expl
icitly
changed.
The
previous
example
could
be
rewritten
as:
SQT'(O[+
1
H-Or~(
(.,4)=
)FOR(9,
7)=RtOJ
which
produces:
+
1.0000
+ t
.0000000
+
2.0000
+
1.L1142130
+
:3
.0000
+
1.7320500
+
4.0(l00
+
2.0000000
+
5.0000
+
2.~?3('Oh70
+
6.000n
+
2./~Li94R90
+
7.0000
+
2.(,457510
+
R.OOOO
+
2.R28/1?60
+
R.9999
+
1.0000000
+10.0000
+
3.162?77()
Ol177
~~51
0100
24304
e10\
1031
~102
3A35
01213
5463
0104
0000
~1
K-5
15r'14
0106
2104
0107
3~3A
0110
10434
011
\
.1?35
lilt
12
72~C)
l"U3
10.35
0\14
,'~3~
01
J 5
2034
011
rS
724(3
011 7
14~4
~12~
304JA.
0121 143.4
~122
7710
012~
5551
0'
24
,
435
0125
55e~
0126
000~
0127
0000
~130
'H10C
01.3
l
0L1~0
0\32
Vl0QjVJ
0133
0000
0t34
7700
~t35
2173
0136
0011
0131
7700
0140
0000
0141
0000
0142
0240
EF:f.?Om
~SZ
l
ADI
7AD
TEMP
D':A I
AD2
EXIT
PUS~
/PUSJo\
ALGOJUrHM
IC(rOINTEq):~C(POINTER)+l
IC(C(POINT£R),:CCAC)
IC(POINTE~1):=C{P1INTER+1)+1
Digital-8-10-S
Page 9
IIf
CCPOINTER+l»4a,
THEN
OVERFLOW
POP:JMS • 0
IPOP
UP
ROUTINE
TAD
I
.-1
lSZ
,-2
~CA
AD!
~AD
~
AD'
DCA
ADZ
C:.p.
CMA
T~!)
~D2
DCA
1
ADI
12Z:
ADt
eLA
CMA
TAv
J-
I\D1
DCA
X
,~OJ
Tt\D
;:
ADt
SPA
CLA
ERRORl
7AD
I
Al)2
£~\r
T
por
IPO?
ALGORT!H~
IC(AC):~C(C(POXNTER»
IC(POINTER):=C(POINTER)-l
IC(POI~1ER+1)~~C(POINrER41)-1
Il~
C(PQINT£R~t)<0t
THEN
UNDERFLO'4
STAC\(\.
~
ISTACK
POINTER
11
/COUNT
FOR
OVERIi1.0W
SrACKZ
, U
(\
STACK3. 0
0
~100,
-1~0
AeON,
r
NTAB
IPOINTER
TO
INPUT
BUFfER
f!1J\SKR.
~071
MASKL,
77~0
TEr15
,
~
SACl.
~
P4~,
~2A0
0143
~0J1
0144
1773
0I.4;
7~60
0146
1i'5Jt
0147
0€fiW
"'150
05~.t
015'
0563
0152
0400
0~53
1000
0154
0444
0155
0351
~156
0275
I?H
57
0311
0160
04.32
0161
12013
0152
1217
0163
0000
0164
0000
0165
724C1
0166
1
~36
0167
.3036
0170
5)64
~2l0
60~2
02"1
6-;'~15
0202
.3e62
0203 70M;'
0204
3163
0205
4546
a206
UBI
0201
3126
021
"
1134
0211
3127
~12
1032
0213
.3
J .30
a!14
3131
0215
1
a33
02115
3132
MASK5,
0031
M5,
-5
~S0t
-120
CRLF~JMS
1 •
peRL;
TEST::
J
MS
I "
-:'STCSE
,-:r.lRO
R: J
~p
I •
ERR
ERRORl
: •
.1l'1P
r •
ERRI
POtlS~=JMS
I •
POLS
EXEC::JMP
I •
EXCTE
I
NPUT=JMS
G01
11
G02,
G03,
LEFT
•
RIGHT,
RGO,
OCOUNT,
DECR:JMS
•
I •
INGO
GO
POll
POL2
CLEn
CRIGHT
RCO~P
o
CLA
CMA
TAD
potHT
DCA
paIN!
EXIT
DEeR
IDECREMENT
POINTER
Digital-8-~O-S
Page 10
ITRUTH
TABLE
STRUCTURE
OF
THE
LANGUAGE
*200
BEGI
N,
KeG
TtS
DCA
62
IRESET
FORMAT
egA
DCA
OCOUNT
IRESET
LOOP
COUNT
CRLF
ITYPE
CR,
LF
TAD
SCONt
IRESE!
ALL
STACK
POINTERS
DCA
ST4CK\
I.h.;,)
M130
DC~'
STACKl+-!
TAD
SCON2
DCA
STACK2
DCA
STACK2+1
TAD
SCOn3
DCA
STACK3
~11
0220
0221
0222
0223
022'"
((1225
0226
~21
0230
023l
0232
1if233
~34
~35
0236
~31
0240
0241
0242
024.)
~44
kl245
0246
0247
(2250
0251
0252
a25.3
0254
0255
0256
0257
0260
0261
0262
0263
m64
0265
0266
0261
021~
~71
~7?
~73
0274
~15
~76
re.
77
0313~
3133
1135
3036
4554
1135
3~36
4063
0130
4541
524~
5550
5323
5550
5243
2026
555~
5243
2026
5221
5213
44~5
1060
1650
5550
4401
652~
~0"0
1
"25
1126
3126
2127
7410
5550
1366
4063
0132
4164
4541
5215
5311
5550
534J
555~
5550
1367
3030
4552
4541
5301
5550
START,
~EGT,
CONVRT,.
NEGATE,
POLl.
DCA
STACK3+1
T4D
ACON
DCA
POINT
INPUT
TAD
AeON
DCA
POINT
PUSH
STACK2
TEST
Jf1P NiGT
ERROR
JI'!P POL3
ERROR
Jl1P
CO},lVRT
ISZ
COUNTR
ERROR
Jlo'!P
CONVRT
ISZ
COUNTR
.H1P
START
Jl1P
NE3ATE
IN
GET5'JT
SNA
ClA
ERROH
ElM
FPUl' 1 STACKl
rEXT
TAD
P3
TAJ
STACK1
DC4
STACKl
ISZ
STACK1+t
SKI"
ER~OR
TAD
I
NeON
PUSH
Sl'A8K3
DEGR
TEST
,IMP
POLl
JMP
POL2
ER:-~OR
.H'W
rOL4
ErROR
ERR0R
Tilt">
NEG
DCA
STKVAL
r;;LI
SH
TEST
Jtlf
I
N2
ERRO'1
Dig:tG
1-3-
~
O-S
Pa2~
1
~
ISEt
INPUT
POINTER
IGET
INPUT
IRESET
POINtER
IPUT
0
ONTO
STACK
ITEST
INPUT
STRING
IIF
-,
11
IS
NEGA!l~£
IT
IGNOR'€
'CONVERT
INPUT
TO
f.P.
IINPUT?
'SOURCE
LANG'JAGE
ERROR
IYES "
PUSH
INTO
STACK
IOVERfiLOW?
INO
'PUT
LOAD
STACK
ON
OPERATE
STAI
IWHAT
NEXT?
1+.-
11,*,t.=
I
C,
OR
F'NC
I
,',
OR
;
ICOMPILE
THIS
'EXAMINE
NExt
Digita 1-8-1
0-5
Page 12
03131
5323
JMP
POLl
0302
5550
ERROR
0303
5243
JMP
CONVRT
03134
2026
ISZ
COUNTR
0305
55e:;0
ERROR
l[1306 5243
JMP
CONVRT
;~'
7 4164
IN2,
DEeR
031121
5243
JMP
CONVRT
0311 4552 POL2.
POLISH
ICOMPILE
THIS
0312 1026
TAD
COUNTR
0313 3140
DCA
TEM5
0314 4541
TEST
0315
531217
Jr-1P
I
N2
ICONTINUE
INPUT
0.316
555121
ERROR
0317 5323
JMP
POL3
0320 5341
JMP
POL4T
0321 5243
JMP
CONVRT
0322 5304
JMP
IN2-3
0323 1030 POL3,
TAD
STKVAL
lIS
IT
(1
0324 7640
SZA
CLA
0325 5331
JMP
.+4
0326 4063
PUSH
IYES
0327
13130
STACK2
0330
74113
SKP
0331
4552
POLIS~
INO
0332 4547
TEST
0333 5240
JMP
NEGT
0334 5550
ERROR
0335 5323
Jr·]p
POL3
0336
55513
ERROR
0331 5243
J~lP
CONVRT
0.:S4I2J
53134
Ji1P
1 N2-3 IINPUT?
0341
2140 POL4T.
ISZ
TEM5
0342 5550
ERROR
0343 1030 POL4,
TAD
STKVAL
1;1
0344
11301
lAC
0345 7650
SNA
CLA
0346 5553
EXEC
IYES
0347 4104
POP
IUNSTACK
TO
{
0350
01313
STACK2
0351
7450
SNA
0352 5357
JMP
GO
0353
121136
AND
MASKR
0354 4063
PUSH
0355 0132
STACK3
Digital-8-10-5
Page 14
13431
5551
JMP
I
G03
0440
5550
ERROR
0441
55513
ERROR
0442 5559
ERROR
13443
5550
ERROR
0444 0000
INGO,
0 IINPUT
ROUTINE
0445
61331
KSF
0446 5245
JMP
.-1
0441 6036
KRB
04513
1450
SNA
IIGNORE
BLANKS
0451
5245
JMP
INGO+l
0452 3140
DCA
T£M5
0453
11413
TAO
TEM5
0454 4331
TYPE
0455
11413
TAO
T£M5
IIGNORE
PARITY
BIT
0456 0352
AND
BIT1
13451
3140
DCA
T£M5
0460 1022
TAO
M4
ITABLE
fOR
IGNORING
0461
3026
DCA
COUNTR
0462 1353
TAD
TABl
0463 3010
DCA
10
0464 1140
TAD
TEM5
0465 1410
TAD
1 10
13466
74513
SNA
lONE
OF
THESE?
0467 5245
JMP
INGO+l
IYES:
FORGET
IT
9470 2026 ISZ
COUNTR
0471
5265
JMP
.-4
13472
1410
TAD
I 10
0473 1650
SNA
CLA
IRUBOUT?
0474 5320
JMP
RUB
IYES
0415
1140
TAD
TEM5
0476 1362
TAD
P200
0477 3436
DCA
I
POINT
0500 1436
TAD
I
POINT
0501
1351
TAD
MINN;
I;?
0502 1650
SNA
eLA
0503 5644
JMP
I
lNGO
IYES:
EXIT
INPUT
ROUTINE
0504 2036 ISZ
POINT
0505 1036
TAD
POINT
0506 1361
TAD
TOHI
GH
10VERFLOW?
0507 1649
SZA
CLA
0519 5245
JMP
INGO+l
INOI
CONTINUE
0511
1341
TAD
CHI
IYES:
TYPE
"10"
9512 4337
TYPE
0513 1359
TAD
CHO
0514 4337
TYPE
0515 4546
CRLF
0516
571
7
JMP
1
..
+1
ISTART
OVER
AGAIN
0517 0200
BEGIN
0520 4164
RUB,
DECR
IRUBOUT
FOUND
Digital-8-1O-S
Page 15
0521
1036
TAD
POINT
IDECREMENT
POINTER
0522 7040
CMA
0523 1135
TAD
ACON
IUNDER
FLOW?
13524
7650
SNA
CLA
0525 5551
ERRORl
IYES
0526 1436
TAD
I
POINT
INO-TYPE
ERASED
0527 4337
TYPE
ICHARACTER
0530 5245
JMP
INGO+l
ICONTINUE
0531
0000
PCRLF,
0
ITYPE
CR-LF
0532 1345
TAD
CR
0533 4337
TYPE
0534 1346
TAD
LF
0535 4337
TYPE
0536 5731
J~P
I
PCRLF
TYPE=JMS
• ITYPE
SUUBROUTIN£
0537
0~00
"
0540 6041
TSF
0541
5340
JI1P
.-1
0542
6046
TLS
0543 7200
CLA
0544 5737
EXIT
TYPE
0545 0215
CR,
0215
0546 0212 LF, 0212
0547 0311 CHI, 311
0550 0317
CHO,
317
0551
7505
HI
NNt,
-273
0552 0177 BIT7, 0177
0553 0553
TAB1,
•
IIGNORE
TABLE
0554 7740
-40
ISPACE
0555
01326
40-12
ILINE
FEED
0556 7775
12-15
ICARRIAGE
RETURN
13557
0004
15-11
ITAB
0560 7612
11-177
IRUBOUT
0561
44"5
TOHI
GH,
-4(~0-INTAB
0562 13200
P2
00,
13200
0563 1375
ERR1,
TA;)
TCON2
0564 1374
ERR,
TAD
lCONl
0565
301~
DCA
10
0566 1410
TAD
I 1
~
0567 7450
SNA
0572 5773
JMP
I
xeo
0571
4337 TYPE
13572
5366
J~lP
.-4
0573 1150
XGO,
OP£ND+3
0574 1476
TCON!
, PTAB1-l
0575 0010
TCON2,
PTAB2-PTABl
Digita!-8-10-S
Page 16
IPART
II
ITYPE
TEST ROUTINE
ITEST
SYMBOLS
OR
OPERATORS
IRETURN
TO
CALL+l
IF
+ -
,
I
CALL+2
IF
I,*,f,=
I CALL+3
IF
<,
OR
FNC
I CALL+4
IF
),
;
/ CALL+5
IF
DIGIT
/
CALL+6
IF
•
OR
E
*600
0600
0000
TSTCSE. 0
0601 1.366
TAD
SADTAB
0602
J010
DCA
10
0603
1020
TAD
M2
0604
4320
Jf1S
COMPAR
0605
5220
JMP DCDEI
0606
2200
ISZ
TSTCSE
0607
7200
CLA
0610
1022
TAD
M4
0611
4320
JMS
COMPAR
0612
5223
JMP
DCDE2
0613
2200
ISZ
TSTCSE
0614
1410
TAD
I
10
0615
7640
SZA
CLA
0616
5226
JMP
TRYSYM
0617
5334
JMP
EXITl+2
0620
1026
DCDEl,
TAD
COUNTR
0621
1343
TAD
TABLI
0622
5332
JMP
EXITI
0623
1026
DCDE2,
TAD
COUNTR
0624
1346
TAD
TABL2
0625
5332
JMP
EXITI
0626
1023
TRYSYM,
TAD
M7
0627
3026
DCA
COUNTR
0630
1367
TAD
FNTAB
0631
3011
DCA
1 1
0632
7240
TRYAGN,
CLA
CMA
0633
1036
TAD
POI
NT
0634
3012
DCA
12
0635
1021
TAD
M3
0636
3027
DCA
COUNTI
0637
1411
TAD
I
11
0640
1412
TAD
I
12
0641
7640
SZA
CLA
0642
5256
JMP
NOGO
0643
2027
ISZ
COUNTI
Digita 1-8-10-5
Page 17
10644
52.5,
JMP
.-5
0645 1024
TAD
P2
0G46
1036
TAD
POI
NT
0(;47
3036
DCA
POI
NT
0650
2026
ISZ
COUNTR
0651
7410
SKP
::)652
577~
JMP
I
FORMAT
53 1026
TAD
COUNTR
0654 1353
TAD
TABU
0655 5332
JMP
EXITI
0656 1027
NOGO,
TAD
COUNTI
0657 7040
CMA
0660 1011
TAD
11
0661
3011
DCA
11
0662
2026
ISZ
COUNTR
0663 5232
JMP
TRYAGN
0664 2200 ISZ
TSTCSE
"665 1020
TAD
M2
0666 4320
JMS
COMPAR
0667 5331
JMP
DCDE3
0610 2200 ISZ
TSTCSE
0611
1410
TAD
1 10
0612 1500
SMA
0613 5300
JMP
.+5
0614 1410
TAD
I 10
0675 1110
SPA
CLA
0676 5301
J!tIP
.+3
0677 5600
JMP
1
TSTCSE
0700 2010 ISZ 10
0101
2200 ISZ
TSTCSE
0102 1200
CLA
0103 1021
TAD
M3
0104 4320
JlfJS
COMPAR
0705 5600
JMP
1
TSTCSE
0106 1410
TAD
I 10
01'J1 1450
SNA
071'~
5560
JMP
I
LEFT
0111
1410
TAD
I
10
0112 7450
SNA
0713 5561
JMP
I
RIGHT
0114 1410
TAD
I
10
0115 1640
5ZA
CLA
13116
5550
ERROR
0111 5562
JMP
I
RGO
0120 0000
COMPAR,
13
/COMPARE
SUBROUTINE
0121
3026
DCA
COUNTR
0122 1436
TAD
1
POINT
0723 1410
TAD
I
10
Digital-8-10-S
Page 18
~724
7450
SNA
0725 5720
JMP
I
COMPAR
0726 2026 ISZ
COUNTR
0727 5323
JMP
.-4
0750 2320 ISZ
COMPAR
0751 5720
JMP
1
COMPAR
0732 3342
EXI
Tl,
DCA
TEM4
IPUT
PRIORITY
0733 1742
TAD
I
TEM4
lIN
STACK
VALUE
0734
31330
DCA
STKVAl.
0735 2036
ISZ
POINT
IUPDATE
CHARACTER
POINTER
07.36
5600
Jt1P
1
TSTCSE
0737 1026
DCDE3
,
TAD
COUNTR
0740 1363
TAD
TABL4
0741
5332
J~P
EXITI
0742
13000
TEM4.
0
0743 0746
TABL1,
.+3
0744
04131
0401
1+
0745 0402 0402
1-
0746 0753
TABL2,
.+5
0747
13504
0504 I I
0750 0503 0503 I *
0751
0722 0722 I t
13752
0106 0106 I ;
0753
13763
TABL3,
.+10
13754
0611 0611
lABS
0755 0612 0612
ISQT
0756 0613 0613
ISIN
13757
0614 0614
ICOS
0760
13615
0615
IATN
0761
13617
0617
ILOG
13762
0616 0616 IEXP
0763 0766
TABL4.
.+3
0764
01013
01013
I )
0765 7777 7777 I ;
13766
1425
SADTAB,
DCTAB-l
0767 1446
FNTAB,
TABFN-l
0770 1246
FORMAT,
FORMI!
13771
013013
ABSF,
0
0772
HM5
TAD
45
13775
71013
Sl1A
CLA
0774 5711
JMP
1
ABSF
13775
4777
JMS
1
.+2
0776 5771
JMP
1
ABSF
13777
601313
6131313
Digital-a-l0-S
Page
19
*6545
6545
1371)
ABSF
*6554
6554
6000
60kH3
ISET
UP
NEGATE
*113"0
IEXECUTION
llZ00
1
~32
EXCTE,
TAD
SCON2
IPOP
UP
REST
OF
1
tl0l
704~
CMA
ISTACK
AND
PUT
1002 1 130
TAD
STACK2
1~"3
7650
SNA
CLA
ION
OPERATE
STACK
}iJ04
5215
Jr~?
OPGO
1005 4104
POP
1006
0130
STACK2
11307 7450
SNA
HH2l
5550
ERROR
UBI
0136
AND
MASKR
1012 4063
PUSH
112113
~132
STACK3
1~14
520~
JMP
EXCTE
1015
7040
OPGO,
Cr~A
HH6
401')3
PUSH
IPUT
TERMINATOR
ON
1017
0132
STACK3
IOPERATE
STACK
H~2QJ
1033
TAD
SCON3
1021
3132
DC4
STACK3
1~22
1344
TAD
SCON4
12123
3343
DCA
STACK4
11324
H'31
TAD
SCONI
1025
3126
DCA
STACKI
1026
4545
CRLF
1027
21·32
OPG01,
lSZ:
514CK3
1030
1532
TAD
I
STACK3
1031
7510
SPA
ITERMINATOR?
1032
5345 J!';P
OPEND
IYES
1033
31M~
DCA
TEM5
1034
1140
TAD
TEM5
1035
1144
TAD
M5
1036
7510
SPA
1037 5264 JNP OPRI
1040
7450
SNA
lU41
53C35
J11?
LOAD
l'Z42
113213
TA
0
112
1043
7510
SPA
1044
5321
JI1P
OUTPUT
1~45
7450
SNA
1046
5156
Jt~P
1
FORM
1041
1,353 TAD
M12
la50
1500
SMA
Digitc r
-8-10-5
Po
t
/:!
20
1051
5357
JM?
EX?
1"52
1.354
TAD
Pil
1053 1450
SNA
1054 5331
Jf1?
STORE
le55
3260
DCA
OP2PT
1~56
44131
ElM
1051 5143
FGET
I
STACK'"
1
~j60
0000 OP2PT, 0 /SINGLE
OPERAND
1~61
6743
FPUT
I
STACK4
1062 0000
FEXT
1063 5221
JMP
OPGOI
IDOUBLE
OPERAND
COMMANDS
1064 1200 OPRI.
Cl.A
1065 1140
TAD
TEM5
1066 1112
CLL
RTR
1061 7012
RTR
1070 1355
TAD
CON
1071
3277
DCA
OPI
PT
1012 1343
TAD
STACK4
1013 1021
TAD
(13
1014 3342
DCA
STACK
1015 4407
ElM
1076 5742
FGET
I
STACK
1017 0000 OP1PT, "
1100 6142
'"PUT
I
STACK
1101
00""
FEXT
1102
1342
TAD
STACK
1103 :S343
DCA
STACK4
1104 5227
JMP
OPGOI
ILOAD
STACK
11
05
7200
LOAD,
CLA
11
06
H125
TAD
P3
1107 1343
TAD
STACK4
1110 3343
DCA
STACK4
111
1 4401
ElM
1112 5526
FGET
1
STACK1
1113 6143
FPUT
I
STACK4
1114
"000
FEXT
1115
1025
TAD
P3
l116 1126
TAD
STACKI
111
7
3126
DCA
STACKl
1120 5227
JMP
OPGOI
IOUTPUT
TOP
OF
STACK
1121
7200
OUTPUT,
CLA
1122 4407
ElM
1123 5743
FGET
I
STACK4
1124
0000
FEXT
Digita 1-8-1
0-5
Page
21
1125
it
~
i TAD
SAC1
1126
4406
OUT
1 '
,:~
1
4546
CRL;
11
30
5227
JMP OPGOI
1131
1341
STORE. TAD
M6
1132
1126
TAD STACK1
\33
3J42
DCA
STACK
1~4
4401
ElM
035
5143
FGET I STACK4
1136
6142
F?UT I STACK
1137
0000
FEXT
1140
5221
JMP
OPG01
1141
1112
M6,
-6
1142
0000
STACK. 0
1143
0000
STACK4,
"
1144
2366
SCON4.
PUSH4-3
1145
7200
OPEND,
eLA
1146
2163
ISZ
OCOUNT
1141
5220
JMP OPG0+3
1150
4546
CRLF
1151
5752
JMP I .+1
1152
0203
BEGIN+3
1153
7766
M12,
-12
1154
0011
Pll,
11
1155
0743
CON,
AND
I STACK4
1156
1400
FORM,
FOR
MOP
IEXPONENTIATE
1157
7200
EXP,
CLA
1160
1343
TAD STACK4
1161
1021
TAD
M3
1162
3342
DCA
STACK
1163
4407
ElM
1164
5742
FGET I STACK
1165
0007 0007
1166
3743
FMPY
1 STACK4
1167
0006 0006
1170
6742
FPUT I STACK
1171
0000
FEXT
1112
1342
TAD
STACK
1173
3343
DCA
STACK4
1114
5227
JMP OPGOI
*1200
IHANDLE
)
1200
1144
CRIGHT,
TAD
M5
1201
4364
JMS
SAVE
1202
4104
POP
1203
0130
STACK2
Digital-8-10-5
Page 22
12~4
7450
SNA
1205 5212
JMP
.+5
1206
IiH36
AND
MASKR
12"7 4063
PUSH
1210 0132
STACK3
1211
5200
JMP
CRIGHT
1212 1244
TAD
STOREl
1213 4063
PUSH
1214 0132
STACK3
1215
2036
ISZ
POINT
1216 5370
JMP
EXIT3
lHANDLE
RN
1217 1144
RCOMP,
TAD
M5
1220 4364
JMS
SAVE
1221
3060
DCA
60
1222
2036
ISZ
POINT
1223 4547
TEST
1224 5550
ERROR
1225 5550
ERROR
1.226
5550
ERROR
1227 5550
ERROR
1230 7410
SKP
1231 5550
ERROR
1232 4645
JMS
I
INDIG
IINPUT
INTEGER
1233 7200
CLA
1234 1060
GETSWT
1235 7650
SNA
CLA
1236 5550
ERROR
1237 1046
TAD
46
1240 7041
CMA
lAC
1241
3163
DCA
OCOUNT
1242 4164
DECR
1243 5370
JMP
EXIT3
1244 0010
STORE1,
0010
1245 7000 1 NOlO, 7000
IHANDLE
FOR(X,Y)
1246
1020
FORMIT,
TAD
~2
1241
4364
JMS
SAVE
1250
2036
lSZ
POINT
1251
4547
TEST
1252
5550
ERROR
1253 5550
ERROR
1254 5260
JMP
.+4
1255
5550
ERROR
1256
5550
ERROR
~251
5550
ERROR
1260
11330
TAD
SIl1VAL
1261
1640
SZA
C"
...
A
1262
55513
ERRG'~
Digital-8-10-S
Page
23
1263 4547
TEST
1264
55513
ERROR
1265
55513
ERROR
1266 5550
ERROR
1267
55513
ERROR
1270 5277
JMP
INIT
1271
2026
ISZ
COUNTR
1272
74113
SKP
1273
55513
ERROR
1274
2026
ISZ
COUNTR
1275 5353
JMP
FGO
1276
55513
ERROR
1277
30613
INIT,
DCA
613
1300 4645
JMS
I
INDIG
IINPUT
INTEGER
1301
72013
CLA
1302
11360
GETSWT
1303 7650
SNA
CLA
1304 5550
ERROR
1305 1046
TAD
46
1306 0143
AND
MASKS
15
BIT
1307 1142
TAD
P40
1310 4063
PUSH
1311
01313
STACK2
1312 4164
DECR
1313 4547
TEST
1314
55513
ERROR
1315 5550
ERROR
1316
55513
ERROR
1317 5550
ERROR
1320 5550
ERROR
1321
2036
I
SZ
POINT
1322 2026 ISZ
COUNTR
1323 7410
SKP
1324 5550
ERROR
1325
2026
ISZ
COUNTR
1326 5550
ERROR
1327 4645
JMS
I
INDIG
IINPUT
INTEGER
1330 7200
CLA
1331
1046
TAD
46
1332 0143
AND
MASK5
1333 1142
TAD
P40
1334 4063
PUSH
1335
13130
STACK2
1336 4164
DECR
1337 1363
FEND,
TAD
Fe
ON
1340 4063
PUSH
1341
0130
STACK2
1342 4547
TEST
1343 5550
ERROR
1344 5550
ERROR
Digital-8-10-5
Page 24
1345
5'55C
ERROR
1346
5351.
JMP
.+3
;,347
5S5A
ERROR
\350
5550
ER~OR
\35',
202'5
XSZ
COUNTR
~~OO:;,",
..
~,,"':'
537£i1
JM?
EXIT3
.,.
...
'1.":':"-
J~
\I..,l
;,t-
.:.>
UJ42
FGO.
TAD
P~0
135'"
4eH;',3
PUSH
13~5
0130
STACK2
J351)
11.42
TAD
P4e
1357
A06.3
P!.iSH
·.36~
01,30
S7ACK2
1361
2036
lSZ
POINT
1362
5337
JMP
FEND
131$3
020
7
FCON,
0207
t36L!
0000
SAVE,
t{l
1355
177A
TAD
T PTl
...
1366
3375
;)CA
SPC
1361
576~
.JM?
l SAVE
131~
137:;
EXIT3
8
TAD
SPC
1.3
71
3774
DCA
1
PT~
1372
5713
JM?
-.:
.+~
...
1373
06el
TSTCSE+l
1374
0600
PII,
TSTCSE
1375
00e"
SPC, 0
*l400
IEXEC~J1E
FORMAT
14£0
2132
FORMO?,
ISZ
STACK3
1401 1532
TAO
I
STACK3
]402
3031
DC.A
TEMP
1403
1142
!A~
PJ40
1404
0037
AND
';
E,.,P
1405
1650
S~!J~
CLA
\A06-
555~
E?RO~
1407
114~
TAO
11ASK5
1410
0037
AND
TEM?
~
411
3141
DCA
SAel
l412
213Z
IS::
STACK3
1413
1532
TAD
1
SlACK3
1414
3031
DCA
1'Et:1?
1415
11A2
TAD
?A~
1416
0037
ANO
TEMP
1417
7650
SNA
etA
142~
555~ ERRO~
1421
1143
TAD
r.-te.SK5
l422
0037
AN;;
TE~P
Digital-8-iO-S
Page 25
1423
31362
DCA
62
1424
5625
Jr~p
I .+1
!4?5
1027
OPGOI
IDECODING
TABLE
1426 7525
DCTAB,
-253
127 7776
53-55
,
'\~'0
7521
-257
l~~.~'i
{{HJ05
57-52
1432 7714
52-136
1433 0041
136-75
1434
0025
75-50
1435
7521
-251
1436
7756
51
...
73
1431
013131
13-72
1440
0012
72-60
1441 7473
-305
1442 0031
105-54
1443 7776
54-56
1444 7123
56"133
1445 7776
133-135
1446 01313
135-122
1447
7477
TABFN,
-301
lABS
14513
747b
-302
1451 7455
-323
1452 7455
-323
ISIN
1453
7457
-321
1454 7454
-324
1455 7455
-323
1456
1467
-311
1457 7462
-.516
1460 7475 -3(33
1461 7461
-317
1462 7455
-323
1463 7477
-301
1464 7454
-324
1465 7462
-316
1466 7464
-314
1467 1461
-311
1410 7411
-307
1471
1413
-305
1472
7450
-330
1473
1460
-320
1474 7412
-306
1475 7461
-317
1416
7456
-322
1477
0323
flAB!
,
323
IPRINT
our
TABLE
15013
k'l331
331
1501
0316
316
),502
0324
324
Digital-8-10-5
Page 26
1503 0301 301
1504 0330 330
1505 0277
211
1506 0000 000
1501 0323
PTAB2,
323
1510 0324 324
1511
0301 301
1512 0303 303
1513 0313 313
1514 0240 240
1515 0305 305
1516 0322
322
1517 0322 322
1520 0311 317
1521
0322 322
1522 0000 000
1523 0000
PUSH1,
0
*.+401
2125 0000
PUSH2
,
*.+121
2247 0000
PUSH3,
0
*.+121
2371 0000
PUSH4,
0
*.+4131
2713 0000 I
NTAB,
0
*.+4130
XXXXXX,
IINPUT
SETUP
*7144
7144 1436
TAD
I
POINT
7145 2036 ISZ
POINT
7146 7000
NOP
*7150
7150 7000
NOP
7151
7000
NOP
ABSF
0771
AeON
0135
ADl
0034
AD2
0035
BEGI N
0200
BIT7
9552
CHI
0547
CHO
0550
CLEFT
0432
COMPAR
0720
CON
1155
CONVRT
0243
COUNTR
0026
COUNTt
0027
CR
0545
CRIGHT
1290
CRLF
4546
DCDEI
9620
DCDE2
0623
DCDE3
13737
DCTAB
1426
DECR
4164
EI
M
44137
ERR
0564
ERROR
5559
ERRORl
5551
ERRI
0563
EXCTE
1090
EXEC
5553
EXIT
14013
EXI
Tl
0732
EXI13
1370
EXP
1157
FCON
1363
FEND
1337
FGO
1353
FNTAB
9767
FORM
1156
FOR
MA
1
"770
FORMIT
1246
FOR
MOP
14130
GETSGN
11345
GETSWT
1060
GO
9357
GOI
9155
G02
0156
G03 13157
IN
4405
INCON
0366
INDIG
1245
INGO
0444
INI
T
1271
INPUT
4554
Digital-8-10-$
Page 27
INTAB
2773
tNZ
~307
LEfT
016,O
LF
0546
LOAD
1105
,"SKL
0;37
~SKR
0136
MASK5
0143
HI
NN:
~551
Mt0e'
0134
~l
~
1153
ft2
0C2£1
~
~0Z1
M4
0022
M5
~144
MS
1141
MISra
e"
~5
M1
0023
.NEG
0361
NEGATE
0273
NEG!
0240
NOGO
~656
OCOUNT
(:,l~J
OPE~Q
~,lA5
OPGO
1-015
OFGOl
)
027
O?Rl
1064
OPt
P!
~
011
OP2Pl
1060
OUT
A406
OllTP(JI
1121
PeRLF 0531
POI
NT
0036
POLGO
0422
POLISH
~'52
POLS
0400
POLl
0275
POL2
0311
POL3
0323
PotA
~343
POL4T
"'341
pop
4104
PTABI
1477
PTAB2 t
507
PTl
1374
PUSH
4063
PUSHI t
523
PIJSH2
2125
PUSH3
2247
PtlSH4
2371
Pil
1154
DigHcl-8-10-S
Page 28
Digital-8-10-5
Page
29
P2
0ic:l~:
P200
e56,
P3
0025
P40
e142
ReOM?
1217
RGO
0162
IGHT
0161
0520
;;ACt 0141
SADTAB
0766
s\VE 1364
SCON!
e031
SCON2
0032
SCON3
0033
SCON4
1144
SPC
1375
STACK
1142
STACK!
e126
STACK2
0130
STACK3
0132
STACK4
1143
START
0227
STKVAL
0030
STORE
1131
STORE!
1244
TABFN
1447
TABtl 0743
TABL2
0746
TABL3
0753
TABL4
0763
TABt
0553
TCON!
0574
TCON2
0575
TEMP
0037
TEM2
0431
TEM4
0742
TEM5
0140
TEST
4547
TOHIGH
0561
TRYAGN
0632
TRYSYM
0626
TSTCSE
0600
TYPE
4.337
XGO
0573
XXXXXX
3374
12.
REFERENCES
12. 1 Other
Library
Programs
See Digital-S-S-S.
Digital-S-l0-S
Page 30

Navigation menu