APPLICATION EXAMPLES
8 x 8 MULTIPLY-ASSEMBLED
BY
MCS-48 MACRO ASSEMBLER
SEE
AP-49
ISIS-II
"CS-48/UPI-41
"ACRO
ASSE"8LER, Y3.B
LOC
08J
LI
NE
.
III
I'
112
2'
113
2-
114
2'
115
2-
116
2'
117
2-
118
2·
I"
2'
128
2·
121
2'
122
2-
123
2-
124
2-
125
2-
126
2-
127
2-
128
2-
12'
2-
131
2'
131
2-
132
2-
133
2-
134
2-
135
2-
136
2-
137
2-
138
2-
139
2-
141
2-
141
2-
142
2-
143
2-
144
2-
145
1-
146
1-
147
1-
148
SOURCE
STATEMENT
SItICLUDE('FI'"PYS)
SI
NClUDE(:
FI:
"PYS.
PDl)
;
••••••••••••••
**
••••••••••
**
••••••••
*******.**
••••
**
••••••••••••••••••••••••••
;.
.
I.
"PYSXS
I.
j*============================================================================*
I.
I.
THIS
UTiliTY
PROVIDES
AN
S
8Y
e
UNSIGNED
"UlTIPLY
I.
AT
ENTRY'
I.
A •
LOWER
EIGHT
SITS
OF
DESTINATION
OPERAND
"
KA-
~ON'T
CARE
)'
RI'
POINTER
TO
SOURCE
OPERAHO
<"ULTIPLIER)
IN
IHTERNAL
"E"EORY
,.
"
"
"
I.
"
AT
EKIT'
A •
LOWER
EIGHT
81TS
OF
RESULT
XA-
UPPER
EIGHT
81TS
OF
RESULT
C •
SET
IF
OVERFlOW
elSE
CLEARED
•
•
;
.........................................................•.......•.........•..
II
"PY8Ke:
1I
"ULTIPLICAHO[15-SI:=8
II
COUNT:-9
II
REPEAT
12
IF
"ULTIPlICAHO[8l-.
THEH
BEGIH
13
"UlTIPlICANO""ULTIPLICAHD/2
12
ELSE
13
"UlTIPLlCAHO[
15-9l:'"UlTIPLlCAHO[
15-9l+"ULTIPLlER
13
"UlTIPLICAHO'="ULTIPlICAHO/2
12
ENDIF
12
COUHT:-COUNT-I
11
UHTI
l COUHT-.
I I
EHO
"PYaK9
fEJECT
5-26