IBM 1130 User Manual page 529

Section
Subsections Page
70
10
I
30
17
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
DIVIDE 0/3 By 04
BEFORE
X
=
Extraneous Data
IWORK: Will remain unchanged
1 2 3 4 5 6
7
8
·9
10 11
X
X X X X
0
4
X X X X
KWORK: Will contain result
1 2 3 4 5
6
7
8 9
10
11 12 13
X X
0 / 3
X X X X X
X X X
~
I
EAD~ND I
CODING
AUGEND. THEN SUM
===I
SUBTRAHEND
MINUEND, THEN SUM
MUL TIPLIER
--
..
MUL T!PLlCAND'::==:I
-
THEN PRODUCT
DIVISOR
. .
DIVIDEND,
NER
=
@]
THEN QUOT AND REM
A. A.
,
) (
,
CALL
D/V
(IWORK ,~,L,KWO.eK,~, S
,NER)
\ )1-
)
/
y
,
....
AFTER
/
0
- -
NER
=
IWORK: Unchanged
I'
1
2
1
3
1
4
1
5
1
~
I;
1
8
1
9
1' 0
I " I
KWORK: Result
t
I
~ I~
I; I
~
I;
1
6
1
7
1
8
1
9
1'lTl31
'---y--J
~'--y--J
1
J
COMMENTS
~
RE.SULT
IS;31..~
:.
~
"BEC~(/S£ ,1-11:
DIVISOR
/s
g
OIGITS
WID~
Th'G KWO,€K
FIELD f-IAS BeeN EXTENOEO
2
'pOSITIONs 70 THE:
LEf:~
AND THE
R€M/JINOER OCCUPIES THe RIGHTMOST
g
OIGIT..sf'
Figure 70. 14