>;**********************************************************************
;利用串口调试精灵或PC端的超级终端,波特率设为9600,数据位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;保护现场
SWAPFSTATUS,W
CLRFSTATUS
MOVWFSTATUS_TEMP
MOVFWFSR
MOVWFFSR_TEMP
;------------------------
CHKRXINT
BANKSELPIR1
BTFSSPIR1,RCIF;检查是否为USART发出的中断请求
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=禁止连续接收功能
BSFRCSTA,CREN;1=使能连续接收功能
GOTOENDOFINT
;------------------------
_FERR_PRO
MOVFRCREG,W
GOTOENDOFINT
;************************************
;发送程序
CHKTXINT
BSFSTATUS,RP0;设置文件寄存器的体1
BTFSSPIE1,TXIE;发送中断标志使能位
GOTOENDOFINT
BCFSTATUS,RP0;恢复到文件寄存器体0

BTFSSPIR1,TXIF;发送中断标志位
GOTOENDOFINT
;-----------------------
MOVLWTXBUFF;发送暂存寄存器=20H
MOVWFFSR
MOVFTXPTR,W
ADDWFFSR,F
MOVFINDF,W
MOVWFTXREG
INCFTXPTR,F
DECFSZTXCOUNT,F;要发送的数据位数
GOTOENDOFINT
;----------------------
BSFSTATUS,RP0
BCFPIE1,TXIE;发送中断位禁止
BCFSTATUS,RP0
;--------------------------
ENDOFINT;恢复现场
CLRFSTATUS
MOVFWFSR_TEMP
MOVWFFSR
SWAPFSTATUS_TEMP,W
MOVWFSTATUS
SWAPFW_TEMP,F
SWAPFW_TEMP,W
RETFIE
;********************************************************

;********************************************************
MAIN
BANKSELTXSTA;设置文件寄存器的体1
MOVLWB’00100100’;使能USART发送,设置波特率发生器为高速方式
MOVWFTXSTA

MOVLW.25;装载波特率发生器为9600
MOVWFSPBRG

CLRFPIE1
BSFPIE1,RCIE;开放USART的接收中断
CLRFSTATUS;恢复到文件寄存器体0

CLRFTXCOUNT
CLRFGETPTR
CLRFPUTPTR

MOVLWB’10010000’;使能USART连续接收,同时使能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;发送清0

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