24位二进制数转asc码.txt

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

;Bin2BCDT - 将 Temp  寄存器内的二进制数转ASC码     *


	
BIN2BCDT
	movf	ACCBLO,W
	movwf	s0
	movF	ACCCHI,W
	movwf	s1
	movF	ACCCLO
	movwf	s2
	call	B2_BCD
	call	Over0
	goto	LCDstart

B2_BCD
	bcf	status,carry
	movlw	.24
	movwf	count3
	clrf	r0
	clrf	r1
	clrf	r2
loop16
	rlf	s2,1
	rlf	s1,1
	rlf	s0,1
	rlf	r2,1
	rlf	r1,1
	rlf	r0,1
	decfsz	count3,1
	goto	adjdec	
	retlw	0
adjdec	
	movlw	r2
	movwf	fsr
	call	adjbcd
	movlw	r1
	movwf	fsr
	call	adjbcd
	movlw	r0
	movwf	fsr	
	call	adjbcd
	goto	loop16
adjbcd	
	movlw	3
	addwf	0,w
	movwf	temp
	btfsc	temp,3
	movwf	0
	movlw	30h
	addwf	0,w
	movwf	temp
	btfsc	temp,7
	movwf	0
	retlw	0

Over0			;将BCD码转成ASC码，
			;结果存在rohi,r0lo,r1hi,r1lo,r2hi,r2lo（r0为高位）
	

	movf	r0,w
	movwf	tempr0
	andlw	0fh
	movwf	r0lo
	swapf	tempr0,w
	andlw	0fh
	movwf	r0hi
;..........................
	movf	r1,w
	movwf	tempr0
	andlw	0fh
	movwf	r1lo
	swapf	tempr0,w
	andlw	0fh
	movwf	r1hi
;..........................
	movf	r2,w
	movwf	tempr0
	andlw	0fh
	movwf	r2lo
	swapf	tempr0,w
	andlw	0fh
	movwf	r2hi
;.........................
	movlw	30h
	addwf	r0hi,1
	addwf	r0lo,1
	addwf	r1hi,1
	addwf	r1lo,1
	addwf	r2hi,1
	addwf	r2lo,1
	retlw	0