busco: 
	inc r0 
	movx a,@r0 
	cjne a,digito,busco 
	mov a,r0 
	mov r2,a 
	ljmp sigue