RMND_L	EQU	$832		
RMND_M	EQU	$831		
RMND_H	EQU	$830		
MYDEN		EQU	10		
COUNTREG	EQU 	$810		
CNTVAL	EQU 	3		
UNPBCD_ADDR	EQU 	$830
ASCII_RESULT EQU 	$840
	LDS   #$900
	BCLR	DDRB,%11111111	
	LDAB	PORTB			
	JSR	BIN_DEC_CON
	JSR	DEC_ASCII_CON
	BRA	$
BIN_DEC_CON
	LDX 	#MYDEN		
	IDIV				
	STAB RMND_L			
	XGDX 				
	LDX  #MYDEN			
	IDIV				
	STAB RMND_M			
	XGDX 				
	STAB RMND_H			
	RTS
DEC_ASCII_CON
	LDAA	#CNTVAL		
	STAA	COUNTREG		
	LDX	#UNPBCD_ADDR	
	LDY	#ASCII_RESULT	
B3	LDAA	1,X+	
	ADDA	#$30	 		
	STAA	1,Y+			
	DEC	COUNTREG		
	BNE	B3			
	RTS
	END