OK,

ich weiss nur nicht wie ich mit einem PIN umschalten kann. Mein Code sieht so aus:

Code:
  $regfile = "m16def.dat"
  $crystal = 15000000

  Declare Sub Motordir(byval Motleftdir As Byte , Byval Motrightdir As Byte)
  Declare Sub Motorspeed(byval Motleftpwm As Byte , Byval Motrightpwm As Byte)
Init:

  Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1

  Const Driverwd = 0
  Const Drivefwd = 1

Main:
  Do
    Call Motordir(drivefwd , Drivefwd)
    Call Motorspeed(100 , 100)
    Wait 1
    Call Motorspeed(0 , 0)
    Wait 1
  Loop

Sub Motordir(byval Motleftdir As Byte , Byval Motrightdir As Byte)
  Ddrd.6 = 1
  Ddrd.7 = 1
  If Motleftdir.0 = 0 Then
    Portd.6 = 1
  Else
    Portd.6 = 0
  End If
  If Motrightdir.0 = 0 Then
    Portb.7 = 1
  Else
    Portb.7 = 0
  End If
End Sub

Sub Motorspeed(byval Motleftpwm As Byte , Byval Motrightpwm As Byte)
  Ddrd.5 = 1
  Ddrd.4 = 1
  Pwm1a = Motleftpwm
  Pwm1b = Motrightpwm
End Sub