R_Loop:	mov BitCnt,#08h			; Set BitCnt = 8 (receive 1 Byte at a time)
RBit:	orl A,I2DAT			; Read I2DAT.Get 1st bit (MSB). Clear DRDY
	rl A				; Shift left received data
	jnb ATN,$			; Wait for new data
	jnb DRDY,RDErr			; Wait for DRDY = 1 (Detect rising edge of SCL)
	djnz BitCnt,RBit		; Loop until the last bit
	jnb ATN,$			;	
	mov C,RDAT			; Read last bit from I2CON register
	rlc A				; Get full data byte