extern CNServerApp theApp;
// список портов
    CPtrList PortList;


PointCKP=new CKP();
  PointCKP->Dsp_Number=(unsigned char)YkytSet.m_KpID;
  ArrKP[PointCKP->Dsp_Number]=TRUE;
  PointCKP->Net_Number=YkytSet.m_NetNum;
  PointCKP->port=YkytSet.m_Port;
  PointCKP->Prot=YkytSet.m_IDMOD;




// создадим структуру портов
    pos = theApp.KPList.GetHeadPosition();
	while (pos != NULL)
	{   
		PointCKP=(CKP *)theApp.KPList.GetAt(pos);
		pos1=theApp.PortList.GetHeadPosition();
		AddPort=TRUE;
		while (pos1 != NULL)
        { PPort=(PPARAMS)theApp.PortList.GetAt(pos1);
		 if(PointCKP->port==PPort->port)
		 {AddPort=FALSE;break;}
		 else theApp.PortList.GetNext(pos1);
		}
        if(AddPort==TRUE)
		{ PPort=new PARAMS();
		  PPort->bKill=FALSE;
          PPort->port=PointCKP->port;
		  theApp.PortList.AddTail(PPort);
        } 
		theApp.KPList.GetNext(pos);
	}



// запускаем потоки с портами
pos1=theApp.PortList.GetHeadPosition();
while (pos1 != NULL)
{ PPort=(PPARAMS)theApp.PortList.GetAt(pos1);
  _beginthread (Thread2,0,PPort);
  theApp.PortList.GetNext(pos1);
}





//////////////////////////////////////////////////////////////
//        Текст основной функции
//////////////////////////////////////////////////////////////
void _cdecl Thread2 (PVOID pvoid)
{
 PPARAMS pparams_new;    

 POSITION pos;
 CKP * PointCKP;
 
 
  pparams_new = (PPARAMS) pvoid ;

// Основной цикл 
  while (!pparams_new->bKill)
  {
 pos = theApp.KPList.GetHeadPosition();
 while (pos != NULL)
 { PointCKP=(CKP *)theApp.KPList.GetAt(pos);
   if(pparams_new->port==PointCKP->port)
   {   
	// делаем что-то
   }
   
   theApp.KPList.GetNext(pos);
 }

 } // end while 

_endthread () ;

}// end функции Thread

main()
{
  for(;;)
  { 
     // если получен пакет с ip-адреса запускаем поток на его обработку
     pthread_create(thread,NULL,thread_func,thread_data);
  }  
  // здесь надо ждать завершения всех потоков? 
  
}


void * thread_func(void thread_data)
{
  // обрабатываем пакеты от ip-адреса и завершаемся
  pthread_exit(0);
}