;**********************************************************************
;利用串口調試精靈或PC端的超級終端,波特率設為9600,數(shù)據(jù)位8位,
;停止位1位,無校驗位.
;燒寫時注意振蕩方式XT,WDT要禁止.
;***********************************************************************

LISTP=16F877
INCLUDE"P16F877.INC"
;***********************************
;__CONFIG_DEBUG_OFF&_CP_ALL&_WRT_HALF&_CPD_ON&_LVP_OFF&_BODEN_OFF&_PWRTE_ON&_WDT_OFF&_HS_OSC;
;************************
CBLOCK0x20
TXBUFF:9
TXPTR
TXCOUNT
RXBUFF:9
PUTPTR
GETPTR
STATUS_TEMP
FSR_TEMP
ENDC
;**********************************

W_TEMPEQU7FH
;**********************************
ORG0X000
GOTOMAIN
ORG0X004
GOTOINT
ORG0X008
;**********************************
INT
MOVWFW_TEMP;保護現(xiàn)場
SWAPFSTATUS,W
CLRFSTATUS
MOVWFSTATUS_TEMP
MOVFWFSR
MOVWFFSR_TEMP
;------------------------
CHKRXINT
BANKSELPIR1
BTFSSPIR1,RCIF;檢查是否為USART發(fā)出的中斷請求
GOTOCHKTXINT
;----------------------------
_RDRXFIFO
BTFSCRCSTA,FERR;幀格式錯誤標志位
GOTO_FERR_PRO

MOVLWRXBUFF;
MOVWFFSR

MOVFPUTPTR,W
ADDWFFSR,F
MOVFRCREG,W
MOVWFINDF
INCFPUTPTR,F
;MOVLW.7
;ANDWFPUTPTR,F

BTFSCPIR1,RCIF
GOTO_RDRXFIFO
;--------------------------
BTFSSRCSTA,OERR;超速出錯標志位
GOTOENDOFINT
;------------------------
_OERR_PRO
BCFRCSTA,CREN;0=禁止連續(xù)接收功能
BSFRCSTA,CREN;1=使能連續(xù)接收功能
GOTOENDOFINT
;------------------------
_FERR_PRO
MOVFRCREG,W
GOTOENDOFINT
;************************************
;發(fā)送程序
CHKTXINT
BSFSTATUS,RP0;設置文件寄存器的體1
BTFSSPIE1,TXIE;發(fā)送中斷標志使能位
GOTOENDOFINT
BCFSTATUS,RP0;恢復到文件寄存器體0

BTFSSPIR1,TXIF;發(fā)送中斷標志位
GOTOENDOFINT
;-----------------------
MOVLWTXBUFF;發(fā)送暫存寄存器=20H
MOVWFFSR
MOVFTXPTR,W
ADDWFFSR,F
MOVFINDF,W
MOVWFTXREG
INCFTXPTR,F
DECFSZTXCOUNT,F;要發(fā)送的數(shù)據(jù)位數(shù)
GOTOENDOFINT
;----------------------
BSFSTATUS,RP0
BCFPIE1,TXIE;發(fā)送中斷位禁止
BCFSTATUS,RP0
;--------------------------
ENDOFINT;恢復現(xiàn)場
CLRFSTATUS
MOVFWFSR_TEMP
MOVWFFSR
SWAPFSTATUS_TEMP,W
MOVWFSTATUS
SWAPFW_TEMP,F
SWAPFW_TEMP,W
RETFIE
;********************************************************

;********************************************************
MAIN
BANKSELTXSTA;設置文件寄存器的體1
MOVLWB’00100100’;使能USART發(fā)送,設置波特率發(fā)生器為高速方式
MOVWFTXSTA

MOVLW.25;裝載波特率發(fā)生器為9600
MOVWFSPBRG

CLRFPIE1
BSFPIE1,RCIE;開放USART的接收中斷
CLRFSTATUS;恢復到文件寄存器體0

CLRFTXCOUNT
CLRFGETPTR
CLRFPUTPTR

MOVLWB’10010000’;使能USART連續(xù)接收,同時使能USART端口
MOVWFRCSTA

CLRFINTCON
BSFINTCON,PEIE;使能外設中斷使能位
BSFINTCON,GIE;使能全局中斷使能位
;*********************************
LOOP
CALLCHECK_DATA
GOTOLOOP
;*********************************
CHECK_DATA
CLRFSTATUS
MOVFTXCOUNT,W
SKPZ;BTFSSSTATUS,Z
RETURN
;--------------------------------
MOVFGETPTR,W
XORWFPUTPTR,W
SKPNZ;BTFSCSTATUS,Z
RETURN
;--------------------------------
MOVLWRXBUFF
MOVWFFSR
MOVFGETPTR,W
ADDWFFSR,F

INCFGETPTR,F
;MOVLW.7
;ANDWFGETPTR,F

MOVFINDF,W
MOVWFTXBUFF+0
;-------------------------------
;MOVLW’-’
;MOVWFTXBUFF+1
;MOVLW’P’
;MOVWFTXBUFF+2
;MOVLW’I’
;MOVWFTXBUFF+3
;MOVLW’C’
;MOVWFTXBUFF+4
;MOVLW’A’
;MOVWFTXBUFF+5
;MOVLW’V’
;MOVWFTXBUFF+6
;MOVLW’R’
;MOVWFTXBUFF+7
;------------------------------
MOVLW0X0D;回車鍵
MOVWFTXBUFF+1
MOVLW0X0A;換行鍵
MOVWFTXBUFF+2
;------------------------------
MOVLW.3
MOVWFTXCOUNT
CLRFTXPTR;發(fā)送清0

BSFSTATUS,RP0
BSFPIE1,TXIE
BCFSTATUS,RP0
RETURN
;-------------------------------
END