Also, erster Ansatz ohne jegliche Hardware:

Ausschlag Var Byte ;0-255 links-rechts
Ausschlag_Time Var Word
Ausgang Var PortB.1 ;Ausgang

Init:
Low Ausgang
Ausschlag=127 ; Mitte

Ausschlag_Time=1000*/Ausschlag ;1000us auf 0..255 skalieren
Main:
Pause 20 ;20ms Pause
Ausgang=1 ;High
Pauseus Ausschlag_Time
Ausgang=0 ;Low
Pauseus 1000-Ausschlag_Time ;kann m.E. entfallen!
Goto Main
End