...R_serial () interrupt 4
{
	if(RI)
	{
		 serialR = SBUF;
		 RI=0;
		 *PtrRx = serialR;
		 ++PtrRx;
	} /* wait for receive data */
	else
		TI = 0;
}
...