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