Add - Control Data Corporation 3300 Reference Manual

4.7.2
ADD
4-18
The ADD statement causes two or more numeric operands to be summed and
the result to be stored.
Format 1:
ADD
1
identifier-It
- - literal-I
~
[ 1 identifier-2l] . . .
'literal-2
,~
... ldentifler-n [ROUNDED]
[; ON SIZE ERROR imperative-statement]
Values of operands are added together and the sum
is
stored in the location
of the last operand specified. This operand may not be a literal.
Format 2:
ADD
1
identifier-It
- - literal-I
~
[ 1
identifier-2l]
'literal-2
~
TO identifier-m [ROUNDED]
[, identifier-n [ROUNDED]] ...
[; ON SIZE ERROR imperative-statement]
Values of operands preceding the word TO are added together, then the sum
is added to the current value in each identifier-m, identifier-n, ... , and the
result is stored in each identifier-m, identifier-n, ... , respectively.
Format 3:
ADD
1
identifier-It
1
identifier-2 {
- - literal-I
~'
literal-2
~
l
r
1
identifier":'3
l ]
GIVING
'literal-3
~
. ..
~-=-=;..;.;::;,.
identifier-m [ROUNDED] [identifier-n [ROUNDED]]
[; ON SIZE ERROR imperative-statement]
Values of operands preceding the word GIVING are added together, then the
sum is stored as the new value of identifier-m, identifier-n, ...
Format
4:
ADD
1
CORRESPONDINGI identifier-I TO identifier-2 [ROUNDED]
- - CORR
[; ON SIZE ERROR imperative-statement]
Data items in identifier-I are added to and stored in corresponding data items
in identifier-2.
In Formats
1,
2, and 3 each identifier refers to an elementary numeric item;
identifiers to the right of GIVING may refer to data items containing editing
symbols. Each literal must be a numeric literal.
60229400