I2C_示例程序_合泰单片机

I2C_示例程序

点击数：7405 次录入时间：03-04 11:52:16 整理：http://www.55dianzi.com 合泰单片机

I2C_示例程序

;----------------------------------------------------------
; File Name: I2C.ASM
; Author: Andy Yu
; Date: July 22, 1998
;----------------------------------------------------------
#define I2C_ASM
include i2c.inc
publIC InitI2CBusMaster
public _i2c_bLOCk_write
public _i2c_block_read
public SendData
public TxmtStartBit
public Txmt_Slave_Addr
public IsSlaveActive
public _Bus_Busy
public _Txmt_Progress
public _Rcv_Progress
public _Txmt_SuCCess
public _Rcv_Success
public _Ack_Error
public _10BitAddr
public _Slave_RW
public _SlaveActive
public DataByte
public SlaveAddr
public tempCount
public TempStore

;-------------------
; General Equate
;-------------------
TRUE EQU 1
FALSE EQU 0
LSB EQU 0
MSB EQU 7
Carry EQU [0ah].0
;-------------------
; Port Assignment
;-------------------
PortCTRlAddr EQU (PortAddr+1)
I2CPORT EQU [PortAddr]
SCL EQU [PortAddr+1].SCL_Bit ;PBC
SDA EQU [PortAddr+1].SDA_Bit ;PBC
PSCL EQU [PortAddr].SCL_Bit ;PB
PSDA EQU [PortAddr].SDA_Bit ;PB
;-----------------------------------------------
; Data Section
;-----------------------------------------------
I2CData .section 'data'
I2CStatus label byte
_Bus_Busy dbit
_Abort dbit
_Txmt_Progress dbit
_Rcv_Progress dbit
_Txmt_Success dbit
_Rcv_Success dbit
_Fatal_Error dbit
_Ack_Error dbit
I2CCtrl label byte
_10BitAddr dbit
_Slave_RW dbit
_Last_Byte_Rcv dbit
_reserve3 dbit
_reserve4 dbit
_reserve5 dbit
_SlaveActive dbit
_Time_Out dbit
DataByte db ?
DataByteCopy db ?
BitCount db ?
SlaveAddr db ? ; reserve 2 bytes to support 10 bit addr
tempCount db ?
TempStore db ?
DelayCount db ?
;-----------------------------------------------
; Code Section
;-----------------------------------------------
I2CCode .section 'code'
;-------------------
; IsSlaveAcitve
;-------
IsSlaveActive proc
clr _Slave_RW
call TxmtStartBit
call Txmt_Slave_Addr
clr _SlaveActive
snz _Ack_Error
set _SlaveActive
call TxmtStopBit
ret
IsSlaveActive endp
;-------------------
; _i2c_block_write
;-------
_i2c_block_write proc
call TxmtStartBit ; start
clr _Slave_RW ; slave address
call Txmt_Slave_Addr
snz _Txmt_Success
jmp ending
MOV A,TempStore ; subaddress
MOV DataByte,A
call SendData
_block_wr1_loop:
snz _Txmt_Success
jmp ending
MOV A,_IAR
MOV DataByte,A
inc _MP
call SendData
sdz tempCount
jmp _block_wr1_loop
ending:
call TxmtStopBit ; stop
ret
_i2c_block_write endp
;-------------------
; _i2c_block_read
;-------
_i2c_block_read proc
call TxmtStartBit
set _Slave_RW
clr _Last_Byte_Rcv
call Txmt_Slave_Addr
sz _Txmt_Success
jmp _block_rd1_loop
call TxmtStopBit
ret A,FALSE
_block_rd1_loop:
call GetData
MOV A,DataByte
MOV _IAR,A
inc _MP
sdz tempCount
jmp _block_rd1_loop
;
set _Last_Byte_Rcv
call GetData
MOV A,DataByte
MOV _IAR,A
call TxmtStopBit
ret A,TRUE
_i2c_block_read endp
;-------------------
; InitI2CBusMaster
;-------
InitI2CBusMaster proc
MOV A,I2CPORT ; clear latches
and A,NOT I2CPORTMASK
MOV I2CPORT,A
RELEASE_BUS
clr I2CStatus
clr I2CCtrl
ret
InitI2CBusMaster endp
;-------------------
; TxmtStartBit
;-------
TxmtStartBit proc
set SDA
set SCL
DELAY_tSETUP_START
clr SDA
DELAY_tHOLD_START
set _Bus_Busy
ret
TxmtStartBit endp
;-------------------
; TxmtStopBit
;-------
TxmtStopBit proc
clr SCL
clr SDA
set SCL
DELAY_tSETUP_STOP
set SDA
DELAY_tBUS_FREE
clr _Bus_Busy
ret
TxmtStopBit endp
;-------------------
; SendData
;-------
SendData proc
TxmtByte:
MOV A,DataByte
MOV DataByteCopy,A
set _Txmt_Progress
clr _Txmt_Success
MOV A,08h ; for BitCount=8 downto 1
MOV BitCount,A
TxmtNextBit:
clr SCL
rlc DataByteCopy
clr SDA
sz Carry
set SDA
DELAY_tLOW
set SCL
DELAY_tHIGH
sdz BitCount
jmp TxmtNextBit ; end for
;--- check ACK
clr SCL
set SDA
DELAY_tLOW
set SCL
DELAY_tHIGH
sz PSDA
jmp TxmtErrorAck
clr SCL
clr _Txmt_Progress
set _Txmt_Success
clr _Ack_Error
ret
TxmtErrorAck:
RELEASE_BUS
set SDA
set SCL
clr _Bus_Busy
clr _Txmt_Progress
clr _Txmt_Success
set _Ack_Error
ret
SendData endp
;-------------------
; GetData
;-------
GetData proc
RcvByte:
set _Rcv_Progress
clr _Rcv_Success
MOV A,08h
MOV BitCount,A
RcvNextBit:
clr SCL
set SDA
DELAY_tLOW
set SCL
DELAY_tHIGH
clr Carry
sz PSDA
set Carry
rlc DataByte
sdz BitCount
jmp RcvNextBit
; generate ACK
clr SCL
clr SDA
sz _Last_Byte_Rcv
set SDA
DELAY_tLOW
set SCL
DELAY_tHIGH
RcvEnd:
clr SCL
clr _Rcv_Progress
set _Rcv_Success
clr _Ack_Error
ret
GetData endp
;-------------------
; Txmt_Slave_Addr
;-------
Txmt_Slave_Addr proc
clr _Ack_Error
snz _10BitAddr
jmp SevenBitAddr
snz _Slave_RW
jmp TenBitAddrWR
TenBitAddrRd:
clr _Slave_RW
call TenBitAddrWR
snz _Txmt_Success
ret A,FALSE
call TxmtStartBit
set _Slave_RW
MOV A,SlaveAddr[1]
MOV DataByte,A
set DataByte.LSB
call SendData
jmp _AddrSendTest
;
snz _Txmt_Success
jmp _AddrSendFail
TenBitAddrWR:
MOV A,SlaveAddr[1]
MOV DataByte,A
clr DataByte.LSB
call SendData
snz _Txmt_Success
jmp _AddrSendFail
MOV A,SlaveAddr
MOV DataByte,A
jmp EndTxmtAddr
SevenBitAddr:
MOV A,SlaveAddr
MOV DataByte,A
clr DataByte.LSB
sz _Slave_RW
set DataByte.LSB
EndTxmtAddr:
call SendData
_AddrSendTest:
snz _Txmt_Success
jmp _AddrSendFail
ret A,TRUE
_AddrSendFail:
snz _Ack_Error
ret A,FALSE
call TxmtStopBit
ret A,FALSE
Txmt_Slave_Addr endp

