IBM 1130 User Manual page 531

Section
Subsections
Page
70
10
I
30 19
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
DIVIDE A NEGA71VE NUMBER 8Y.4
of-
POSITIVE NUM8£R-S/2
=-2-~2
OR-3
r2
BEFORE
X
=
Extraneous Data
IWORK: Will remain unchanged
1 2
3 4
5 6
7
8
9 10 11
0
2 X X
X X
X X X X X
KWORK: Will contain result
I' 121;1~1;161718191'lTl31
..
,
CODING
§ A D ; E N D
I
AUGEND, THEN
SU~
SUBTRAHEND MINUEND, THEN SUM
MULTIPLIER
MUL TIPLICAND,
THEN PRODUCT
DIVISOR
-
..
DIVIDEND,
NER
=
@] THEN QUOT AND REM
A
A.
t
'\(
,
CALL
D/V ( IWORK
I
2
KWOleK
..3
.s
NER)
,--,--, ,--,--,
\
)"
)
Y
Y
..""
,
.
AFTER
/
I
- -
NER
=
0
IWORK: Unchanged
1 2
3
4 5 6 7 8 9 10 11
~
KWORK: Result
0
2
X X
X
X
X X X
X
X
I~I~I~I~I; 161718191' l TT31
COMMENTS
- THE SIGN
I~ CAR~/E"D
W/TI-I 7HE' QUOT.
Figure 70.16.