技术支持

设计开发

专注差异化嵌入式产品解决方案给智能产品定制注入灵魂给予生命

开发工具

提供开发工具、应用测试完善的开发代码案例库分享

技术支持

从全面的产品导入到强大技术支援服务全程贴心伴随服务，创造无限潜能！

新品推广

提供新的芯片及解决方案，提升客户产品竞争力

新闻中心

提供最新的单片机资讯，行业消息以及公司新闻动态

深圳市龙岗区坂田环城南路坂田国际中心C2栋815

4007-888-234

enroo@enroo.com

样品申请

PIC单片机通讯EEPROM源程序（来源：21BBS）

更新时间: 2019-03-21

阅读量：360

;=======================================

;PIC16C74B单片机与AT24C64通讯

;该程序实现的功能是：

;将I2C_A,I2C_B.....I2C_K内容写入EEPROM中

;同时在EEPROM中读出数据从新写入各个寄存器

;=======================================

LIST P=16C74B

#include

ERRORLEVEL -302

I2C_A EQU 0X20

I2C_B EQU 0X21

I2C_C EQU 0X22

I2C_D EQU 0X23

I2C_E EQU 0X24

I2C_F EQU 0X25

I2C_G EQU 0X26

REG1 EQU 0X2B

REG2 EQU 0X2C

COUNT EQU 0X71 ;I2C

BCOUNT EQU 0X72 ;I2C

TXBUF EQU 0X73 ;I2C

RXBUF EQU 0X74 ;I2C

BUSCON EQU 0X75 ;I2C

BUSSTA EQU 0X76 ;I2C

I2CBUF EQU 0X77 ;I2C

SLAVEADDR EQU 0XA0 ;I2C

DATAADDRH EQU 0X01 ;I2C

DATAADDRL EQU 0X00 ;I2C

;---------------------------------------

;BUSCON

;---------------------------------------

SLAVE_RW EQU 7

LAST_BYTE_RX EQU 6

SLAVE_ACTIVE EQU 5

TIME_OUT EQU 4

;---------------------------------------

;BUSSTA

;---------------------------------------

BUS_BUSY EQU 7

TX_PROGRESS EQU 6

RX_PROGRESS EQU 5

TX_SUCCESS EQU 4

RX_SUCCESS EQU 3

FATAL_ERROR EQU 2 ;SLAVE EEPROM

ABORT EQU 1

ACK_ERROR EQU 0

;---------------------------------------

R_NOT_W EQU 0

TRUE EQU 1

FALSE EQU 0

SDA EQU 0X04 ;I2C

SCL EQU 0X03 ;I2C

;=======================================

ORG 0X00

GOTO START

ORG 0X20

START BCF STATUS,RP1

BCF STATUS,RP0

CLRF RA

CLRF RB

CLRF RC

CLRF RD

CLRF RE

BSF STATUS,RP0

CLRF TRISA

CLRF TRISB

CLRF TRISC

CLRF TRISD

CLRF TRISE

MOVLW 0X02

MOVWF I2C_A

MOVLW 0X04

MOVWF I2C_B

MOVLW 0X03

MOVWF I2C_C

MOVLW 0X03

MOVWF I2C_D

MOVLW 0X05

MOVWF I2C_E

MOVLW 0X06

MOVWF I2C_F

MOVLW 0X04

MOVWF I2C_G

;=======================================

START1

CALL I2CBUS_INIT

CALL REGTOI2CBUF

CALL I2CWRITE

CALL CLRI2CBUF

CALL D10

CALL I2CREAD

CALL I2CBUFTOREG

GOTO START1

;=======================================

;CLRI2CBUF

;---------------------------------------

CLRI2CBUF

BCF STATUS,RP0

MOVLW I2CBUF

MOVWF FSR

MOVLW 0X08

MOVWF COUNT

CLRLOOP CLRF INDF

INCF FSR,F

DECFSZ COUNT,F

