; mult x var
; multH : multL
; varH : varL
; Pd : Pc : Pb : Pa	
	
	clrf	    Pd
	clrf	    Pc
	clrf	    Pa
	movlw	    b'10000000'	
	movwf	    Pb
	
label_1 rrf	    multH, f
	rrf	    multL, f
	btfss	    STATUS, C	
	goto	    label_2
	movf	    varL, w
	addwf	    Pc, f
	btfsc	    STATUS, C
	incf	    Pd, f
	movf	    varH, w
	addwf	    Pd, f
		
label_2	rrf	    Pd, f
	rrf	    Pc, f
	rrf	    Pb, f
	rrf	    Pa, f
	btfss	    STATUS, C
	goto	    label_1
	return			; Multiplication complete.