IBM 1130 User Manual page 530

Section Subsections Page
70 10
I
30
18
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
DIVIOE
0/5
.By
008
BEFORE
X
=
Extraneous Data
IWORK: Will remain unchanged
1 2
3
4 5
6 7 8 9 10 11
IX
KWORK: Will contain result
0
0 8
X
X
X
X
X
X
X
1:1~1:1;1:1;17181911lTT31
4
I
CODING
gAD:ND
I
AUGEND, THEN S§
SUBTRAHEND
-
MINUEND, THEN SUM
MULTIPLIER
..
MULTIPLICAND,
THEN PRODUCT
DIVISOR
DIVIDEND,
NER
=
[QJ
-
THEN QUOT AND REM
A
A
f )( )
CALL
DIV
( rWO.eK
,_I_,~,
KWO.eK
,L,.£...,NER)
\
)\..
)
/ '
y
,
.
AFTER
/
0
- -
J
NER
=
IWORK: Unchanged
1
2 3 4
5
6 7 8 9 10 11
,
KWORK: Result
0 0 6
X
X
X X X X
X
X
1 2 3 4
5
6 7 8 9 10 11 12
13
'---y--/
0 0 / 0
~
0 7
~~.
COMMENTS
~
-
RESULT/.5'/2~
~
- 8
TH€
KWO~K
FIELD
B£C~USE
TH€ /JIVI.50R IS
~
OIGITS WIOBj
H/iS 8EliN G"XTENDED
a
POSITIONS TO TI-IG
LEF0
/IN£)
THE ~EM,4IN[)£R
OCCUPI£S THE
RI6)-/TMO.sT ~ DIGITS.
Q
Figure 70, is,