Guten Morgen!

Danke das du mir noch weiterhilfst.
Hier der Code inclusive deinem:
Code:
$regfile = "m32def.dat"
$hwstack = 64
$swstack = 96
$framesize = 32

Declare Sub Schrittmotor()                                  'Subs Ports und Variablen declarieren
Declare Sub Rechts0()
Declare Sub Rechts()
Declare Sub Links0()
Declare Sub Links()
Dim I As Integer


$crystal = 16000000
$baud = 9600




Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Portc.0 = 0
Portc.0 = 0
Portc.0 = 0

Config Pind.2 = Output
Config Pind.3 = Output
Config Pind.7 = Output


Do                                                          'Hauptprogramm
For I = 0 To 2
If Portc.i = 1 Then
Call Schrittmotor
Else
Waitms 20
End If
Next I
Loop
End

Sub Schrittmotor()
If Portc.0 = 1 And Portc.1 = 0 Then
   If Portc.2 = 0 Then
   Call Links0
   Else
   Call Links
   End If
   Else
   If Portc.0 = 0 And Portc.1 = 1 Then
      If Portc.2 = 0 Then
      Call Rechts0
      Else
      Call Rechts
      End If
   End If
End If
End Sub

Sub Links0()
Portd.7 = 1
Portd.3 = 0
For I = 0 To 500
Portd.2 = 1
Waitms 5
Portd.2 = 0
Waitms 5
Next I
Portd.7 = 0
Portd.3 = 0
End Sub

Sub Links()
Portd.7 = 1
Portd.3 = 0
For I = 0 To 1000
Portd.2 = 1
Waitms 5
Portd.2 = 0
Waitms 5
Next I
Portd.7 = 0
Portd.3 = 0
End Sub

Sub Rechts0()
Portd.7 = 1
Portd.3 = 1
For I = 0 To 500
Portd.2 = 1
Waitms 5
Portd.2 = 0
Waitms 5
Next I
Portd.7 = 0
Portd.3 = 0
End Sub

Sub Rechts()
Portd.7 = 1
Portd.3 = 1
For I = 0 To 1000
Portd.2 = 1
Waitms 5
Portd.2 = 0
Waitms 5
Next I
Portd.7 = 0
Portd.3 = 0
End Sub
Der Errorcode:

Code:
Error : 46    Line :   2     Assignment error [$HWSTACK: 112   64: 112]  , in File : C:\DOKUMENTE UND EINSTELLUNGEN\CHARLY1\DESKTOP\BASCOM-BEISPIELE\SCHRITTMOTOR üBER COMPUTER.BAS
Error : 46    Line :   3     Assignment error [$SWSTACK: 112   96: 112]  , in File : C:\DOKUMENTE UND EINSTELLUNGEN\CHARLY1\DESKTOP\BASCOM-BEISPIELE\SCHRITTMOTOR üBER COMPUTER.BAS
Error : 46    Line :   4     Assignment error [$FRAMESIZE: 112   32: 112]  , in File : C:\DOKUMENTE UND EINSTELLUNGEN\CHARLY1\DESKTOP\BASCOM-BEISPIELE\SCHRITTMOTOR üBER COMPUTER.BAS
Gruß