IBM 1130 User Manual page 516

Section Subsections Page
70
10
I
30 04
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
AO£)/T/O/v
Or
TWcJ ;-/VE-,L)/6/T ";:/ELDS
BEFORE
x
=
Extraneous Data
OOO~6
00010
IWORK: Will remain unchanged
0OO4B
1 2 3 4 5 6
7
8
9
10 11
/
.3
X
KWORK: Will contain result
(/ 0 0
X
X )( X- X
1
2
3
4 5 6
7
8 9
10 11 12 13
X X X 0
(/ 0
3
0
X
X
.,.' > <..'
),
/>(
~
,
"'
I
CODING
t = : A D D E N D
:~
AUGEND, THEN SUM-=:::j
SUBTRAHEND MINUEND, THEN SUM
NER=lol
A A
CALLALW
I
V ,
(£J1/?1RK
,~,
..5,KWORK;
4,a
,NER)
L -
JI,., )
/ ~
~
AFTER
/
,
- -
J
NER
=
0
IWORK:
1 2 3
4 5 6
7
8
9 10 11
t
() 0 X
KWORK: Result
0 /
3 X X X X
><
1
2
3
4
5 6 7 8 9 10 11
12 13
X
X
><
U 0 0 4
9
X X X
><
X
COMMENTS
NER IS
STILL 0., SO THE
ADDITION
W~S
CORRECT.
Figme 70,1,