用PIC16f877A单片机读写93LC46B的汇编程序

由于在使用时，找了很久也没找到相关的程序，因此把自己后来编写的程序贴出来，希望能给后来者借鉴参考！（此程序配合WWW.PIC16.COM单片机学习网的QL200开发板使用）;实验目的：熟悉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 ;源程序结束