ON 20050715@11:00:15 AM at page:
http://www.piclist.com/techref/microchip/math/radix/b2bu-24b9d-xx.htm#38542.4881712963
James Newton[JMN-EFP-786] published post 38542.4881712963

<A TITLE="P-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>

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