IBM 1130 User Manual page 522

Section Subsections
Page
70 10
J
30
10
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
SUBTRACT ONE 5-.0/6//
F/ELO FRO/W
ANOTHER 5-DIG/T
F/ELD
BEFORE
X
=
Extraneous Data
000/4
-000/8
IWORK: Will remain unchanged
-OOOO¢
1 2
3
4
5
6
7
8
9 10 11
X
0
8
KWORK: Will contain result
)(
X X
0 C;
/
X )(
1 2 3 4 5 6 7
8 9
10 11 12 13
X
X X X >< X
)(
x:
0 0 0
/
4
a.
I
"
1
CODING
:~
t = : A O O E N O
AUGEND, THEN SUM-==:!
SUBTRAHEND
MINUEND, THEN SUM
NER
=~
" A-
I )( )
CALL
SUB (ZWORX
, S,
9
,KNV'-PK, 9,
/./!
,NER)
"
/
)\.
~
)
AFTER
/
,
- -
J
NER=
0
IWORK:
1 2 3 4
5
6
7
8 9 10 11
~
8
KWORK: Result
X ><
)(
X
0
0
t:J / X X
1 2 3
4
5
6 7
8 9 10 11 12 13
-
X X X
X
X
X
)(
)(
0 0
0 0
4-
COMMENTS
Figure 70. 7.