SCL BIT P1.0 SDA BIT P1.1 ;******************************** ORG 00H START: MOV P1,#0FFH WRITE: LCALL I2CSTRT MOV A,#0A0H LCALL OUT MOV A,#00H LCALL OUT MOV A,#'A' LCALL OUT LCALL I2CSTOP LCALL DLY10MS ;************ READ: LCALL I2CSTRT MOV A,#0A0H LCALL OUT MOV A,#00H LCALL OUT LCALL I2CSTRT ; REPEATED START MOV A,#0A1H LCALL OUT LCALL IN LCALL NACK LCALL I2CSTOP LCALL DLY10MS LOCK: SJMP LOCK ;******************************** OUT: MOV R5,#08H O_LOOP: RLC A MOV SDA,C NOP SETB SCL O_WAIT: JNB SCL,O_WAIT LCALL DLY CLR SCL DJNZ R5,O_LOOP NOP NOP SETB SDA NOP SETB SCL LCALL DLY CLR SCL NOP RET ;******************************** IN: SETB SDA CLR A MOV R5,#08H I_LOOP: CLR SCL LCALL DLY SETB SCL I_WAIT: JNB SCL,I_WAIT MOV C,SDA RLC A DJNZ R5,I_LOOP CLR SCL LCALL DLY LCALL DLY RET ;******************************** I2CSTRT:SETB SDA LCALL DLY SETB SCL LCALL DLY CLR SDA LCALL DLY CLR SCL RET ;******************************** I2CSTOP:CLR SDA LCALL DLY SETB SCL LCALL DLY SETB SDA LCALL DLY RET ;******************************** NACK: SETB SDA NOP SETB SCL LCALL DLY CLR SCL LCALL DLY RET ;******************************** DLY: NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP RET ;******************************** DLY10MS:MOV 74,#50 ;50,100 = 10MS! M2: MOV 75,#100 M3: DJNZ 75,M3 DJNZ 74,M2 RET ;******************************** END
دیدگاه