; ***************************************************************************
; 名称:8位乘以8位
; 被乘数: xtmp2(H--L)
; 乘数 : xtmp3(H--L)
; 乘积 : xtmp1 xtmp2(H--L)
; 其它 : xtmp4
; ***************************************************************************
F8MUL8:
clrr xtmp1
movia 8
movar xtmp4
MULA2:
clrwdt
bclr status,c
jbts1 xtmp2,0
goto MULA3
movr xtmp3,0
addar xtmp1,1
MULA3:
rrr xtmp1,1
rrr xtmp2,1
djzr xtmp4,R
goto MULA2
return