IBM 1130 User Manual page 528

Section Subsections Page
70 10
I
30
16
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
MULT/PLY
rwo
4-..o/G/T
/vVA4Bek~'-3J
SH'O~NG-
4N ERRoR
cO/V'v/
T/oN
BEFORE
X = Extraneous Data
IWORK: Will remain unchanged
1 2 3 4 5
6
7 8 9 10 11
.f :f d
I X
X
X X >( X
X
KWO R K: Will contain result
1 2 3 4
5
6 7 8 9
10 11 12 13
X
X
2-
2
2 2
X
X
X
X
X
X
x..
-.
l
CODING
§AD~ND T .
AUGEND, THEN
SU~
SUBTRAHEND
MINUEND, THEN SUM
MULTIPLIER
MULTIPLICAND,
THEN PRODUCT
DIVISOR
..
..
DIVIDEND,
NER
=
~ THEN QUOT AND REM
A
A
r
\r . ,
CALLA4PY
(IWORK
I
4
/~"(fYO,.(~/.3
C;
NER)
,--,--,
,--,~,
\
J\..
J
./
y
,
-
AFTER
/
r
- -
J
NER
= GO
IWORK: Unchanged
1 2 3
4
5
6
7
8 9
10 11
~
KWORK: Result
I /
I
/ X X X
X X /\
X
1 2 3 4 5 6 7
8
9
10 11 12 13
.X X
2
? 2 2
X X
,~
,x
.~
X
.X
<-
COMMENTS
NER IS
SET TO G 8£CAU ..... S'E
ThERe
WAS NOT E/VOt../GP ROOk? T?i EXTc/ ..
'~
Tl-le
PRC}DUC:T
4REA 4PLAC£S
TO
--he
/
..
LE~T
Figure 70, 13,