hx2bcd.inc

来自「PIC单片机指令集」· INC 代码 · 共 53 行

;---------------------------------------------------------------;
;								;
;#INCLUDE <HX2BCD.INC>						;
;								;
;===============================================================;
;;								;
;;	externally defined RAMs ( in main program)		;	
;;								;	
;;	CBLOCK							;
;;	 DATBF1,DATBF2						;	
;;	ENDC							;
;;..............................................................;
;
;
;	HEX TO BCD CONVERTER
;
;	convert w to BCDBFH/BCDBFL	
;
;
;	define RAM
;
	CBLOCK 
	 R0_HX2BCD
	ENDC
;
;
HX2BCD:
	MOVWF R0_HX2BCD		; temporary store w
	CLRF BCDBFL
	CLRF BCDBFH
;
HX2BCD1:
	MOVLW 100
	SUBWF R0_HX2BCD,W
	SKPC
	GOTO HX2BCD2		; end of hundred convertion
	MOVWF R0_HX2BCD
	INCF BCDBFH
	GOTO HX2BCD1
HX2BCD2:
	MOVLW 10
	SUBWF R0_HX2BCD,W
	SKPC
	GOTO HX2BCD3		; end of hundred convertion
	MOVWF R0_HX2BCD
	MOVLW H'10'	
	ADDWF BCDBFL
	GOTO HX2BCD2
HX2BCD3:
	MOVF R0_HX2BCD,W
	ADDWF BCDBFL
	RETURN