Hier ist der code

Code:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800

Dim A As Word
Dim B As Word
Dim C As Word
Config Servos = 3 , Servo1 = Portd.6 , Servo2 = Portd.7 , Servo3 = Portb.0 , Reload = 20
Config Pinb.0 = Output
Config Pind.6 = Output
Config Pind.7 = Output
A Alias Servo(1)
B Alias Servo(2)
C Alias Servo(3)
Enable Interrupts
Do
A = 100
B = 100
C = 100
Waitms 1000
A = 150
B = 150
C = 150
Waitms 1000
Loop