IBM 1130 User Manual page 526

Section
Subsections Page
70 10
I
30 14
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
SUBTRACT A
N£GATIV~
2-
DIGIT FIELD
FROM
A
PO.5/TIV§ 2-D/617 FI£LD.RESULT700LAe-G!
BEFORE
X
=
Extraneous Data
88
(-)- (08
IWORK: Will remain unchanged
1 2 3 4 5 6
7
8
9 10 11
X X
)( 0
8 X X X X X
X
KWORK: Will contain result
1
2
3
4 5 6
7 8 9 10 11 12 13
X X
B 8 X X
X X X X X X
X
~
,
"
I
CODING
I:==:
ADDEND
:1:
AUGEND, THEN SUM-=:j
SUBTRAHEND
MINUEND, THEN SUM
NER
=
[QJ
A. A.
I
\{
,
CALL
..sU8 ( IWOEK
,L,~,KWORK
~
4-
NER)
,-,-,
\
)1..
)
/
y
I
AFTER
/
f
- -
NER
=
4
IWORK:
1 2
3
4
5
6
7 8
9 10 11
-
KWORK: Result
t
X X X
~
8 X
X X X X X
1 2 3
4 5
6 7 8 9 10 11 12 13
X X
fj :2 X X X X X X
X
X X
COMMENTS
NOTE"- R'G'...5ULT FIELD FILLED WITH
9$
- NER SET TO
4
Figure 70. 11.