;*********************************************************

;----------------------------------------------------------
; File Name: I2C.INC
; Author: Andy Yu
; Date: July 22, 1998
;----------------------------------------------------------
;
; modify these equates to suit your application
;
PortAddr EQU 14H ; SCL=PB0, SDA=PB1 14H is PB's port addr
SCL_Bit EQU 0
SDA_Bit EQU 1
I2CPORTMASK EQU 03h
_IAR EQU [00h]
_MP EQU [01h]
;
; fill delay codes to fit specific I2C slaves
;
DELAY_tSETUP_START macro ; START Condition Setup Time (600ns HT24C0x)
endm
DELAY_tHOLD_START macro ; START Condition Hold Time (600ns HT24C0x)
endm
DELAY_tSETUP_STOP macro ; STOP Condition Setup Time (600ns HT24C0x)
endm
DELAY_tBUS_FREE macro ; Bus Free Time (1300ns HT24C0x)
endm
DELAY_tLOW macro ; Clock Low Time (600ns HT24C0x)
endm
DELAY_tHIGH macro ; Clock High Time (1300ns HT24C0x)
endm
;----------------------------------------------------------
ifndef I2C_ASM
extern InitI2CBusMaster : near
extern _i2c_block_write : near
extern _i2c_block_read : near
extern SendData : near
extern TxmtStartBit : near
extern Txmt_Slave_Addr : near
extern IsSlaveActive : near
extern _Bus_Busy : bit
extern _Txmt_Progress : bit
extern _Rcv_Progress : bit
extern _Txmt_Success : bit
extern _Rcv_Success : bit
extern _Ack_Error : bit
extern _10BitAddr : bit
extern _Slave_RW : bit
extern _SlaveActive : bit
extern DataByte : byte
extern SlaveAddr : byte
extern tempCount : byte
extern TempStore : byte
endif
;-------------------