$regfile = "m32def.dat"             			    'für Mega32
$crystal = 16000000                                         'für 16MHz Quarz

Config Portd.5 = Output                                     'LED grün = Takt für einen Schritt
_ledgruen Alias Portd.5
Config Portd.6 = Output                                     'LED rot  = Anzeige Linkslauf =0 Rechtslauf = 1
_ledrot Alias Portd.6
Config Pind.2 = Input                                       'Taster 1 = starten der Schritte
_taster1 Alias Pind.2
Config Pind.3 = Input                                       'Taster 2 = Einstellen Links- oder Rechtslauf
_taster2 Alias Pind.3
Config Pind.4 = Input                                       'Taster 3 = Motor an / aus
_taster3 Alias Pind.4
Config Portd.7 = Output                                     'Summer   = Anzeige Motor an / aus
_summer Alias Portd.7



Do


If _taster2 = 1 Then                                        ' Links oder Rechtlauf
   Toggle _ledrot
   Bitwait _taster2 , Reset
   End If


   If _taster3 = 1 Then                                     ' Motor an / aus
   Toggle _summer
   Bitwait _taster3 , Reset
   End If



Portd.5 = 0                                                 ' Schritte starten
If _taster1 = 1 Then

 Toggle Portd.5						    'Schritt 1
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5						    'Schritt 2
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5						    ' usw.
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5
 Waitms 1
 Toggle Portd.5
 Waitms 1

 Toggle Portd.5
 Waitms 1
 Toggle Portd.5
 Waitms 500

End If

loop
End