电子发烧友App
24c64程序
该程序已使用过，免调试。;宏定义区；
?N_NOP??MACRO
???nop
???nop
???nop
???ENDM
?TRAP??MACRO
???nop
???nop
???nop
???sjmp??$
???ENDM?
?
?TRAP_RET?MACRO
???nop
???nop
???nop
???ret
???nop
???nop
???nop
???sjmp??$
???ENDM
;===============================================
;??function:?start_24c?;启动I2C总线?
;??input:??---------
;??output:??---------
;??usage:??---------??
;=============================================
start_24c:?;启动I2C总线
??setb??CSDA??;数据线下降沿产生
??N_NOP
??setb??CSCL??;时钟线下降沿
??N_NOP
??clr??CSDA
??N_NOP
??clr??CSCL
??N_NOP
??ret
;================================================
;??function:?stop_24c?;停止I2C总线?
;??input:??
;??output:??---------
;??usage:????
;================================================
stop_24c:?;停止I2C总线
??clr??CSDA??;数据线上升沿有效?
??N_NOP
??setb??CSCL
??N_NOP
??setb??CSDA??;数据线上升沿有效?
??N_NOP
??clr??CSDA??;且时钟线须为高电平
??N_NOP
??clr??CSCL??;且时钟线须为高电平
??N_NOP
??ret
;===============================================
;??function:?ch_ack(应答位检查）;应答位检查?
;??input:??
;??output:??---------
;??usage:????
;==============================================
ch_ack:??;应答位检查
??setb??CSDA
??N_NOP
??setb??CSCL
??N_NOP
out_chkack:?mov??c,??SDA?
??jc??out_chkack
??clr??SCL
??N_NOP
??ret
;=================================================
;??function:?send_ack(发送应答）;;发送应答位?
;??input:??
;??output:??---------
;??usage:????
;================================================
send_ack:?;发送应答位
??clr??CSDA
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??setb??CSDA
??N_NOP
??ret
;===================================================
;??function:?send_ack(发送非应答）;发送非应答位?
;??input:??
;??output:??---------
;??usage:????
;=============================================
sendn_ack:?;发送非应答位
??setb??CSDA
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??clr??CSDA
??N_NOP
??ret
;=================================================
;??function:?read_24c_N?;从I2C总线接收N个数据字节?
;??input:??r1---------欲接收数据存放缓冲区首址
;????b----------从器件地址/读写控制字
;????dptr-------欲从eprom读数据的首地址
;????r2---------欲接收数据的字节数
;??output:??---------
;??usage:??a,c,r1,r2,dptr
;================================================
read_24c_N:;从I2C总线接收N个数据字节
??lcall??start_24c??;start
??mov??a,??b?;ic_addr
??clr??acc.0
??lcall??out_24c
??;mov??a,??dph?;addr_low
??;lcall??out_24c
??mov??a,??dpl?;addr_hi
??lcall??out_24c
??lcall??start_24c??;start
??mov??a,??b?;ic_addr
??lcall??out_24c
??dec??r2
??cjne??r2,?#00h,?read_loop
??sjmp??read_once
read_loop:?lcall??in_24c???;read
??lcall??send_ack??;send nack
??mov??@r1,??a
??inc??r1
??djnz??r2,??read_loop
read_once:?lcall??in_24c???;read
??lcall??sendn_ack??;send nack
??lcall??stop_24c??;stop
??mov??@r1,??a
??TRAP_RET
;=================================================
;??function:?write_24c_N?;向I2C总线发送N个数据字节?
;??input:??r0---------欲发送数据缓冲区首址
;????b----------从器件地址/写控制字
;????dptr-------欲写入eprom数据的首地址
;????r2---------欲发送数据的字节数
;??output:??---------
;??usage:??a,c,r0,r2,dptr
;========================================================
write_24c_N:;向I2C总线发送N个数据字节
??lcall??start_24c??;start
??mov??a,??b?;从地址
??lcall??out_24c
??;mov??a,??dph?;高位地址
??;lcall??out_24c
??mov??a,??dpl?;低位地址
??lcall??out_24c
write_loop:?mov??a,??@r0
??lcall??out_24c
??inc??r0
??djnz??r2,??write_loop
??lcall??stop_24c??;stop
??N_NOP
??N_NOP
??TRAP_RET
;=========================================================
;??function:?write_24c_1?;向I2C总线发送1个数据字节?
;??input:??b----------要写的数据
;????dpl-------欲写入eprom数据的地址
;??output:??---------
;??usage:??a,b,dptr
;=========================================================
write_24c_1:;向I2C总线发送1个数据字节
??lcall??start_24c??;start
??mov??a,??#0a0h?;从地址
??lcall??out_24c
??mov??a,??dpl?;低位地址
??lcall??out_24c
??mov??a,??b
??lcall??out_24c
??lcall??stop_24c??;stop
??N_NOP
??N_NOP
??TRAP_RET
;===============================================
;??function:?read_24c_1?;从I2C总线接收1个数据字节?
;??input:??dpl-------欲从eprom读数据的地址
;??output:??a
;??usage:??a,dptr
;===================================================
read_24c_1:;从I2C总线接收1个数据字节
??lcall??start_24c??;start
??mov??a,??#0a0h?;ic_addr
??lcall??out_24c
??mov??a,??dpl?;addr_hi
??lcall??out_24c
??lcall??start_24c??;start
??mov??a,??#0a1h?;ic_addr
??lcall??out_24c
??lcall??in_24c???;read
??lcall??sendn_ack??;send nack
??lcall??stop_24c??;stop
??TRAP_RET
;=================================================
;??function:?out_24c??;向I2C发送一个字节?
;??input:??a
;??output:??--------
;??usage:??a,c
;========================================================
out_24c:;向I2C发送一个字节
??;lcall??dog_int_feed
??mov??c,??acc.7
??mov??CSDA,??c
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??mov??c,??acc.6
??mov??CSDA,??c
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??mov??c,??acc.5
??mov??CSDA,??c
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??mov??c,??acc.4
??mov??CSDA,??c
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??mov??c,??acc.3
??mov??CSDA,??c
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??mov??c,??acc.2
??mov??CSDA,??c
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??mov??c,??acc.1
??mov??CSDA,??c
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??mov??c,??acc.0
??mov??CSDA,??c
??N_NOP
??setb??CSCL
??N_NOP
??clr??CSCL
??N_NOP
??setb??CSDA
??N_NOP
??setb??CSCL
??N_NOP
out_wait:?mov??c,??CSDA
??jc??out_wait
??clr??CSCL
??TRAP_RET
;=========================================================
;??function:?in_24c??;从I2C总线接收一个数据字节?
;??input:??---------
;??output:??a
;??usage:??a,c
;=================================================
in_24c:?;从I2C总线接收一个数据字节
??;lcall??dog_int_feed
??setb??CSDA
??N_NOP
??setb??CSCL
??N_NOP
??mov??c,??CSDA
??mov??acc.7,??c
??clr??CSCL
??N_NOP
??setb??CSCL
??N_NOP
??mov??c,??CSDA
??mov??acc.6,??c
??clr??CSCL
??N_NOP
??setb??CSCL
??N_NOP
??mov??c,??CSDA
??mov??acc.5,??c
??clr??CSCL
??N_NOP
??setb??CSCL
??N_NOP
??mov??c,??CSDA
??mov??acc.4,??c
??clr??CSCL
??N_NOP
??setb??CSCL
??N_NOP
??mov??c,??CSDA
??mov??acc.3,??c
??clr??CSCL
??N_NOP
??setb??CSCL
??N_NOP
??mov??c,??CSDA
??mov??acc.2,??c
??clr??CSCL
??N_NOP
??setb??CSCL
??N_NOP
??mov??c,??CSDA
??mov??acc.1,??c
??clr??CSCL
??N_NOP
??setb??CSCL
??N_NOP
??mov??c,??CSDA
??mov??acc.0,??c
??clr??CSCL
??N_NOP
??TRAP_RET
工商网监
评论