RAM_ADDR  	EQU 40H
ASCI_RSULT	EQU 50H
COUNT     	EQU 3
	ORG 0
	ACALL BIN_DEC_CONVRT
	ACALL DEC_ASCI_CONVRT
	SJMP  $
        
BIN_DEC_CONVRT:
	MOV R0,#RAM_ADDR 
	MOV A,P1    	
	MOV B,#10   	
	DIV AB      	
	MOV @R0,B   	
	INC R0
	MOV B,#10
	DIV AB      	
	MOV @R0,B   	
	INC R0
	MOV @R0,A   	
	RET
DEC_ASCI_CONVRT: 
	MOV R0,#RAM_ADDR 	
	MOV R1,#ASCI_RSULT	
	MOV R2,#3   	
BACK: MOV A,@R0   	
	ORL A,#30H  	
	MOV @R1,A   	
	INC R0      	
	INC R1      	
	DJNZ R2,BACK  	
	RET
 
	END