ON 20050923@8:44:29 AM at page:
http://www.piclist.com/techref/microchip/math/radix/b2bu-24b9d-xx.htm#38542.4881712963
Dominic  Dumont[DD-BVL-AA8a] Replied to post 38542.4881712963 by Guorui.Xu-1

|Insert 'I tried it to, doesnt work for me either. Tried 3 Versions, none of them works...' at: '<!-- 38542.4881712963 EOR -->'

<A TITLE="129.15.209.103" NAME="38542.4881712963" HREF="mailto:Guorui.Xu-1@ou.edu">Guorui.Xu-1@ou.edu</A> asks: <BLOCKQUOTE><A NAME="129.15.209.103">
</A> 
I modify the code  of Peter Hemsley 15July01 for pic18f452. replace 'skpnc' with 'btfsc STATUS ,C'; fsr with fsr0L; indf with indf0; and other miodifications. It works only for 'digital1'( digital1 is correct). I don't know what is the problem. Could anybody can help me out?<BR>
Following is my modified codes:<BR>
<BR>
;----------------------------------------------------------------------<BR>
;====================================================================<BR>
;==== 24 bit to 8 digits BCD BY Peter Hemsley ====================<BR>
;====================================================================<BR>
;---------------- initialize ------------------<BR>
<BR>
<BR>
;	movlw	0xFF<BR>
;	movwf	count2<BR>
;	movlw	0xFF<BR>
;	movwf	count1<BR>
;	movlw	0xFF<BR>
;	movwf	count0<BR>
<BR>
Peter_24bit_BCD<BR>
	movlw	.9<BR>
	movwf	count2<BR>
	movlw	.6<BR>
	movwf	count1<BR>
	movlw	.5<BR>
	movwf	count0<BR>
<BR>
;	call	bin2dec<BR>
;;brk1	return<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>
<BR>
;bin2dec	call	clrdig<BR>
	movlw	.24	;24 bits to do<BR>
	movwf	bitcnt<BR>
	clrf	FSR0H<BR>
;bitlp	rlf	count0		;Shift msb into carry<BR>
;	rlf	count1<BR>
;	rlf	count2<BR>
bitlp	rlcf	count0		;Shift msb into carry<BR>
	rlcf	count1<BR>
	rlcf	count2<BR>
<BR>
	movlw	digit1<BR>
;	movwf	fsr		;Pointer to digits<BR>
	movwf	FSR0L		;Pointer to digits<BR>
	movlw	.8		;8 digits to do<BR>
	movwf	digcnt<BR>
;adjlp	rlf	indf		;Shift digit 1 bit left<BR>
adjlp	rlcf	INDF0		;Shift digit 1 bit left<BR>
;movlw	-10<BR>
;	addwf	indf,w		;Check and adjust for decimal overflow<BR>
;	skpnc<BR>
;	movwf	indf<BR>
<BR>
	movlw	-d'10'<BR>
	addwf	INDF0,w		;Check and adjust for decimal overflow<BR>
	btfsc	STATUS,C,0<BR>
	movwf	INDF0<BR>
<BR>
<BR>
;	incf	fsr		;Next digit<BR>
;	decfsz	digcnt<BR>
;	goto	adjlp<BR>
;	decfsz	bitcnt		;Next bit<BR>
;	goto	bitlp<BR>
;	return<BR>
<BR>
	incf	FSR0L		;Next digit<BR>
	decfsz	digcnt<BR>
;	goto	adjlp<BR>
	bra		adjlp<BR>
	decfsz	bitcnt		;Next bit<BR>
;	goto	bitlp<BR>
	bra		bitlp<BR>
;	return</BLOCKQUOTE>


ON 20050923 at page:
http://www.massmind.org/techref/microchip/math/radix/b2bu-24b9d-xx.htm
someone[--] edited the page. Difference:
"R:\bak\H\techref\microchip\math\radix\b2bu-24b9d-xx.htm.20050923.dif"
 


ON 20050928@10:31:56 AM at page:
http://www.piclist.com/microchip/math/radix/b2bu-16b5d-jm.htm#38623.3422337963
James Newton[JMN-EFP-786] published post 38623.3422337963

<A TITLE="P-85.100.234.110" NAME="38623.3422337963">
</A> 
Yes its works fine not like others, thanks Juan...<BR>
<BR>
the possible problems are ram blocks this is important note!!!<BR>
all PIC Ram loction are diffent!<BR>
<BR>
Aydede/ from Turkey
|Delete 'P-' before: '<!-- 38623.3422337963 EOR -->' but after: '<A TITLE="'.

ON 20050928 at page:
http://www.massmind.org/techref/microchip/math/radix/b2bu-16b5d-jm.htm
someone[--] edited the page. Difference:
"R:\bak\H\techref\microchip\math\radix\b2bu-16b5d-jm.htm.20050928.dif"
 
ON 20050928 at page:
http://www.massmind.org/techref/microchip/math/radix/new200509.txt
someone[--] edited the page. Difference:
"R:\bak\H\techref\microchip\math\radix\new200509.txt.20050928.dif"