void p_send(PP_IDENT ppid, void *pdata, usshort ldata)
{
	char *p = (char *)pdata;
	while(ldata != 0)
	{
		if(_pipe[ppid].nocumul != dim_cond)
		{
			*_pipe[ppid].ps=*p;
			p++;
			if(_pipe[ppid].ps==&_pipe[ppid].conducta[dim_cond-1])
				_pipe[ppid].ps=_pipe[ppid].conducta;
			else
			{
				_pipe[ppid].ps++;
				ldata--;
			}
		}
		else
		{
			if(_pipe[ppid].rc!=0)
			{
				_wakeup(_pipe[ppid].itc;
				_pipe[ppid].rc=0;
			}
			_pipe[ppid].rs=ldata;
			_sleep(0);

		}
	}
	if(_pipe[ppid].rc!=0)
	{
		_wakeup(_pipe[ppid].itc;
		_pipe[ppid].rc=0;
	}
}