Hallo

Ein einfaches Servoprogramm könnte auch etwa so aussehen:
Code:
$regfile "M32def.dat"
$crystal = 16000000

Config Pinb.0 = Output

Dim X As Byte

Do
   For X = 0 To 100
      Portb.0 = 1
      Waitms 1
      Portb.0 = 0
      Waitms 19
   Next

   For X = 0 To 100
      Portb.0 = 1
      Waitus 1500
      Portb.0 = 0
      Waitms 18
   Next

   For X = 0 To 100
      Portb.0 = 1
      Waitus 500
      Portb.0 = 0
      Waitms 19
   Next


Loop
End
Gruß

mic