master.asm

IO口模拟I2C(主 从)

;/*------------------------------------------------------------------*/
;/* --- STC MCU International Limited -------------------------------*/
;/* --- STC 1T Series MCU Simulate I2C Master Demo ------------------*/
;/* --- Mobile: [phone] -------------------------------------*/
;/* --- Fax: [phone] ----------------------------------------*/
;/* --- Tel: [phone] ----------------------------------------*/
;/* --- Web: www.STCMCU.com -----------------------------------------*/
;/* If you want to use the program or the program referenced in the  */
;/* article, please specify in which data and procedures from STC    */
;/*------------------------------------------------------------------*/

SCL BIT P1.0
SDA BIT P1.1

;----------------------------

	ORG 0

	MOV TMOD,#20H       ;初始化串口为(9600,n,8,1)
	MOV SCON,#5AH
    MOV A,#-5           ;-18432000/12/32/9600
    MOV TH1,A
    MOV TL1,A
    SETB TR1
MAIN:
    CALL UART_RXDATA    ;接收下一个串口数据
    MOV R0,A            ;临时保存到R0
                        ;读取I2C设备IDATA 80H的数据
    CALL I2C_START      ;开始读取
    MOV A,#01H
    CALL I2C_TXBYTE     ;发送地址数据+读信号
    CALL I2C_RXACK      ;接收ACK
    CALL I2C_RXBYTE     ;接收数据
    SETB C
    CALL I2C_TXACK      ;发送NAK
    CALL I2C_STOP       ;读取完成
                        
    CALL UART_TXDATA    ;将读到的数据发送到串口
                        ;将R0的数据写入I2C设备IDATA 80H
    CALL I2C_START      ;开始写
    MOV A,#00H
    CALL I2C_TXBYTE     ;发送地址数据+写信号
    CALL I2C_RXACK      ;接收ACK
    MOV A,R0
    CALL I2C_TXBYTE     ;写数据
    CALL I2C_RXACK      ;接收ACK
    CALL I2C_STOP       ;写完成
    
    JMP MAIN
    
;----------------------------
;等待串口数据
;----------------------------
UART_RXDATA:
    JNB RI,$        ;等待接收完成标志
    CLR RI          ;清除标志
    MOV A,SBUF      ;保存数据
    RET

;----------------------------
;发送串口数据
;----------------------------
UART_TXDATA:
    JNB TI,$        ;等待上一个数据发送完成
    CLR TI          ;清除标志
    MOV SBUF,A      ;发送数据
    RET
    
;----------------------------
;发送I2C起始信号
;----------------------------
I2C_START:
    CLR SDA         ;数据线下降沿
    CALL I2C_DELAY  ;延时
    CLR SCL         ;时钟->低
    CALL I2C_DELAY  ;延时
    RET

;----------------------------
;发送I2C停止信号
;----------------------------
I2C_STOP:
    CLR SDA
    SETB SCL        ;时钟->高
    CALL I2C_DELAY  ;延时
    SETB SDA        ;数据线上升沿
    CALL I2C_DELAY  ;延时
    RET    

;----------------------------
;发送ACK/NAK信号
;----------------------------
I2C_TXACK:
    MOV SDA,C       ;送ACK数据
    SETB SCL        ;时钟->高
    CALL I2C_DELAY  ;延时
    CLR SCL         ;时钟->低
    CALL I2C_DELAY  ;延时
    SETB SDA        ;发送完成
    RET

;----------------------------
;接收ACK/NAK信号
;----------------------------
I2C_RXACK:
    SETB SDA        ;准备读数据
    SETB SCL        ;时钟->高
    CALL I2C_DELAY  ;延时
    MOV C,SDA       ;读取ACK信号
    CLR SCL         ;时钟->低
    CALL I2C_DELAY  ;延时
    RET

;----------------------------
;接收一字节数据
;----------------------------
I2C_TXBYTE:
    MOV R7,#8       ;8位计数
TXNEXT:
    RLC A           ;移出数据位
    MOV SDA,C       ;数据送数据口
    SETB SCL        ;时钟->高
    CALL I2C_DELAY  ;延时
    CLR SCL         ;时钟->低
    CALL I2C_DELAY  ;延时
    DJNZ R7,TXNEXT  ;送下一位
    RET

;----------------------------
;发送一字节数据
;----------------------------
I2C_RXBYTE:
    MOV R7,#8       ;8位计数
RXNEXT:
    SETB SCL        ;时钟->高
    CALL I2C_DELAY  ;延时
    MOV C,SDA
    RLC A
    CLR SCL         ;时钟->低
    CALL I2C_DELAY  ;延时
    DJNZ R7,RXNEXT  ;收下一位
    RET

;----------------------------

I2C_DELAY:          ;6
    PUSH 0          ;4
    MOV R0,#1       ;2 6(200K) 1(400K)  [18'432'000/400'000=46]
    DJNZ R0,$       ;4
    POP 0           ;3
    RET             ;4

;----------------------------

	END