模拟I2C从机程序

;Slave.asm
SCL BIT P1.
SDA BIT P1.

;----------------------------
    ORG
RESET:
    SETB    SCL
    SETB    SDA
    CALL    I2C_WAITSTART    ;等待起始信号
    CALL    I2C_RXBYTE        ;接收地址数据
    CLR     C
    CALL    I2C_TXACK        ;回应ACK
    SETB    C                ;读/写 IDATA[80H - FFH]
    RRC     A                ;读/写位->C
    MOV        R0,A             ;地址送入R0
    JC         READDATA         ;C=1(读) C=0(写)
WRITEDATA:
    CALL    I2C_RXBYTE         ;接收数据
    MOV        @R0,A             ;写入IDATA
    INC        R0                 ;地址+1
    CLR        C
    CALL    I2C_TXACK         ;回应ACK
    CALL    I2C_WAITSTOP     ;等待停止信号
    JMP        RESET
READDATA:
    MOV        A,@R0
    INC        R0
    CALL    I2C_TXBYTE        ;发送IDATA数据
    CALL    I2C_RXACK        ;接收ACK
    CALL    I2C_WAITSTOP    ;等待停止信号
    JMP        RESET

;----------------------------
;等待起始信号
;----------------------------
I2C_WAITSTART:
    JNB     SCL,$             ;等待时钟->高
    JB        SDA,$             ;等待数据线下降沿
    JB        SCL,$             ;等待时钟->低
    RET

;----------------------------
;等待结束信号
;----------------------------
I2C_WAITSTOP:
    JNB     SCL,$             ;等待时钟->高
    JNB     SDA,$             ;等待数据线上升沿
    RET

;----------------------------
;发送ACK/NAK信号
;----------------------------
I2C_TXACK:
    MOV     SDA,C             ;送ACK数据
    JNB     SCL,$             ;等待时钟->高
    JB        SCL,$             ;等待时钟->低
    SETB    SDA             ;发送完成
    RET

;----------------------------
;接收ACK/NAK信号
;----------------------------
I2C_RXACK:
    SETB    SDA                ;准备读数据
    JNB        SCL,$            ;等待时钟->高
    MOV        C,SDA            ;读取ACK信号
    JB        SCL,$            ;等待时钟->低
    RET

;----------------------------
;接收一字节数据
;----------------------------
I2C_RXBYTE:
                 ;8位计数
RXNEXT:
    JNB     SCL,$             ;等待时钟->高
    MOV     C,SDA             ;读取数据口
    RLC     A                 ;保存数据
    JB        SCL,$             ;等待时钟->低
    DJNZ    R7,RXNEXT         ;收下一位
    RET

;----------------------------
;发送一字节数据
;----------------------------
I2C_TXBYTE:
                 ;8位计数
TXNEXT:
    RLC     A                 ;移出数据位
    MOV     SDA,C             ;数据送数据口
    JNB     SCL,$             ;等待时钟->高
    JB         SCL,$             ;等待时钟->低
    DJNZ     R7,TXNEXT         ;送下一位
    RET
;----------------------------
;END