$regfile = "m8def.dat"
$crystal = 16000000                                         'externer Takt

Config Pind.2 = Input

Irpin Alias Pind.2

Dim Signal As Byte                                          'IR-Signal
Dim Signal1 As Word
Dim Signalspeicher As Byte                                  'IR-Signal letzte Abfrage
Dim X As Byte

Enable Interrupts
Enable Int0
Config Int0 = Falling
On Int0 Irabfrage

Enable Timer0
Config Timer0 = Timer , Prescale = 8
On Timer0 Timer_irq
Const Timervorgabe = 56


'##HAUPTPROGRAMM#######################################################################################
'######################################################################################################

Do

'% Helligkeit + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% A1 %%%%%%%%%%%%%%%%%%%
If Signal = 0 Then

End If


'% Helligkeit - %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% A2 %%%%%%%%%%%%%%%%%%%
If Signal = 1 Then

End If


'% AUS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% A3 %%%%%%%%%%%%%%%%%%%
If Signal = 2 Then

End If


'% AN %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% A4 %%%%%%%%%%%%%%%%%%%
If Signal = 3 Then

End If


'% Schneller %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% B1 %%%%%%%%%%%%%%%%%%%
If Signal = 4 Then

End If


'% Langsamer %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% B2 %%%%%%%%%%%%%%%%%%%
If Signal = 5 Then

End If


'% Blau %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% B3 %%%%%%%%%%%%%%%%%%%
If Signal = 6 Then

End If


'% Weiss %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% B4 %%%%%%%%%%%%%%%%%%%
If Signal = 7 Then

End If


'% Orange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% C1 %%%%%%%%%%%%%%%%%%%
If Signal = 8 Then

End If


'% Türkis %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% C2 %%%%%%%%%%%%%%%%%%%
If Signal = 9 Then

End If


'% Dunkelblau %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% C3 %%%%%%%%%%%%%%%%%%%
If Signal = 10 Then

End If


'% Flash %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% C4 %%%%%%%%%%%%%%%%%%%
If Signal = 11 Then

End If


'% Orange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% D1 %%%%%%%%%%%%%%%%%%%
If Signal = 12 Then

End If


'% Hellblau %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% D2 %%%%%%%%%%%%%%%%%%%
If Signal = 13 Then

End If


'% Lila %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% D3 %%%%%%%%%%%%%%%%%%%
If Signal = 14 Then

End If


'% STROBE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% D4 %%%%%%%%%%%%%%%%%%%
If Signal = 15 Then

End If


'% Dreckgelb %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% E1 %%%%%%%%%%%%%%%%%%%

If Signal = 16 Then

End If


'% Hellblau2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% E2 %%%%%%%%%%%%%%%%%%%

If Signal = 17 Then

End If


'% Lila2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% E3 %%%%%%%%%%%%%%%%%%%

If Signal = 18 Then

End If


'% FADE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% E4 %%%%%%%%%%%%%%%%%%%
If Signal = 19 Then

End If


'% Gelb %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% F1 %%%%%%%%%%%%%%%%%%%

If Signal = 20 Then

End If


'% Hellblau3 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% F2 %%%%%%%%%%%%%%%%%%%

If Signal = 21 Then

End If


'% Lila3 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% F3 %%%%%%%%%%%%%%%%%%%

If Signal = 22 Then

End If


'% SMOOTH %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% F4 %%%%%%%%%%%%%%%%%%%
If Signal = 23 Then

End If


Loop

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



'######################################################################################################
'##IRabfrage###########################################################################################

Timer_irq:
  Timer0 = Timervorgabe
  Incr X

Return


Irabfrage:

If X > 30 Then
Signal1 = 0
Elseif X > 16 Then
Shift Signal1 , Right
Signal1.15 = 1
Elseif X < 16 Then
Shift Signal1 , Right
End If

X = High(signal1)
X = Not X

If X = Low(signal1) Then
Signal = Low(signal1)
End If

X = 0


'Gifr = Gifr Or &H40
Return


'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%