PIC单片机对9346EEPROM程序的读写设计

由于在使用时，找了很久也没找到相关的程序，因此把自己后来编写的程序贴出来，希望能给后来者借鉴参考！;实验目的：熟悉SPI总线以及9346EEPROM的读写

;RBO键按下时把DATA和DATA2写入到EEPROM中以EE—ADDR为地址的单元内，

;完成后，单个数码观显示“9”做为完成标志

;RB1键按下时，读取EEPROM中以EE—ADDR为地址的单元，并送数码管显示

;硬件要求：S3、S5、S6拨码管置ON，S1第7、8位置ON。

LIST P=16F877A， R=DEC

include “P16F877A.inc” ;包含头文件

__CONFIG _DEBUG_OFF&_CP_ALL&_WRT_HALF&_CPD_ON&_LVP_OFF&_BODEN_OFF&_PWRTE_ON&_WDT_OFF&_HS_OSC

#DEFINE CS PORTC，2 ;片选信号

#DEFINE CLK PORTC，3 ;时钟信号输入

#DEFINE DI PORTC，5 ;数据输入脚

#DEFINE D0 PORTC，4 ;数据输出脚EE_ADDR EQU 05H ;待写EEPROM单元地址EE_DATA EQU 56H ;待写入的数据

EE_DATA2 EQU 78HTEMP1 EQU 30H ;读EEPROM结果存放单元

TEMP2 EQU 31H

DL1 EQU 77H ;延时用

DL2 EQU 78H ;延时用

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

ORG 000H ;复位地址

NOP ;放置一条ICD必需的空操作指令

GOTO MAIN

ORG 0008H

TABLE

ADDWF PCL，1 ;PC值加上偏移地址

RETLW 0C0H ;0

RETLW 0F9H ;1的编码

RETLW 0A4H ;2的编码

RETLW 0B0H ;3的编码

RETLW 99H ;4的编码

RETLW 92H ;5的编码

RETLW 082H ;6

RETLW 0F8H ;7

RETLW 080H ;8

RETLW 090H ;9

RETLW 88H ;A

RETLW 083H ;b

RETLW 0C6H ;c

RETLW 0A1H ;d

RETLW 086H ;E

RETLW 08EH ;F

RETLW 0FFH

;********************主程序***************************

MAIN

MOVLW 0FFH

MOVWF PORTD

CLRF TEMP1

BANKSEL SSPSTAT

MOVLW b‘10000000’

MOVWF SSPSTAT ;SMP=1，CKE=0

MOVLW B‘11010000’

MOVWF TRISC ;D0输入，DI输出，CLK输出

MOVLW 0FFH

MOVWF TRISB

CLRF TRISD

CLRF TRISA

MOVLW 06H

MOVWF ADCON1

CLRF STATUS

CLRF INTCON ;清除所有中断使能位

CLRF PIR1 ;清除SSP中断标志位

BCF CS ;片选禁止

MOVLW B‘00110001’

MOVWF SSPCON ;CKP=1，SSPEN=1，SPI主模式Fosc/16LOOP

CLRF STATUS

BTFSC PORTB，0

GOTO EE_READ

CALL WRITE_EE

MOVLW 90H

MOVWF PORTD

MOVLW 0FEH

MOVWF PORTA

GOTO $

EE_READ

BTFSC PORTB，1

GOTO MAIN

CALL READ_EE

CALL DISPLAY

GOTO $-1

;**********************写使能*********************************

WRITE_EE

BSF CS ;片选使能

MOVLW B‘00000001’ ;发送起始位

; MOVLW

CALL SPI_COMM ;发送

MOVLW B‘00110000’ ;写使能命令代码

CALL SPI_COMM ;发送

BCF CS ;片选禁止

NOP

NOP ;延时一定时间;*********************写数据**********************************

;入口参数：EE_ADDR，EE_DATA，EE_DATA2

;出口参数：无

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

BSF CS ;片选使能

MOVLW B‘00000001’ ;发送起始位

CALL SPI_COMM ;发送

MOVLW EE_ADDR ;发送待写单元的地址

IORLW B‘01000000’ ;地址加上写命令代码

CALL SPI_COMM

MOVLW EE_DATA ;发送待写入的数据

CALL SPI_COMM

MOVLW EE_DATA2

CALL SPI_COMM ;再次发送8位数据，组成16位数据

BCF CS ;片选禁止

NOP

NOP

NOP ;延时一定时间

BSF CS ;片选使能

NOP

NOP

BTFSS D0 ;判断内部写操作是否完成

GOTO $-1 ;正在操作，等待完成

BCF CS ;片选禁止

NOP

NOP ;延时一定时间

RETURN;*********************读数据***********************************

;入口参数：EE_ADDR

;出口参数：TEMP1，TEMP2

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

READ_EE

BSF CS ;片选使能

NOP

NOP ;延时一定时间

MOVLW B‘00000001’ ;发送起始位

CALL SPI_COMM

MOVLW EE_ADDR ;发送待读单元地址

IORLW B‘10000000’ ;地址加上读命令代码

CALL SPI_COMM

MOVLW 00H

CALL SPI_COMM ;读取EEPROM中指定单元高8位数据

MOVWF TEMP1 ;保存到结果存放单元

MOVLW 00H

CALL SPI_COMM ;读取EEPROM中指定单元低8位数据

MOVWF TEMP2

NOP

BCF CS ;片选禁止

NOP

NOP

MOVLW 0FH

ANDWF TEMP1，0

MOVWF 61H

SWAPF TEMP1，0

ANDLW 0FH

MOVWF 60H

MOVLW 0FH

ANDWF TEMP2，0

MOVWF 63H

SWAPF TEMP2，0

ANDLW 0FH

MOVWF 62H

RETURN

;*****************发送命令/数据和读取数据子程序*************

SPI_COMM

MOVWF SSPBUF ;SSPBUF中写入数据，启动发送接收过程

BTFSS PIR1，SSPIF ;判断是否发送/接收完成

GOTO $-1 ;等待完成

BCF PIR1，SSPIF ;清除中断标志位

MOVF SSPBUF，W ;清空SSPBUF，以便下一次通信

RETURN ;子程序返回;**********************延时程序******************************

DELAY10MS

MOVLW 0CH

MOVWF DL1

DELAY2

MOVLW 0FFH

MOVWF DL2

DELAY1

DECFSZ DL2，1

GOTO DELAY1

DECFSZ DL1，1

GOTO DELAY2

RETURN

;**********************显示程序******************************

;入口参数：60H-63H

;无

;***********************************************************DISPLAY

MOVFW 60H

CALL TABLE

MOVWF PORTD

BCF PORTA，0

CALL DELAY10MS

BSF PORTA，0 MOVFW 61H

CALL TABLE

MOVWF PORTD

BCF PORTA，1

CALL DELAY10MS

BSF PORTA，1 MOVFW 62H

CALL TABLE

MOVWF PORTD

BCF PORTA，2

CALL DELAY10MS

BSF PORTA，2 MOVFW 63H

CALL TABLE

MOVWF PORTD

BCF PORTA，3

CALL DELAY10MS

BSF PORTA，3

RETURN;********************************************

end ;源程序结束