ON 20070306@3:48:51 PM at page:
http://www.piclist.com/techref/microchip/math/radix/b2bhp-8b3d.htm#39147.6589236111
James Newton[JMN-EFP-786] archive reference
/techref/postbot.asp?by=time&id=piclist/2007/03/06/160835a
List post "<I>seperate num into tens+units</I>"



ON 20070315@9:35:43 AM at page:
http://www.piclist.com/microchip/math/radix/b2bu-24b9d-xx.htm#39155.0249652778
James Newton[JMN-EFP-786] published post 39155.0249652778

<A TITLE="P-68.98.42.107" NAME="39155.0249652778">
</A> 
Hi guys,<BR>
I modified the 24 bit binary to BCD code for PIC18Fxxx.<BR>
It works well without error. Good luck. - YBL<BR>
<BR>
<BR>
bin24dec	<BR>
	call	clrdig<BR>
	movlw	24		;24 bits to do<BR>
	movwf	bitcnt<BR>
bitlp<BR>
<BR>
	rlcf	count0		;Shift msb into carry<BR>
	rlcf	count1<BR>
	rlcf	count2<BR>
<BR>
	lfsr	FSR0,digit1		; load FSR0 with digit1<BR>
<BR>
<BR>
	movlw	d'8'		;8 digits to do<BR>
	movwf	digcnt<BR>
adjlp	<BR>
	rlcf	INDF0		;Shift digit 1 bit left<BR>
	movlw 	-d'10'<BR>
	addwf 	INDF0,w,0 ;Check and adjust for decimal overflow<BR>
	btfsc 	STATUS,0<BR>
	<BR>
;skpnc<BR>
	movwf	INDF0<BR>
	movf	POSTINC0,w<BR>
<BR>
<BR>
	decfsz	digcnt<BR>
	goto	adjlp<BR>
	decfsz	bitcnt		;Next bit<BR>
	goto	bitlp<BR>
	return<BR>
<BR>
clrdig:	<BR>
<BR>
	clrf	digit1<BR>
	clrf	digit2<BR>
	clrf	digit3<BR>
	clrf	digit4<BR>
	clrf	digit5<BR>
	clrf	digit6<BR>
	clrf	digit7<BR>
	clrf	digit8<BR>
	return<BR>
	<BR>

|Delete 'P-' before: '<!-- 39155.0249652778 EOR -->' but after: '<A TITLE="'.