ON 20080901@12:46:41 PM at page:
http://www.piclist.com/microchip/math/mul/index.htm#39690.4780092593
James Newton[JMN-EFP-786] published post 39690.4780092593

<A TITLE="P-75.109.200.247" NAME="39690.4780092593">
</A> 
;As a thank you for all the code, here is a 32x16 bit Mult.<BR>
;Unsigned 32 bit by 16 bit multiplication<BR>
;This routine will take a4:a3:a2:a1*b2:b1 -&gt; a6:a5:a4:a3:a2:a1<BR>
<BR>
mult_32_16:<BR>
		banksel	EECON1<BR>
; Begin rearrange code<BR>
	nop<BR>
	movf	a4,w<BR>
	movwf	a6<BR>
	movf	a3,w<BR>
	movwf	a5<BR>
	movf	a2,w<BR>
	movwf	a4<BR>
	movf	a1,w<BR>
	movwf	a3<BR>
; End rearrange code<BR>
                CLRF    a2          ; clear partial product<BR>
                CLRF    a1<BR>
                MOVF    a6,W<BR>
                MOVWF   c4<BR>
                MOVF    a5,W<BR>
                MOVWF   c3<BR>
                MOVF    a4,W<BR>
                MOVWF   c2<BR>
                MOVF    a3,W<BR>
                MOVWF   c1<BR>
<BR>
                MOVLW   0x08<BR>
                MOVWF   bitcnt<BR>
<BR>
LOOPUM3216A:<BR>
                RRF     b1, F<BR>
                BTFSC   STATUS, C<BR>
                GOTO    ALUM3216NAP<BR>
                DECFSZ  bitcnt, F<BR>
                GOTO    LOOPUM3216A<BR>
<BR>
                MOVWF   bitcnt<BR>
<BR>
LOOPUM3216B:<BR>
                RRF     b2, F<BR>
                BTFSC   STATUS, C<BR>
                GOTO    BLUM3216NAP<BR>
                DECFSZ  bitcnt, F<BR>
                GOTO    LOOPUM3216B<BR>
<BR>
                CLRF    a6<BR>
                CLRF    a5<BR>
                CLRF    a4<BR>
                CLRF    a3<BR>
                RETLW   0x00<BR>
<BR>
BLUM3216NAP:<BR>
                BCF     STATUS, C<BR>
                GOTO    BLUM3216NA<BR>
<BR>
ALUM3216NAP:<BR>
                BCF     STATUS, C<BR>
                GOTO    ALUM3216NA<BR>
<BR>
ALOOPUM3216:<BR>
                RRF     b1, F<BR>
                BTFSS   STATUS, C<BR>
                GOTO    ALUM3216NA<BR>
                MOVF   c1,W<BR>
                ADDWF   a3, F<BR>
                MOVF    c2,W<BR>
                BTFSC   STATUS, C<BR>
                INCFSZ  c2,W<BR>
                ADDWF   a4, F<BR>
                MOVF    c3,W<BR>
                BTFSC   STATUS, C<BR>
                INCFSZ  c3,W<BR>
                ADDWF   a5, F<BR>
                MOVF    c4,W<BR>
                BTFSC   STATUS, C<BR>
                INCFSZ  c4,W<BR>
                ADDWF   a6, F<BR>
<BR>
ALUM3216NA:<BR>
                RRF    a6, F<BR>
                RRF    a5, F<BR>
                RRF    a4, F<BR>
                RRF    a3, F<BR>
                RRF    a2, F<BR>
                DECFSZ  bitcnt, f<BR>
                GOTO    ALOOPUM3216<BR>
<BR>
                MOVLW   0x08<BR>
                MOVWF   bitcnt<BR>
<BR>
BLOOPUM3216:<BR>
                RRF    b2, F<BR>
                BTFSS  STATUS, C<BR>
                GOTO   BLUM3216NA<BR>
                MOVF   c1,W<BR>
                ADDWF  a3, F<BR>
                MOVF   c2,W<BR>
                BTFSC  STATUS, C<BR>
                INCFSZ c2,W<BR>
                ADDWF  a4, F<BR>
                MOVF   c3,W<BR>
                BTFSC  STATUS, C<BR>
                INCFSZ c3,W<BR>
                ADDWF  a5, F<BR>
                MOVF   c4,W<BR>
                BTFSC  STATUS, C<BR>
                INCFSZ c4,W<BR>
                ADDWF  a6, F<BR>
<BR>
BLUM3216NA<BR>
                RRF    a6, F<BR>
                RRF    a5, F<BR>
                RRF    a4, F<BR>
                RRF    a3, F<BR>
                RRF    a2, F<BR>
                RRF    a1, F<BR>
                DECFSZ  bitcnt, F<BR>
                GOTO    BLOOPUM3216<BR>
	nop<BR>
	return
|Delete 'P-' before: '<!-- 39690.4780092593 EOR -->' but after: '<A TITLE="'.



ON 20080901@12:50:55 PM at page:
http://www.piclist.com/techref/microchip/math/mul/index.htm#
James Newton[JMN-EFP-786] edited the page. Difference:
http://www.piclist.com/techref/diff.asp?url=H:\techref\microchip\math\mul\index.htm&version=3