IBM 1130 User Manual page 532

Section Subsections Page
70 10
I
30 20
r - - - - - - - - - - - - - - - - - - - - - - - - - - - ' - - - - - - - - - - - . - - . - - . - - - - - - - - ,
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
DIV/S/ON
BY
ZERG~
/S
./,i/VAL/D
BEFORE
X
=
Extraneous Data
IWORK: Will remain unchanged
1 2 3 4 5 6 7 8 9 10 11
0
KWORK: Will contain result
0 0 X
X )(
X
X.
X X
)(
1 2 3 4 5 6
7
8 9
10 11 12 13
X
X X
7 0 8
X
X X X
~ X X
. .
I
,~ ~..I
.-
§AD~N"- I
CODING
.....
AUGEND, THEN SUM-==I
SUBTRAHEND
..
MINUEND, THEN SUM
MULTIPLIER
MUL TIPLICAND':::=:1
THEN PRODUCT
DIVISOR
....
...
DIVIDEND,
NER
=
101
THEN QUOT AND REM
A A
,
~r
,
CALL..DIV
(/Wo.Rk
/ 3
!{kvt;R,K
4-
~
NER)
,--,-,-, ,--,--,
\
J\ J
Y ~
../'
AFTER
/
,
- -
NER
=
(p
IWORK: Unchanged
1 2 3 4 5 6 7 8 9 10 11
0
KWORK: Result
~
0 0
X
X
;>( X X
X
X
X
1 2 3 4 5 6 7
8 9 10 11 12 13
0 0 0
7
0 8 X
)<.. X
X
X X X
COMMENTS
- NO J)/V/S/OA! IS PERFO"t?MED
-NER
/5
2>cT
;0 cP
Figure 70.17.