IBM 1130 User Manual page 527

Section
Subsections Page
70 10
I
30 15
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
MULTIPLY TWO 4- DIGIT NUM8ERS
1111
*"
2222
=
02.46:;, 8(;; 42-
BEFORE
X
=
Extraneous Data
IWOR K: Will remain unchanged
1 2 3 4 5 6
7
8
9 10 11
1 1 1 1
X
X
X X X X X
KWORK: Will contain result
1 2 3 4 5
6
7 8
9
10 11 12 13
X X X X 2
2 2 2
X
X X X X
~
I
CODING
§AD~END
I
-
AUGEND, THEN SUM-=::::::j
SUBTRAHEND
..
-
MINUEND, THEN SUM
-
MULTIPLIER
..
MULTIPLICAND,:=:!
THEN PRODUCT
DIVISOR
DIVIDEND,
NER
=~ THEN QUOT AND REM
A
A
I
)r )
CALL
MPY
( IWORK ,L,~,KWORI(, S ,~,NER)
\
JI.. )
Y
,
. / '
AFTER
/
,
- -
J
NER
=
0
IWORK: Unchanged
1 2
3 4 5 6 7 8
9
10 11
~
/
KWORK: Result
/ /
/ X X X X X
X X
1 2 3 4 5 6 7 8 9 10 11
12 13
0
2
4- ~
8
~ 4 2
X X X X
X
COMMENTS NOTE TH.47
THE PRODUCT t4REA (KWORK)
Ht4S BEEN £XT£ND£"D
4 PL. 4CES TO TH£ LEFT.
Figure 70,12.