實驗目的：熟悉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 ;源程序結束