51單片機對SAA7113初始化和控制的程序

　　SETB　SCL

　　NOP

　　NOP

　　MOV　C, SDA

　　MOV　I2C_ERROR, C

　　CLR　SCL

　　NOP

　　RET

　　;*******發(fā)送1字節數據，待送數據在A(yíng)中******

　　I2C_SEND_1BYTE:

　　MOV　R0, #8

　　SEND100: RLC　A

　　MOV　SDA,　C

　　NOP

　　SETB　SCL

　　NOP

　　NOP

　　CLR　SCL

　　DJNZ　R0, SEND100

　　RET

　　;*******接收1字節數據，接收數據放在A(yíng)中*****

　　I2C_RECEIVE_1BYTE:

　　MOV　R0,　#8

　　RECV100:　SETB　SDA

　　NOP

　　SETB　SCL

　　NOP

　　NOP

　　NOP

　　MOV　C,　SDA

　　CLR　SCL

　　RLC　A

　　DJNZ　R0,　RECV100

　　RET

　　;*******通過(guò)I2C總線(xiàn)向某一寄存器寫(xiě)入一個(gè)字節數據*********

　　I2C_WRITE:　ACALL　I2C_START　;發(fā)啟動(dòng)信號

　　MOV　A， # DeviceaddressW ;調7113地址+寫(xiě)

　　ACALL　I2C_SEND_1BYTE　;發(fā)送7113地址及“寫(xiě)”命令

　　ACALL　CHECK_ACK　;檢查7113的應答信號

　　JNB　I2C_ERROR, WR200　;應答正確，繼續

　　WR100:　ACALL　I2C_STOP　;應答不對，返回

　　RET

　　WR200:　MOV　A, Subaddress　;調寄存器地址

　　ACALL　I2C_SEND_1BYTE　;發(fā)送寄存器地址

　　ACALL　CHECK_ACK　;檢查7113的應答信號

　　JB　I2C_ERROR, WR100　;應答不對，返回

　　MOV　A, DATA_I2C　;調準備寫(xiě)入的數據

　　ACALL　I2C_SEND_1BYTE　;發(fā)送數據字節

　　ACALL　CHECK_ACK

　　JB　I2C_ERROR, WR100

　　ACALL　I2C_STOP　;發(fā)停止信號