;
; Multiply W by MpyDiv1
; Return product in MpyDiv2
;
Mpy8x8  clrf    MpyDiv2
        clrf    Count
        bsf     Count,3
mpy1    rlf     MpyDiv2,1
        bcf     MpyDiv2,0
        btfsc   MpyDiv1,7
        addwf   MpyDiv2,1
        rlf     MpyDiv1,1
        decfsz  Count,1
        goto    mpy1
        retlw   0
        ;
