; ***************************************************************************
; 名称:8位乘以8位
; 被乘数: R_TEMP1
; 乘数 : R_TEMP2
; 乘积 : R_TEMP0 R_TEMP1(H--L)
; 其它 : R_TEMP3
; ***************************************************************************
F8MUL8:
clrr R_TEMP0
movia 8
movar R_TEMP3
MULA2:
clrwdt
bcr Status,C_Status_C_Bit
btrss R_TEMP1,0
lgoto MULA3
movr R_TEMP2,0
addar R_TEMP0,1
MULA3:
rrr R_TEMP0,1
rrr R_TEMP1,1
decrsz R_TEMP3,1
lgoto MULA2
ret