IBM 1130 User Manual page 520

Section
Subsections
Page
70 10
I
30 08
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION-ALJ.!)/T/CJA/
c:JF
rwo
g-LJ/G/T
F/fLDS
-St/M 2/0£5
/VCJT
F/T /N
ALLOTTE.£)
AREA
BEFORE
X
=
Extraneous Data
50
75
IWORK: Will remain unchanged
1 2 3 4 5 6
7 8 9 10 11
X
X X
7 .5
X
X
><
X
X
><
KWORK: Will contain result
1 2 3 4 5 6 7 8 9
10 11 12 13
X
S
0
X
X
><
X
><
X X X >( X
~
,
"-
.-
CODING :t
t = : ; A D D E N D
AUGEND. THEN SUM-==:!
SUBTRAHEND
MINUEND, THEN SUM
NER
=
[QJ
A A
I
V ,
C ALL
4P...o
(IWO,.eX
, 4,
5,KWt?R/<,
2,..3
,NER)
,
)\.
J
./
y
,
.1..
AFTER
/
J
- -
J
NER
=
.3
IWORK:
1 2 3 4 5 6 7 8 9 10 11
~
7
15
)(
KWORK: Result
X X
X
X
X
X
)(
X
1 2 3 4
5 6 7 8 9 10 11 12 13
X
9
9
X X
X X X
X
X X X
.x
COMMENTS
- T,HE SU/W 4REA /5
~/LLE.o
W/T#
S~
-NER /S
SET
TeJ T#'c
I/~Lt/E O~
T#£
C;;~h
PARA/wErcR
Figure 70.5.