SUBROUTINE_DIP:
	MOV	A,P2
	CJNE	A,P2,SUBROUTINE_DIP	; repeat if not the same