Warum hast du das denn mit nem Optokoppler gemacht ?

Also hier ist mal mein Code, vllt ist da ja ein Fehler drin ?!
Code:
$regfile = "m16def.dat"
$crystal = 16000000

Config Servos = 1 , Servo1 = Portd.2 , Reload = 10
Config Pord.2 = Output

Enable Interrupts

Do 
Servo(1) = 100
Loop

End
( Wenn ich die Do-Loop Schleife weglasse, passiert gar nichts !!! )

Wie schreibt ihr eure Programme für Servos ?
Ich wäre froh, wenn ich meine langsam mal zu laufen bekäme.#

mfg