#include P18F458.INC
NUME		EQU	0x00		
QU		EQU	0x20		
RMND_L	EQU	0x30		
RMND_M	EQU	0x31		
RMND_H	EQU	0x32		
MYDEN		EQU	D'10'		
COUNTREG	EQU 0x10		
CNTVAL	EQU d'3'		
UNPBCD_ADDR	EQU 0x30
ASCII_RESULT EQU 0x40
	ORG	0
	SETF	TRISB			
	CALL	BIN_DEC_CON
	CALL	DEC_ASCII_CON
	BRA	$
BIN_DEC_CON
	MOVFF	PORTB,WREG		
	MOVWF	NUME			
	MOVLW	MYDEN			
	CLRF	QU			
D_1	INCF	QU			
	SUBWF	NUME			
	BC	D_1			
	ADDWF	NUME			
	DECF	QU			
	MOVFF	NUME,RMND_L		
	MOVFF	QU,NUME		
	CLRF	QU			
D_2	INCF	QU
	SUBWF	NUME			
	BC	D_2
	ADDWF	NUME			
	DECF	QU
	MOVFF	NUME,RMND_M		
	MOVFF	QU,RMND_H		
	RETURN
DEC_ASCII_CON
	MOVLW	CNTVAL		
	MOVWF	COUNTREG		
	LFSR	0,UNPBCD_ADDR	
	LFSR	1,ASCII_RESULT	
B3	MOVF	POSTINC0, W		
	ADDLW	0x30	 		
	MOVWF	POSTINC1		
	DECF	COUNTREG,F		
	BNZ	B3			
	RETURN
	END