IBM 1130 User Manual page 515

Section
Subsections Page
70
10
I
30 03
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
BEFORE
X
=
Extraneous Data
IWORK: Will remain unchanged
11.1213141516171819110 1111
IK~PKI
:rT;r:r
18191101111121131
~
I
"
•
CODING ~ADDEND
AUGEND, THEN
SUM~
SUBTRAHEND
.. -
MINUEND, THEN SUM
MULTIPLIER
-
MUl TlPLieAND':==:I
THEN PRODUCT
DIVISOR
-
DIVIDEND,
NER
=D
THEN QUOT AND REM
A J..
,
V
,
CALL
(
NER)
,--,--,
,--, -r-'
,
)1.. )
. /
y
,
/
r
AFTER
- -
NER
=
IWORK: Unchanged
J
I
1
1213141516171819110 111
I
t
KWORK: Result
I
1
12131415161718191
1
11131
COMMENTS