GOTO CLRLOOP

RETURN

;---------------------------------------

;将各个REGSTER数据写入 I2CBUF 缓冲区

;---------------------------------------

REGTOI2CBUF

BCF STATUS,RP0

MOVLW I2CBUF

MOVWF FSR

MOVF I2C_A,W

MOVWF INDF

INCF FSR,F

MOVF I2C_B,W

MOVWF INDF

INCF FSR,F

MOVF I2C_C,W

MOVWF INDF

INCF FSR,F

MOVF I2C_D,W

MOVWF INDF

INCF FSR,F

MOVF I2C_E,W

MOVWF INDF

INCF FSR,F

MOVF I2C_F,W

MOVWF INDF

INCF FSR,F

MOVF I2C_G,W

MOVWF INDF

RETURN

;---------------------------------------

;将 I2CBUF 缓冲区数据写入各个REGSTER

;---------------------------------------

I2CBUFTOREG

BCF STATUS,RP0

MOVLW I2CBUF

MOVWF FSR

MOVF INDF,W

MOVWF I2C_A

INCF FSR,F

MOVF INDF,W

MOVWF I2C_B

INCF FSR,F

MOVF INDF,W

MOVWF I2C_C

INCF FSR,F

MOVF INDF,W

MOVWF I2C_D

INCF FSR,F

MOVF INDF,W

MOVWF I2C_E

INCF FSR,F

MOVF INDF,W

MOVWF I2C_F

INCF FSR,F

MOVF INDF,W

MOVWF I2C_G

RETURN

;=======================================

;将I2CBUF缓冲区内的数据写入EEPROM

;=======================================

I2CWRITE

CALL I2CSTART

BTFSS BUSSTA,BUS_BUSY

GOTO TX_FAIL

BCF BUSCON,SLAVE_RW

CALL TX_SLAVE_ADDR

BTFSS BUSSTA,TX_SUCCESS ;SUCESSFULL?

GOTO TX_FAIL

CALL TX_DATA_ADDR

BTFSS BUSSTA,TX_SUCCESS

GOTO TX_FAIL

MOVLW I2CBUF

MOVWF FSR

MOVLW 07

MOVWF COUNT

T_BYTE_LOOP

MOVF INDF,W

MOVWF TXBUF

CALL I2CTXB

BTFSS BUSSTA,TX_SUCCESS

GOTO TX_FAIL

INCF FSR,F

DECFSZ COUNT,F

GOTO T_BYTE_LOOP

GOTO TX_PASS

TX_FAIL CALL I2CSTOP

BCF BUSSTA,TX_PROGRESS

BCF BUSSTA,TX_SUCCESS

RETLW FALSE

TX_PASS

CALL I2CSTOP

BCF BUSSTA,TX_PROGRESS

RETLW TRUE

;---------------------------------------

;从 EEPROM 中读出数据到 I2CBUF 寄存器

;---------------------------------------

I2CREAD BCF STATUS,RP0

BCF BUSSTA,RX_SUCCESS

CALL I2CSTART

BTFSS BUSSTA,BUS_BUSY

GOTO RX_FAIL

BCF BUSCON,SLAVE_RW

CALL TX_SLAVE_ADDR

BTFSS BUSSTA,TX_SUCCESS

GOTO RX_FAIL

CALL TX_DATA_ADDR

BTFSS BUSSTA,TX_SUCCESS

GOTO RX_FAIL

CALL I2CSTART

BSF BUSCON,SLAVE_RW

CALL TX_SLAVE_ADDR

BTFSS BUSSTA,TX_SUCCESS

GOTO RX_FAIL

BCF BUSSTA,LAST_BYTE_RX

MOVLW I2CBUF

MOVWF FSR

MOVLW 07

MOVWF COUNT

R_BYTE_LOOP

MOVLW 0X01

XORWF COUNT,W

BTFSC STATUS,Z

BSF BUSSTA,LAST_BYTE_RX

