' ********************************************
' * 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

Dim A As Byte
Config Portc = Output

Do
for a = 1 to 50
   Portc = 3
   Waitms 3
   Portc = 6
   Waitms 3
   Portc = 12
   Waitms 3
   Portc = 9
   Waitms 3
next

for a = 1 to 50
    Portc = 9
    Waitms 3
    Portc = 12
    Waitms 3
    Portc = 6
    Waitms 3
    Portc = 3
    Waitms 3
Next

loop
end