IBM 1130 User Manual page 521

Section
Subsections Page
70 10
I
30 09
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
A£)£)IT/~A/
o"c
TWa "c'/ELOS, N#ERE T#E
,4Z/oENO /s LO/V6ER Th'AN THe A(/C7END
BEFORE
x
=
Extraneous Data 0008
+00680
IWORK: Will remain unchanged
1 2 3 4 5
6 7
8 9
10 11
0
X. X
X
X
KWO R K: Will contain result
~ ~ t3 0
X
X
1 2
3
4 5 6
7
8 9
10 11 12 13
(:)
a
C)
8 X X X
x
x x x x x
"
,
,
•
CODING
t:=-:
ADDEND
:t
AUGEND, THEN SUM-=:::I
SUBTRAHEND
MINUEND, THEN SUM
NER
=
[g
A A
I )( )
CALL
400
(.IWORK
,..L,..s
,kPY'''RK,..L,
~
,NER)
\ 1\.
J
./
y
I
AFTER
/
,
- -
NER
=
IWORK:
1 2
3
4 5
6 7
8 9
10 11
0
0 0 8
a x-
x
X
KWORK: Result
t
X X
X
1 2 3 4 5 6 7
8 9 10 11 12 13
0
Cl
0 8
X
X
X
X
X X
X X X
COMMENTS
NOrE- EVEN THOc./G# TNE
RESUL~ ~Ba-,
11/0CLO r / T
/N'
4 ,lJ/6/TS,T#E ALJO
5u8Rour/A/E
)1//L-L MOT AO~
S/NCc
T#/5/.5 ,4 POTENT/ALL Y .2)ANGEROVS
S/7c/AT/ON. NER
/sser
/0
4.
Figure 70. 6.