I2C匯編程序：/*****
;FileName: IicSMasU.a51
;Describe: 51 系列模擬I2C 總線主控器驅動程序
;Date: 2003/11/12
;*****/
$include (IicSMasU.inc)
public _IicTxdRxd
public SlvAddr
public SubAddr
/**************
*
;Name: bit _IicTxdRxd(TxdByte,RxdByte,&IicDataBuf)
;Describe: 發送數據給被控器/接收來自被控器的數據
;Input: TxdByte=要發送數據的字節數
; RxdByte=要接收數據的字節數
; IicDataBuf=發送/接收緩沖區的首字節
; (SlvAddr(被控器地址),SubAddr(單元地址))
;Output: C(Retry=1):操作失敗標志
; IicDataBuf=接收到的數據的首字節(主接收時有效)
;調用說明:
; A.現行地址寫: SlvAddr(寫) !!!(帶SubAddr 的器件不能使用該子程序)
; TxdByte=(發送數據字節數(SubAddr 為第一個要發送的數據))
; RxdByte=0
; B.指定地址寫: SlvAddr(寫),SubAddr
; TxdByte=(1+發送數據字節數)
; RxdByte=0
; C.現行地址讀: SlvAddr(讀)

; TxdByte=0
; RxdByte=要接收數據的字節數
; D.指定地址讀: SlvAddr(讀),SubAddr
; TxdByte=1
; RxdByte=要接收數據的字節數
;Nesting level: 1
;Change: A,C,R1, R4~R7
;*********************
****/
BitSegIicSM SEGMENT BIT overlayable
RSEG BitSegIicSM
Retry: dbit 1 指明I2C 最后的數據傳送失敗應該重復操作
BITEA: DBIT 1 存中斷狀態
DataSegIicSM SEGMENT DATA overlayable
RSEG DataSegIicSM
SlvAddr: ds 1 被控器地址
SubAddr: ds 1 單元地址
TxdByte equ r7 要發送數據的字節數(第一傳遞參數)
RxdByte equ r5 要接收數據的字節數(第二傳遞參數)
WaitXTm macro X 延時X 個機器周期
if X=0
exitm
endif
if X=1
nop
endif
if X=2
nop
nop
endif
if X=3
nop
nop
nop
endif
if X>255
error "the number of X is too much"
else
mov r6,#X/2
DJNZ r6,$
endif

endm
CodeSegIicSM SEGMENT CODE
RSEG CodeSegIicSM
_IicTxdRxd:
SETB Retry 設置錯誤標志位
/*****
;發送起動條件
;*****/
SendStart:
SETB SDA
SETB SCL
WaitXTm IicDelay
CLR SDA 產生起始信號
WaitXTm IicDelay
CLR SCL 結束起動條件
/*****
;送被控器地址地址,數據
;*****/
SendSlaAdr:
MOV A,SlvAddr
CJNE TxdByte,#0,SendSlaAdr1
SETB ACC.0 TxdByte=0 時進行讀操作
SendSlaAdr1:
SETB C 檢測應答位時釋放SDA 線
CALL XmByte
JC IicErr 無應答出錯
JB ACC.0,ReceiveData SlaAdr.0=1 時進行讀操作
;寫操作
MOV A,SubAddr
SendData:
SETB C 檢測應答位時釋放SDA 線
CALL XmByte
JC IicErr 無應答出錯
MOV A,@R1
INC R1
DJNZ TxdByte,SendData
DEC R1
MOV A,RxdByte
JNZ SendStart RxdByte>0 時進行讀操作
JMP SendStop

/*****
;Name: RcvByte
;Describe: 接收1 字節數據(接收8 位,發送+1 位(非)應答位)
;Input: C=1:發送非應答位(通知slave 停止通信)
; C=0:發送應答位(通知slave 繼續發送后續字節)
;Output: A=接收到的數據, C=(非)應答位
;Use: A,R4,C,R6(WaitXTm)
;*****/
RcvByte:
MOV A,#0FFH 釋放SDA 線允許輸入
/*****
;Name: XmByte
;Describe: 發送1 字節數據(發送8 位,接收1 位(非)應答位)
;Input: A=待發送的數據, C=1(檢測應答位時釋放SDA 線)
;Output: C=1:slave 非應答(slave 不響應)
; C=0:slave 應答(slave 接收成功)
;Use: A,R4,C,R6(WaitXTm)