Код Arduino не работает для униполярного шагового двигателя

Я использую униполярный шаговый двигатель 1,8 градуса. Я написал код для вращения шагового двигателя, то есть, когда вывод A0 становится HIGH, он должен вращаться по часовой стрелке, а когда вывод A1 становится HIGH, он должен двигаться против часовой стрелки, но двигатель вращается только один раз, когда я делаю A0/A1 HIGH, а затем останавливается. После этого он не вращается, даже если я делаю выводы A0, A1 высокими. Я совсем новичок в этом, пожалуйста, скажите, как решить эту проблему. Я использую микрошаговый привод, шаговый двигатель Nema 17 и плату Arduino Uno.

#include <Stepper.h>

#define STEPS_PER_MOTOR_REVOLUTION 32

#define STEPS_PER_OUTPUT_REVOLUTION 32 * 200 //2048  

Stepper small_stepper(STEPS_PER_MOTOR_REVOLUTION, 9, 8);
int  Steps2Take;
int buttonApin = A0;
int buttonBpin = A1;
int dirpin = 8;
int steppin = 9;
void setup()
{
  pinMode(buttonApin, INPUT);
  pinMode(buttonApin, INPUT);
  pinMode(dirpin, OUTPUT);
  pinMode(steppin, OUTPUT);
  small_stepper.setSpeed(1900);
}
void loop()
{
  int valA = digitalRead(buttonApin);

  if (valA == HIGH)
  { digitalWrite(dirpin, HIGH);
    for (int x = 0; x < 100; x++)
    { digitalWrite(steppin, HIGH);
      delayMicroseconds(1000);
      digitalWrite(steppin, LOW);
      delayMicroseconds(1000);
    }
  }
  int valB = digitalRead(buttonBpin);

  if (valB == HIGH)
  {
    digitalWrite(dirpin, LOW);
    for (int x = 0; x < 100; x++)
    {
      digitalWrite(steppin, LOW);
      delayMicroseconds(1000);
      digitalWrite(steppin, HIGH);
      delayMicroseconds(1000);
    }
  }
}