二进制转bcd.txt

自己做的程序,可能对你有用

include <p16f877.inc>
Temp	EQU	20H
TempH	EQU	21H
TempM	EQU	22H
TempL	EQU	23H
TempMM	EQU	24h
	




	MAIN	
	ORG	0
	NOP
	clrf	Temp
	clrf	TempH
	clrf	TempL
	CLRF	TempM
	MOVLW	0FFH
	MOVWF	Temp	
Bin2BCDT
	bcf	STATUS,RP0
	clrf	TempH		; Initialize variables
	movf	Temp,W
	movwf	TempL
Ttenth				; Subtract 10 from low variable
	movlw	.10		; until result is < 0.  On each
	subwf	TempL,W		; subtraction, increment the
	btfss	STATUS,C	; temperature high byte.
	goto	Over0
	movwf	TempL
	incf	TempM,F
;........................................
	movf	TempM,w
	movwf	TempMM	
	movlw	.10
	subwf	TempMM,w
	btfss 	STATUS,C
	goto	Ttenth
	goto	next
next	
	movlw	00h
	movwf	TempM
	incf	TempH
	goto	Ttenth


Over0
	movlw	0x30		; Make decimal ASCII by adding
	addwf	TempH,F		; '0' to high and low byte
	addwf	TempM,f
	addwf	TempL,F
	END