Intel MCS48 User Manual page 147

APPLICATION
EXAMPLES
8x8
MULTIPLY-ASSEMBLED BY
MCS-48
MACRO
ASSEMBLER
SEE
AP-49
ISIS-II HCS-48/'UPI-41 MACRO ASSEMBLER.
V3
LOC OBJ SOURCE STATEMENT
8835 BABB
BB37
BBB8
BB39 1243
B83B
2A
BB3C
97
0B3D
67
BB3E
2A
BB3F
67
BB4B EB39
B842 83
BB43 2A
B844
61
BB4S
67
B846
2A
BB4? 67
BB48 EB39
1
=
149
) 1
MPY8X8;
1«
1SB
HPY8X8
1«
151
; I
NULTIPLICANDC
15-8
J: =B
1
=
152 MOV XA,tB8
1
= 153
; i
COUNT :-8
1
= 154
MOV
COUNT,
»8
1
= 155
;
l
REPEAT
1
= 156 MPV8LP
1
=
157
;2
IF
MULTIPLICANDt
B
J»B
THEN BEGIN
1
= 158 JBB MPY8A
1
= 159
;3
MULTIPLICAND:' MULTIPLICANDS
1
= 16B XCH A,XA
1
=
161 CLR
C
1
=
162 RRC
A
1» 163 XCH
A, XA
I*
164 RRC
A
1
= 165 DJNZ COUNT, MPY8LP
1
= 166 RET
1
= 167
;2
ELSE
1
= 168 MPY8A:
1* 169
;3
MULTIPLICANDt 15-8] :=MULTIPLI
Is 17B XCH
A, XA
Is
171
ADD A,BR1
la 172 RRC
A
Is 173
XCH
A,
XA
Is 174 RRC
A
Is
175
DJNZ
COUNT, MPY8LP
Is 176 RET
1
= 177
)3
MULTIPLICAND: =MULTI
PL
ICAND/2
1
= 178
)2
ENDIF
I
a 179
;2
COUNT: =COUNT-l
la 188
; l
UNTIL COUNT*
B
Is 181
; l
END
MPY8X8
la 182
JEJECT
5-27