//Arduino sketch of remote encoder for Hendriks PFR-3 transceiver

int encoderPin1 = 3;
int encoderPin2 = 2;


int downPin = 15;
int upPin = 14;


int down10Pin = 10;
int up10Pin = 12;


int stepdelay = 65;
int step10delay = 7260;


int lastMSB = 0;
int lastLSB = 0;


int pinstate = LOW;


unsigned long currentTime;
unsigned long loopTime;


void setup() {


  pinMode(encoderPin1, INPUT); 
  pinMode(encoderPin2, INPUT);
  
  pinMode(down10Pin, INPUT); 
  pinMode(up10Pin, INPUT);  
  
  pinMode(downPin, OUTPUT); 
  pinMode(upPin, OUTPUT); 
 
 pinMode(13, OUTPUT); 


  digitalWrite(encoderPin1, HIGH); 
  digitalWrite(encoderPin2, HIGH); 
  
  digitalWrite(down10Pin, HIGH);
  digitalWrite(up10Pin, HIGH); 
  
  digitalWrite(downPin, LOW);
  digitalWrite(upPin, LOW);


digitalWrite(13, LOW);


}


void loop(){ 


  updateEncoder();
  
  if (digitalRead(down10Pin)== LOW)
  {
  if (pinstate)
  {
  loopTime = 0;}
  else
  {  
  pinstate = HIGH;
  digitalWrite(downPin, pinstate);
  loopTime = millis();
  }
  
  }
    if (digitalRead(up10Pin)== LOW)
  {
      if (pinstate)
  {
  loopTime = 0;}
  else
  {  
  pinstate = HIGH;
  digitalWrite(upPin, pinstate);
  loopTime = millis();
  }
  }
  
  if (pinstate) 
  {currentTime = millis();
  if (currentTime >= (loopTime + step10delay))
  {
  pinstate = LOW;
  digitalWrite(downPin, pinstate);
  digitalWrite(upPin, pinstate);
  }
  }
}
void stepDOWN()
  {
  digitalWrite(downPin, HIGH);
  digitalWrite(13, HIGH);
  delay (stepdelay-5);
  digitalWrite(downPin, LOW);
  digitalWrite(13, LOW);
  delay (stepdelay);
  }
  
void stepUP() 
  {
  digitalWrite(upPin, HIGH);
  digitalWrite(13, HIGH);
  delay (stepdelay-5);
  digitalWrite(upPin, LOW);
  digitalWrite(13, LOW);
  delay (stepdelay);
  }


void updateEncoder()
{
    int MSB = digitalRead(encoderPin1);
    int LSB = digitalRead(encoderPin2);    
    if((!MSB) && (lastMSB))
     {    
      if(LSB) 
      {
        stepUP();
        loopTime = 0;               
      }   
      else 
      {
        stepDOWN(); 
        loopTime = 0; 
      }   
     }   
    lastMSB = MSB;
}