'Infrotlichtschranke
'alter analoger Sat-Reciver liefert IFR-LED und TSOP1736
'
'D.J. 30.11.2011

$regfile = "attiny13.dat"
$crystal = 4800000
$hwstack = 10
$swstack = 10
$framesize = 32

'$sim
'--------------------------------------------------------
Config Portb.0 = Output                      'oca0a ifr_led

Config Portb.1 = Output                      'led
Led Alias Portb.1

Config Portb.4 = Input                       'tsop1736
Ifr Alias Pinb.4
'-------------------------------------------------------
Dim X As Byte

'-------------------------------------------------------

Tccr0a = &B01000010                          'ctc
Tccr0b = &B00000010                          'timer start, ifr_led ein
Timsk0 = &B00000110
Compare0a = 8                                'für 36,..kHz

'-------------------------------------------------------
X = 0

Do
   For X = 1 To 25                           ' signal ja/nein
      Waitus 10
      If Ifr = 1 Then
      Led = 1
         Elseif Ifr = 0 Then
         Led = 0
      End If
   Next

   Tccr0b = &B00000000                       'timer stop
   Waitus 500                                'Pause damit TSOP nicht überläuft
   Tccr0b = &B00000010                       'timer start

Loop

End                                          'end program