Intel mcs-48 Microscope & Magnifier User Manual


 
APPLICATION EXAMPLES
8 x 8 MULTIPLY-ASSEMBLED
BY
MCS-48 MACRO ASSEMBLER
SEE
AP-49
I
SIS-II
"CS-48/UPI-41
"ACRO
ASSE"BLER,
Y3
.•
LOC
OBJ
LI
NE
SOURCE
STATE"ENT
I'
In
;·1
"PY8X8:
1-
lSI
"PY8X8:
1-
151
;1
"ULTIPLICAHOI15-8]:'8
1835
BAl8
I-
152
"oy
XA,188
1=
153
;1
COUNT:
-8
8137
BBIB
I'
154
"oy
COUNT.
18
1=
155
;1
REPEAT
I-
15i
"PYBLP:
I-
157
; 2
IF
"UlTIPLICANOII]-B
THEN
BEGIN
8139
1243
1=
158
J8B
"PY8A
I-
15,
: 3
"UlTIPlICANO:'"UlTIPlICAHO/2
813B
2A
I-
Iii
XCH
A,
XA
813C
'7
I-
Iii
ClR
C
8130
i7
I-
li2
RRC
A
Bl3E
2A
I-
li3
XCN
A,
XA
Bl3F
i7
I-
li4
RRC
A
Bl48
EBl'
I'
165
OJ
HZ
COUNT.
"PULP
Bl42
83
I-
Ih
RET
1=
167
: 2
ELSE
I'
168
"PY8A:
I-
I"
:3
nUL T I
PLI
CANOl
15-8]
:
-nUL
T
IPLI
CANDI
15-
81+"ULT
I
PLIER
8843
2A
I'
178
XCH
A,
XA
8844
01
I'
t 71
AOO
A,
IRI
8845
i7
I-
172
RRC
A
884'
2A
I-
173
XCN
A,
XA
8847
67
1=
174
RRC
A
884B
EBl'
I-
175
OJ
NZ
COUNT,
"PULP
884A
83
I'
176
RE
T
I-
177
: 3
nUlTIPllCAHO:="ULTIPLICAHD/2
I-
178
;2
ENOIF
I-
17'
: 2 COUNT:
'COUNT-l
I-
188
:1
UNTIL
COUNT=8
1=
181
:1
END
npY8X8
I'
182
$EJECT
5-27