二字节乘以二字节汇编程序

; ***************************************************************************
; 名称: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