'IR-Fernbedinung mit einem ATtiny25V


$regfile = "attiny25.dat"
$crystal = 1200000
$hwstack = 32
$swstack = 10
$framesize = 12

Dim Adresse As Byte
Dim Comando As Byte
Dim Bitnr As Byte
Dim Togglebit As Bit

Acsr.acd = 0
Ddrb = &B0000_0000
Portb = &B0000_1110

Pcmsk = &B0000_1110
Gimsk.5 = 1
Sreg.7 = 1

Config Timer0 = Timer , Prescale = 1 , Compare A = Toggle , Clear Timer = 1
Ocr0a = 17

Togglebit = 0
Adresse = 11


   Do
      Disable Interrupts

      Comando = Pinb
      Comando = Not Comando
      Comando = Comando And &B0000_1110

      Ddrb.0 = 1

      Ddrb.0 = 0
      Waitus 883
      Ddrb.0 = 1
      Waitus 884

      Ddrb.0 = 0
      Waitus 883
      Ddrb.0 = 1
      Waitus 884

      If Togglebit = 0 Then
         Ddrb.0 = 1
         Waitus 883
         Ddrb.0 = 0
         Waitus 884
      Else
         Ddrb.0 = 0
         Waitus 883
         Ddrb.0 = 1
         Waitus 884
      End If

      For Bitnr = 4 To 0 Step -1
         If Adresse.bitnr = 0 Then
            Ddrb.0 = 1
            Waitus 883
            Ddrb.0 = 0
            Waitus 884
         Else
            Ddrb.0 = 0
            Waitus 883
            Ddrb.0 = 1
            Waitus 884
         End If
      Next

      For Bitnr = 5 To 0 Step -1
         If Comando.bitnr = 0 Then
            Ddrb.0 = 1
            Waitus 883
            Ddrb.0 = 0
            Waitus 884
         Else
            Ddrb.0 = 0
            Waitus 883
            Ddrb.0 = 1
            Waitus 884
         End If
      Next

      Ddrb.0 = 0

      If Pinb = &B0000_1110 Then
         Enable Interrupts
         Powerdown
      Else
         Waitms 100
      End If
   Loop
End