$regfile "m1284pdef.dat"
$crystal = 16000000
$baud = 115200

$hwstack = 64
$swstack = 64
$framesize = 64

'A4988 steppermotor drivers
X_step Alias Portd.7
X_dir Alias Portc.5

'step enable
Step_enable Alias Portd.6

Config X_step = Output
Config X_dir = Output
Config Step_enable = Output

Dim Count As Word

Print "Start program"

Reset Step_enable

Do

Print "CCW"
Set X_dir

For Count = 1 To 3200
Set X_step
Waitms 1
Reset X_step
Waitms 1
Next Count

Print "CW"
Reset X_dir

For Count = 1 To 3200
Set X_step
Waitus 40
Reset X_step
Waitus 40
Next Count

Loop

End