CALL I2CRXB

BTFSS BUSSTA,RX_SUCCESS

GOTO RX_FAIL

MOVF RXBUF,W

MOVWF INDF

INCF FSR,F

DECFSZ COUNT,F

GOTO R_BYTE_LOOP

GOTO RX_PASS

RX_FAIL CALL I2CSTOP

BCF BUSSTA,RX_PROGRESS

BCF BUSSTA,RX_SUCCESS

RETLW FALSE

RX_PASS CALL I2CSTOP

BCF STATUS,RP0

BCF BUSSTA,TX_PROGRESS

BCF BUSSTA,RX_PROGRESS

BSF BUSSTA,RX_SUCCESS

RETLW TRUE

;=======================================

; I2C 初始化

;=======================================

I2CBUS_INIT

BCF STATUS,RP0

MOVF RC,W

ANDLW 0X18

MOVWF RC

CLRF BUSSTA

CLRF BUSCON

RETURN

;=======================================

; 传送设备地址

;入口: BUSCON

;出口: BUSSTA

;=======================================

TX_SLAVE_ADDR

BCF STATUS,RP0

BCF BUSSTA,ACK_ERROR

MOVLW SLAVEADDR

MOVWF TXBUF

BTFSC BUSCON,SLAVE_RW

BSF TXBUF,R_NOT_W

CALL I2CTXB

BTFSC BUSSTA,TX_SUCCESS

GOTO TXADDR_SUCCESS

CLRWDT

BTFSS BUSSTA,ACK_ERROR

CALL I2CSTOP

GOTO TXADDR_END

TXADDR_SUCCESS

CLRWDT

TXADDR_END

RETURN

;=======================================

;TX_DATA_ADDR 发送写/读的地址

;=======================================

TX_DATA_ADDR

BCF STATUS,RP0

MOVLW DATAADDRH

MOVWF TXBUF

CALL I2CTXB

BCF STATUS,RP0

BTFSS BUSSTA,TX_SUCCESS

GOTO TX_DATA_ADDR_ERROR

MOVLW DATAADDRL

MOVWF TXBUF

CALL I2CTXB

BCF STATUS,RP0

BTFSS BUSSTA,TX_SUCCESS

GOTO TX_DATA_ADDR_ERROR

GOTO TX_DATA_END

TX_DATA_ADDR_ERROR

BCF BUSSTA,TX_PROGRESS

BCF BUSSTA,TX_SUCCESS

BSF BUSSTA,ACK_ERROR

TX_DATA_END

RETURN

;=======================================

;向 EEPROM 输出一个8位数据，并检测EEPROM的ACK信号

;入口: TXBUF 寄存器

; BUSSTA 寄存器

;出口: EEPROM 存储器

; BUSSTA 寄存器

;======================================

I2CTXB BCF STATUS,RP0

BSF BUSSTA,TX_PROGRESS

BCF BUSSTA,TX_SUCCESS

MOVLW 0X08

MOVWF BCOUNT

TXLOOP CLRWDT

BSF STATUS,RP0

BCF TRISC,SCL

NOP

BCF TRISC,SDA

BCF STATUS,RP0

RLF TXBUF,F

BSF STATUS,RP0

BTFSC STATUS,C

BSF TRISC,SDA

NOP

BSF TRISC,SCL

NOP

BCF STATUS,RP0

DECFSZ BCOUNT,F

GOTO TXLOOP

;---------------------------------------

;检测是EEPROM否有ACK信号产生,产生为正常

;检测方法:

; 1. 将RC口的SCL.SDA分别设置为输出和输入状态

; 2. 延时2个指令周期,将SCL设置为高电平

; 3. 延时2个指令周期,检测RC口SDA的状态

; 4. 如果为高电平,设置错误状态,返回

; 5. 如果为低电平,延时2个指令周期后,将RC口SCL设置为低电平,继续执行

;---------------------------------------

