Table of Contents
Advertisement
Section
Subsections
Page
70
10
I
30
13
1130 COMMERCIAL SUBROUTINES - DECIMAL ARITHMETIC WORKSHEET
DESCRIPTION
SU!3TRACT A
AlEGATIVE
,3-LJ/G/T
F/EL.o
FROM
,4
POS/T/VE 4-£J/C7/T
;,C/ELO
BEFORE
X
=
Extraneous Data
0988
- (-45)
IWORK: Will remain unchanged
1033
1
2
3
4
5
6
7
8
9
10 11
X
4-
15
X X
X
KWORK: Will contain result
X-
X
><
X
0
1
2
3
4
5
6
7
8
9
10
11
12 13
-
$/S/NCORE
X
X
X X
0 9
8 8
X
X X
X
X
AS-(O
~
,
"
•
CODING
I:==:
ADDEND
:~
AUGEND, THEN SUM==:!
SUBTRAHEND
MINUEND, THEN SUM
NER
==
I
U'
I
A
A
I
)r
)
CALL
Sc:/b' (IWOIq,~,
G, 8
,f{yt/u
i
PK,..:5
,8
,NER)
"----
Y
),
Y
)
~
,
AFTER
/
,
- -
NER
=
0
IWORK:
1
2
3
4
5
6
7
8
9
10 11
-
KWORK: Result
-
X
X
X X
X 0
4
5
X
X
X
1
2
3
4
5
6
7
8
9
10 11
12
13
X
>(
X X
.1
0 3
3
X
,xc
X- X
X
COMMENTS
Figure 70, 10,
Advertisement
Chapters
Table of Contents
