'North American Phillips A82719 Stepper Motor Driver
'This is a unipolar motor with 7.5 degree steps. It runs well on 12vdc, and draws about 370
'milliamperes.
output b.4, c.3, c.4, c.5
symbol msecs = 50 'Must be at least 3 or motor will not turn; probably should be at least 4 in order
'to allow motor sufficient time to avoid motor missing pulses.
cw: for b1 = 1 to 10 'Sets number of complete revolutions clockwise.
for b0 = 1 to 12 '12 loops = 48 steps = 360 degrees clockwise.
high b.4: low c.3: low c.4: high c.5
pause 4
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause msecs
high b.4: high c.3: low c.4: low c.5
pause 4
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause msecs
low b.4: high c.3: high c.4: low c.5
pause 4
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause msecs
low b.4: low c.3: high c.4: high c.5
pause 4
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause msecs
next b0
next b1
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause 2500
ccw: for b1 = 1 to 10 'Sets number of complete revolutions counter-clockwise.
for b0 = 1 to 12 '12 loops = 48 steps = 360 degrees counter-clockwise.
low b.4: low c.3: high c.4: high c.5
pause 4
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause msecs
low b.4: high c.3: high c.4: low c.5
pause 4
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause msecs
high b.4: high c.3: low c.4: low c.5
pause 4
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause msecs
high b.4: low c.3: low c.4: high c.5
pause 4
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause msecs
next b0
next b1
low b.4: low c.3: low c.4: low c.5 'Removing power from the motor allows cooling.
pause 2500
goto cw