IBM 1130 User Manual page 519

Section
Subsections Page
70 10
I
30 07
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
ADDI//OA/
o.".c
A
.:f-D/G/T
F/CLLJ
Tc:JA
S-D/6/T
~/.EL~ BOTHPO.~.5/
T/Vc
BEFORE
X
=
Extraneous Data
00077
/
000
78
IWORK: Will remain unchanged
1 2
3
4 5
6 7
8
9
10 '11
X
><
X X
1
X
X
X
>< X X
KWORK: Will contain result
1 2 3 4 5
6
7
8 9
10 11 12 13
t)
0 0
7
7
)(
><
>< X
X X
X X
~
,
"
I
CODING
t = : A D D E N D
:~
AUGEND, THEN SUM==:!
SUBTRAHEND
MINUEND, THEN SUM
NER
=
@]
A A
I ,( ,
CALLAO£>
(IWORK ,
..5 ,
.5 ,KIYORk
,~.
f,
NER )
l
Jl
)
Y
;
. / '
~
AFTER
/
I
- -
NER
=
0
IWORK:
J
1 2 3 4 5
6 7 8
9 10 11
*
1
KWORK: Result
X
X X X
/
X
X
><
X X
1 2 3 4 5 6 7
8 9
10 11
12 13
a
0 0 7 13
X
x
x
X-
x
)<.
x
><
COMMENTS
Figure 70.4.