NUME		EQU	0x00		
QU		EQU	0x20		
RMND_L	EQU	0x30		
RMND_M	EQU	0x31		
RMND_H	EQU	0x32		
MYDEN		EQU	D'10'		
	BSF 	TRISA,RA4		
	MOVLW	0x68			
	MOVWF	T0CON			
HERE	MOVLW	0x0			
	MOVWF	TMR0L			
	BCF	INTCON,TMR0IF	
	BSF	T0CON,TMR0ON	
AGAIN	MOVF	TMR0L,W		
	CALL	BIN_ASC_CON
	BTFSS	INTCON,TMR0IF	
	BRA	AGAIN			
	BCF	T0CON,TMR0ON 	
	GOTO	HERE
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