BSF STATUS,RP0

BCF TRISC,SCL

BSF TRISC,SDA

NOP

BSF TRISC,SCL

NOP

BCF STATUS,RP0

BTFSC RC,SDA

GOTO TX_ERR

BSF STATUS,RP0

BCF TRISC,SCL

BCF STATUS,RP0

BCF BUSSTA,TX_PROGRESS

BSF BUSSTA,TX_SUCCESS

BCF BUSSTA,ACK_ERROR

GOTO TX_END

TX_ERR BCF BUSSTA,TX_PROGRESS

BCF BUSSTA,TX_SUCCESS

BSF BUSSTA,ACK_ERROR

TX_END RETURN

;=======================================

;从EEPROM中读出 8 位的数据,并发送发送ACK信号

;入口: EEPROM 存储器

; BUSCON 寄存器

;出口: RXBUF 寄存器

; BUSSTA 寄存器

;=======================================

I2CRXB BCF STATUS,RP0

BSF BUSSTA,RX_PROGRESS

BCF BUSSTA,RX_SUCCESS

MOVLW 0X08

MOVWF BCOUNT

RXLOOP CLRWDT

BSF STATUS,RP0

BCF TRISC,SCL ;定义TRISC为输出

BSF TRISC,SDA ;定义TRISC为输入

NOP

BSF TRISC,SCL ;TRISC输出高电平

NOP

BCF STATUS,RP0

BCF STATUS,C

BTFSC RC,SDA ;原指令为BTFSC TRISC,SDA

BSF STATUS,C

RLF RXBUF,F

DECFSZ BCOUNT,F

GOTO RXLOOP

;---------------------------------------

;发送ACK信号到EEPROM

;判断接收的是否为最后一个字节

;LAST_BYTE_RX为1,是 SDA发送一个高电平,结束

;LAST_BYTE_RX为0,不是 SDA发送一个低电平ACK,继续接收

;---------------------------------------

BSF STATUS,RP0

BCF TRISC,SCL

BCF TRISC,SDA

BTFSC BUSCON,LAST_BYTE_RX ;检测是否是最后一个字节

BSF TRISC,SDA ;是最后一个字节

NOP ;发送ACK信号

BSF TRISC,SCL

NOP

BCF TRISC,SCL

BCF STATUS,RP0

BCF BUSSTA,RX_PROGRESS

BSF BUSSTA,RX_SUCCESS

RETURN

;=======================================

;I2C 开始信号

;输入: 无

;输出: BUFSSTA

;=======================================

I2CSTART

BSF STATUS,RP0

BSF TRISC,SDA ;1US

NOP ;1US

BSF TRISC,SCL ;1US

NOP

BCF TRISC,SDA

NOP

BCF STATUS,RP0

BSF BUSSTA,BUS_BUSY

RETURN

;=======================================

;I2C 结束信号

;输入: 无

;输出: BUSSTA

;=======================================

I2CSTOP

BSF STATUS,RP0

BCF TRISC,SCL

BCF TRISC,SDA

BSF TRISC,SCL

NOP

BSF TRISC,SDA

NOP

BCF STATUS,RP0

BCF BUSSTA,BUS_BUSY

RETURN

;=======================================

; D10 @

; clock in 4Mhz

; delay 10ms

;=======================================

D10 MOVLW 0X0D

MOVWF REG1

LOOP2 MOVLW 0XFF

MOVWF REG2

LOOP1 DECFSZ REG2,f

GOTO LOOP1

DECFSZ REG1,f

GOTO LOOP2

RETURN

;=======================================

I2CERR CLRWDT

NOP

RETURN

END

SSP控制寄存器SSPCON

WCOL SSPOV SSPEN CKP SSPM3 SSPM2 SSPM1 SSPM0 地址：14h上电值：00h

│ │ │ │ │ │

│ │ │ │ ├────────────┘

│ │ │ │ │

│ │ │ │ └── 同步串行口（SSP）模式选择

