;該試驗功能是單片機復位一次,自動從24C02中讀取數據到數碼管顯示,然后對值加1再寫入24C02，最終數碼管中的數據就是開機的次數，具有一定的實用意義
;本電路所使用24C02為ATMEL的,或不是該廠的,則燒寫時間可能會有差異
;必須調整本程序的DELAY時間
;本實戰(zhàn)的目的是讓大家進上步熟悉I2C通信的時序，熟悉24CXX的讀寫,會用軟件模擬I2C通信

;硬件接法:
;1.24CXX的SDA接877A的RB5口，SCLK接877A的RB4口，WP接地，A0，A1，A2接地

LISTP=16F877A,R=DEC
include"P16F877A.inc"
;***********************************
__CONFIG_DEBUG_OFF&_CP_OFF&_WRT_HALF&_CPD_OFF&_LVP_OFF&_BODEN_OFF&_PWRTE_ON&_WDT_OFF&_XT_OSC;
;************************************定義查表偏移量
#defineSDAPORTB,5
#defineSCLKPORTB,4
;*********************
COUNTEQU20H
ADDREQU21H
DATEQU23H
TEMPEQU24H
;**********************
ORG000H
NOP;放置一條ICD必需的空操作指令
GOTOMAIN
ORG004H
RETURN
ORG0008H
;******************************************************
TABLE
ADDWFPCL,1;地址偏移量加當前PC值
RETLW0C0H;0
RETLW0F9H;1
RETLW0A4H;2
RETLW0B0H;3
RETLW99H;4
RETLW92H;5
RETLW82H;6
RETLW0F8H;7
RETLW80H;8
RETLW98H;9
RETLW00H;A
RETLW00H;B
RETLW00H;C
RETLW00H;D
RETLW00H;E
RETLW00H;F
;*******************************************************
MAIN
MOV LW0FFH
MOV WFPORTC;數碼管先全部熄滅
MOV LW0FFH
MOV WFPORTA
MOV LW0FFH
MOV WFPORTB;SDT,SCLK都為高

BSFSTATUS,RP0;定義RA口,RC,RB口全部為輸出
MOV LW07H
MOV WFADCON1;設置RA口全部為普通數字IO口
CLRW
MOV WFTRISB;
MOV WFTRISA
MOV WFTRISC
MOV WFOPTION_REG;開啟RB口內部弱上拉
BCFSTATUS,RP0

CLRW;地址00H
CALLRD24;讀地址
MOV WFDAT;讀出的值送F1
SUBLW.9;若讀出的值大于9,則F1送為0,從0開始(因為1位數碼管只能顯示到0-9)
BCTT2;C=0就轉TT2
TT1
CLRFDAT
TT2
MOV FWDAT
CALLTABLE;取顯示段碼
MOV WFPORTC;段碼送C口
BCFPORTA,1;點亮第一位數碼管
INCFDAT,1;每次上電,存入24CXX的00H地址的值加1
CLRW;地址00H
CALLWT24;寫24CXX
GOTO$
;****************************
RD24
MOV WFADDR;地址暫存于F4中
CALLSTART24;啟動I2C
MOV LW0A0H
CALLSUBS;寫器件地址1010000+最后一位0寫操作
MOV FWADDR;載入地址
CALLSUBS;寫地址
CALLSTART24;再發(fā)開始信號
MOV LW0A1H;寫器件地址1010000+最后一位1讀操作
CALLSUBS
BSFSTATUS,RP0
BSFTRISB,5;設SDA腳為輸入,準備讀
BCFSTATUS,RP0
MOV LW08H;共讀8位數據
MOV WFCOUNT
RD000
NOP
NOP
NOP
BSFSCLK;讀數據
NOP
BSFSTATUS,C
BTFSSSDA
BCFSTATUS,C
RLFTEMP,1
BCFSCLK
DECFSZCOUNT,1;循環(huán)讀完8位
GOTORD000
BSFSTATUS,RP0
BCFTRISB,5;恢復SDA腳為輸出
BCFSTATUS,RP0
BSFSDA
CALLDELAY2
BSFSCLK
CALLDELAY2
BCFSCLK;應答畢,SDA置1
CALLSTOP;送停止信號
MOV FWTEMP;將讀的數據送入W中
RETURN
;******************************寫入24C02程序
WT24 MOV WFADDR;先將地址暫存于F4
CALLSTART24;開始條件
MOV LW0A0H
CALLSUBS;寫器件地址1010000+最后一位0寫操作
MOV FWADDR;載入地址
CALLSUBS;寫地址
MOV FWDAT;載入數據
CALLSUBS;寫數據
CALLSTOP;停止信號
RETURN

START24
;開始條件
BSFSDA
BSFSCLK
CALLDELAY2
BCFSDA
CALLDELAY2
BCFSCLK
RETURN

STOP
BCFSDA;停止條件
NOP
NOP
BSFSCLK
CALLDELAY2
BSFSDA
RETURN

SUBS;寫數據
MOV WFTEMP;將要寫的數據存于F2中
MOV LW08H
MOV WFCOUNT;寫8位數據
SH01
RLFTEMP,1
BSFSDA
BTFSSSTATUS,C
BCFSDA
NOP
BSFSCLK
CALLDELAY2
BCFSCLK
DECFSZCOUNT,1;循環(huán)寫完8位
GOTOSH01
BSFSDA
NOP
NOP
BSFSCLK
BSFSTATUS,RP0
BSFTRISB,5
BCFSTATUS,RP0
REP
BTFSCSDA;判應答到否，未到則等待
GOTOREP
BCFSCLK
BSFSTATUS,RP0
BCFTRISB,5
BCFSTATUS,RP0
RETURN

DELAY2
NOP
NOP
NOP
NOP
RETURN
;********************************************
end;源程序結束