' ********************************************
' * Title         : Stepper Motor Sample     *
' * Last Updated  : 1385/5/16                *
' * Target        : Atmega8L                 *
' * Program code  : BASCOM AVR               *
' * Author        : Foad Alikhani            *
' * WebSite       : Www.Mechatronics.Co.Sr   *
' * E-mail        : foad_8x@yahoo.com        *
' ********************************************

$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Output
Dim A As Byte , B As Byte , E As Byte , F As Byte
Do
For A = 1 To 50
E = 128
For B = 1 To 4
Rotate E , Left
Portc = E
Waitms 20
Next B
Next A
Wait 1
For A = 1 To 50
F = 129
E = 128
For B = 1 To 4
Rotate E , Left
Portc = E
Waitms 20
Rotate F , Left
If F = 24 Then F = 9
Portc = F
Waitms 20
Next B
Next A
Loop
End