Nun ich hab mal ein Programm geschrieben natürlich klapt es nicht kann mir bitte jemand helfen ? danke

Code:
$regfile = "m128def.dat"
$framesize = 42
$swstack = 32
$hwstack = 32
$crystal = 14745600
$baud = 19200

Tsop Alias Portd.2
Config Tsop = Input

Ir Alias Porte.3
Config Ir = Output

Irledleft Alias Portd.3
Config Irledleft = Output

Irledright Alias Portd.5
Config Irledright = Output


Irledleft = 1
Irledright = 1

Declare Sub Acslow()
Declare Sub Acsmid()
Declare Sub Acshigh()
Declare Sub Acsoff()

Declare Function Acsleft() As Byte
Declare Function Acsright() As Byte

Config Timer2 = Timer , Prescale = 8
Timer2 = Acspwm
On Ovf2 On_ovf2
Enable Ovf2
Enable Interrupts

Call Acshigh()

Do

If Acsright() = 1 Then
Print 1
End If





Loop

End

Sub Acslow()
Acspwm = 225
End Sub

Sub Acsmid()
Acspwm = 228
End Sub

Sub Acshigh()
Acspwm = 231
End Sub

Sub Acsoff()
Irledleft = 1
Irledright = 1
End Sub


Function Acsleft()
Irledleft = 0
Irledright = 1

If Tsop = 1 Then
If Tsop = 1 Then
Acsleft = 1
End If
End If
Irledleft = 1
Irledright = 1
End Function

Function Acsright()
Irledleft = 1
Irledright = 0
If Tsop = 1 Then
If Tsop = 1 Then
Acsright = 1
End If
End If
Irledleft = 1
Irledright = 1
End Function

On_ovf2:
Timer2 = Acspwm
Toggle Ir
Return