int le,li,lcom,ps;

  if ((le=opencom(argv[1],&lcom))!=0){
    printf("Error %i when open com port %s",le,argv[1]);
    return le;
  } 
  li=0;
  le=0;
// очистим DTR
ioctl(lcom, TIOCMGET, &ps);
ps &= ~TIOCM_DTR;
ioctl(lcom, TIOCMSET, &ps);  
//в цикле то устанавливаю, то сбрасываю RTS чтобы видно было что в ps он меняется
  
  while  (le++ < 1000000) {
    ioctl(lcom, TIOCMGET, &ps);	
    if (le % 2000 == 0) {
     li=1-li;
     if (li==1) { ps &= ~TIOCM_RTS;} else  {ps |= TIOCM_RTS;}
     ioctl(lcom, TIOCMSET, &ps);	
    }   
    printf("\n %i ", ps);	
    if ((ps & TIOCM_CTS)>0) {printf("CTS");}
  }
  close(lcom);
  printf("\n Test completed \n");

int opencom(char *device, int *lcom){
	struct termios adtio;
	if ((*lcom = open(device, O_RDWR| O_NOCTTY)) < 0) {return 1;}
	if ( flock(*lcom, LOCK_EX) < 0 ) {return 2;}
	memset(&adtio, 0, sizeof(adtio));
	adtio.c_cflag &= ~PARENB;      // No parity
	adtio.c_cflag &= ~CSTOPB;      // One stop bit
	adtio.c_cflag &= ~CSIZE;       // Character size mask
	adtio.c_cflag |= CS8;          // Character size 8 bits
	adtio.c_cflag |= CREAD;        // Enable Receiver
	adtio.c_cflag &= ~HUPCL;       // No "hangup"
	adtio.c_cflag |= CLOCAL;       // Ignore modem control lines
	cfsetispeed(&adtio, 115200);
	cfsetospeed(&adtio, 115200);	
	adtio.c_lflag = 0;
	adtio.c_oflag &= ~OPOST;
	adtio.c_iflag = IGNBRK|IGNPAR;
	adtio.c_cc[VTIME] = 10;		// timer 1s
	adtio.c_cc[VMIN] = 0;		// blocking read until 1 char
	if (tcsetattr(*lcom, TCSANOW, &adtio) < 0) {return 3;}
	tcflush(*lcom, TCIOFLUSH);
	return 0;
}