?? wave_generater.asm
字號:
MACK: CLR SDA ;將SDA置0
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
SETB SCL
NOP ;保持數據時間，即SCL為高時間大于4.7us
NOP
NOP
NOP
NOP
NOP ;保持數據時間，即SCL為高時間大于4.7us
NOP
NOP
NOP
NOP
NOP ;保持數據時間，即SCL為高時間大于4.7us
NOP
NOP
NOP
NOP
NOP ;保持數據時間，即SCL為高時間大于4.7us
NOP
NOP
NOP
NOP
CLR SCL
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
RET
;發送非應答信號
MNACK: SETB SDA ;將SDA置1
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
SETB SCL
NOP
NOP ;保持數據時間，即SCL為高時間大于4.7us
NOP
NOP
NOP
NOP
NOP ;保持數據時間，即SCL為高時間大于4.7us
NOP
NOP
NOP
NOP
NOP ;保持數據時間，即SCL為高時間大于4.7us
NOP
NOP
NOP
NOP
NOP ;保持數據時間，即SCL為高時間大于4.7us
NOP
NOP
NOP
CLR SCL
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
RET
;檢查應答位子程序
;返回值，ACK=1時表示有應答
CACK: SETB SDA
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
SETB SCL
CLR ACK1
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
MOV C,SDA
JC CEND
SETB ACK1 ;判斷應答位
CEND: NOP
NOP
NOP
NOP
CLR SCL
NOP
NOP
NOP
NOP
RET
;發送字節子程序
;字節數據放入ACC
;每發送一字節要調用一次CACK子程序，取應答位
WRBYTE: MOV R0,#08H
WLP: RLC A ;取數據位
JC WR1
SJMP WR0 ;判斷數據位
WLP1: DJNZ R0,WLP
NOP
NOP
NOP
NOP
RET
WR1: SETB SDA ;發送1
NOP
NOP
NOP
NOP
SETB SCL
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
CLR SCL
SJMP WLP1
WR0: CLR SDA ;發送0
NOP
NOP
NOP
NOP
SETB SCL
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
CLR SCL
SJMP WLP1
;讀取字節子程序
;讀出的值在ACC
;每取一字節要發送一個應答/非應答信號
RDBYTE: MOV R0,#08H
RLP: SETB SDA
NOP
NOP
NOP
NOP
SETB SCL ;時鐘線為高，接收數據位
NOP
NOP
NOP ;+1
NOP ;+1
NOP ;+1
NOP ;+1
NOP ;+1
NOP
MOV C,SDA ;讀取數據位
MOV A,R2
CLR SCL ;將SCL拉低，時間大于4.7us
RLC A ;進行數據位的處理
MOV R2,A
NOP
NOP
NOP
NOP ;+1
NOP ;+1
NOP ;+1
NOP ;+1
NOP ;+1
DJNZ R0,RLP ;未夠8位，再來一次
RET
;========================================================================================
;========================================================================================
; 以下是用戶接口子程序
;
;無子地址器件寫字節數據
;入口參數: 數據為ACC、器件從地址SLA
;占用: A、R0、CY
IWRBYTE: PUSH ACC
IWBLOOP: LCALL START ;起動總線
MOV A,SLA
LCALL WRBYTE ;發送器件從地址
LCALL CACK
JNB ACK1,RETWRB ;無應答則跳轉
POP ACC ;寫數據
LCALL WRBYTE
LCALL CACK
LCALL STOP
RET
RETWRB: POP ACC
LCALL STOP
RET
;無子地址器件讀字節數據
;入口參數: 器件從地址SLA
;出口參數: 數據為ACC
;占用： A 、R0、R2 、CY
IRDBYTE: LCALL START
MOV A,SLA ;發送器件從地址
INC A
LCALL WRBYTE
LCALL CACK
JNB ACK1,RETRDB
LCALL RDBYTE ;進行讀字節操作
LCALL MNACK ;發送非應信號
RETRDB: LCALL STOP ;結束總線
RET
;向器件指定子地址寫N字節數據
;入口參數: 器件從地址SLA、器件子地址SUBA 、發送數據緩沖區MTD、發送字節數NUMBYTE
; 占用： A 、R0 、R1 、R3 、CY
IWRNBYTE: MOV A,NUMBYTE
MOV R3,A
LCALL START ;起動總線
MOV A,SLA
LCALL WRBYTE ;發送器件從地址
LCALL CACK
JNB ACK,RETWRN ;無應答則退出
MOV A,SUBA ;指定子地址
LCALL WRBYTE
LCALL CACK
MOV R1,#MTD
WRDA: MOV A,@R1
LCALL WRBYTE ;開始寫入數據
LCALL CACK
JNB ACK,IWRNBYTE
INC R1
DJNZ R3,WRDA ;判斷寫完沒有
RETWRN: LCALL STOP
RET
;向器件指定子地址讀取N字節數據
;入口參數: 器件從地址SLA、器件子地址SUBA、接收字節數NUMBYTE
;出口參數: 接收數據緩沖區MTD
;占用：A、 R0、 R1、 R2、 R3、 CY
IRDNBYTE: MOV R3,NUMBYTE
LCALL START
MOV A,SLA
LCALL WRBYTE ;發送器件從地址
LCALL CACK
JNB ACK,RETRDN
MOV A,SUBA ;指定子地址
LCALL WRBYTE
LCALL CACK
LCALL START ;重新起動總線
MOV A,SLA
INC A ;準備進行讀操作
LCALL WRBYTE
LCALL CACK
JNB ACK,IRDNBYTE
MOV R1,#MRD
RDN1: LCALL RDBYTE ;讀操作開始
MOV @R1,A
;NOP ;+1
;NOP ;+1
DJNZ R3,SACK
LCALL MNACK ;最后一字節發非應答位
RETRDN: LCALL STOP ;并結束總線
RET
SACK: LCALL MACK
INC R1
SJMP RDN1
;無子地址器件寫N字節數據
;入口參數: 器件從地址SLA、發送數據緩沖區MTD、發送字節數NUMBYTE
; 占用： A 、R0 、R1 、R3 、CY
;不發送子地址SUBA,直接發送多個數據.
IWRNBYTEEXT:
MOV A,NUMBYTE
MOV R3,A
LCALL START ;起動總線
MOV A,SLA
LCALL WRBYTE ;發送器件從地址
LCALL CACK
JNB ACK1,RETWRNE ;無應答則退出
MOV R1,#MTD
WRDAE: MOV A,@R1
LCALL WRBYTE ;開始寫入數據
LCALL CACK
JNB ACK1,RETWRNE
INC R1
DJNZ R3,WRDAE ;判斷寫完沒有
RETWRNE: LCALL STOP
RET
;無子地址器件讀取N字節數據
;入口參數: 器件從地址SLA、器件子地址SUBA、接收字節數NUMBYTE
;出口參數: 接收數據緩沖區MTD
;占用：A、 R0、 R1、 R2、 R3、 CY
;說明：此函數不發送子址,也不重新啟動總線,而是直接讀取多個數據.
IRDNBYTEEXT:
MOV R3,NUMBYTE
LCALL START
MOV A,SLA
INC A
LCALL WRBYTE ;發送器件從地址
LCALL CACK
JNB ACK,RETRDNE
MOV R1,#MRD
RDNE1: LCALL RDBYTE ;讀操作開始
MOV @R1,A
DJNZ R3,SACKE
LCALL MNACK ;最后一字節發非應答位
RETRDNE: LCALL STOP ;并結束總線
RET
SACKE: LCALL MACK
INC R1
SJMP RDNE1
END?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -