iic程序汇编语言源代码

SCL EQU P1.4
SDA EQU P1.6 ;SCL,SDA入口
ORG  0000H
AJMP MAIN
              MAIN: MOV SP,#60H
                   MOV R2,#88H
                   MOV A,#50H
                    LCALL START                    
                    LCALL TRANSMIT                   
                    LCALL CHECK_ACK                  
                    MOV A,#00H
                    LCALL TRANSMIT                 
                    LCALL CHECK_ACK                
                    MOV A,#0FH
                    LCALL TRANSMIT               
                    LCALL CHECK_ACK                  
                    LCALL STOP
                    MOV R5,#31H
                    SJMP $       
             START: SETB SDA            ;启动IIC,准备传送数据.                   
                    ACALL DELAY
                    SETB SCL
                    ACALL DELAY             
                    CLR SDA
                    ACALL DELAY                 
                    CLR SCL
                    ACALL DELAY                   
                    RET 
        TRANSMIT:   MOV R7,#08H     ;发送8位数据
            BYT1:   RLC A