汇编乘法运算--双字节乘以双字节

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