│ │ │ │ 0000= SPI主控模式，时针=OSC/4

│ │ │ │ 0001= SPI主控模式，时针=OSC/16

│ │ │ │ 0010= SPI主控模式，时针=OSC/64

│ │ │ │ 0011= SPI主控模式，时钟=TMR2输出/2

│ │ │ │ 0100= SPI从属模式，时钟=SCK脚输入，SS脚使能

│ │ │ │ 0101= SPI从属模式，时钟=SCK脚输入，SS脚关闭

│ │ │ │ 0110=I2C从属模式，7位地址

│ │ │ │ 0111=I2C从属模式，10位地址

│ │ │ │ 1011=I2C主控模式（从属模式关闭）

│ │ │ │ 1110=I2C从属模式，7位地址，并支持主控模式

│ │ │ │ 1111=I2C从属模式，10位地址，并支持主控模式

│ │ │ └───── 时钟极性选择

│ │ │ ·SPI模式

│ │ │ 1=下降沿发送，上升沿接收

│ │ │ 0=上升沿发送，下降沿接收

│ │ │ ·I2C模式

│ │ │ 1=时钟使能（时钟线释放）

│ │ │ 0=时钟线锁定为低电平，以保证数据建立时间

│ │ └────── 同步串行口（SSP）使能位

│ │ ·SPI模式

│ │ 1=使能SPI模块，并定义SCK，SDO和SDI为传输线

│ │ 0=关闭SPI模块，释放SCK，SDO和SDI为一般I/O线

│ │ ·I2C模式:

│ │ 1=使能I2C模块，并定义SDA和SCL为传输线

│ │ 0=关闭I2C模块，释放SDA和SCL为一般I/O线

│ │ 注：当使能SPP时，这些传输线应由用户定义为正确的

│ │ 输入/输出方向，详见各相应章节。

│ └────────── 接收溢出位。

│ 1=发生接收溢出，详见具体章节介绍。

│ 0=未发生接收溢出。

└─────────────── 写操作冲突标志位

1=在传送过程中又有数据试图写入SSPBUF寄存器。

该位需由软件清零。

0=未发生写操作冲突。

SSP状态寄存器SSPSTAT

R R R R R R

─ ─ D/A P S R/W UA BF 地址：94h上电值：00h

│ │ │ │ │ │ │ │

└┬┘ │ │ │ │ │ └──── 缓冲区满

│ │ │ │ │ │ ·接收（SPI和I2C模式）

│ │ │ │ │ │ 1=接收完成，SSPBUF满

│ │ │ │ │ │ 0=接收未完成，SSPBUF空

│ │ │ │ │ │ ·发送（I2C模式）

│ │ │ │ │ │ 1=发送正在进行，SSPBUF满

│ │ │ │ │ │ 0=发送已经完成，SSPBUF空

│ │ │ │ │ └────── 地址更新（10位I2C从属模式）

│ │ │ │ │ 1=通知用户更新SSPADD中的地址

│ │ │ │ │ 0=地址尚不需更新

│ │ │ │ └───────── 读/写信息位（I2C模式），该位记录I2C

│ │ │ │ 的读/写状态。用户需用这个位来判

│ │ │ │ 断发送和接收状态。

│ │ │ │ 1=读

│ │ │ │ 0=写

│ │ │ └────────────── 起始位（I2C模式）

│ │ │ 1=I2C线上检测到起始位

│ │ │ 0=I2C线上未检测到起始位

│ │ └───────────────── 停止位（I2C模式）

│ │ 1=I2C线上检测到停止位

│ │ 0=I2C线上未检测到停止位

│ └──────────────────── 数据/地址位（I2C模式）

│ 1=最后收到的字节是数据

│ 0=最后收到的字节是地址

└──────────────────────── 未用

上一篇: PIC单片机的I2C读写源程序

下一篇: PIC单片机模拟异步串行通讯UART