====== Mini-Programme für ATtiny13 ======


===== LED-Blinker: ATtiny13 =====
<code bascomavr [enable_line_numbers="true"]>
'ATtiny13 driving LEDs
$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 8
$swstack = 4
$framesize = 4
Config Portb = Output

Do
  Portb.3 = 1
  Toggle Portb.4
  Waitms 500
Loop

End
</code>







===== Zeitschalter ATtiny13 =====

<code bascomavr [enable_line_numbers="true"]>
'Timer 60 s
$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 8
$swstack = 4
$framesize = 4

Config Portb.4 = Output
Portb.3 = 1                                                 'Pullup

Do
  Do
  Loop Until Pinb.3 = 0
  Portb.4 = 1
  Waitms 60000
  Portb.4 = 0
Loop

End
</code>


===== Weicher LED-Blinker =====

<code bascomavr [enable_line_numbers="true"]>
'LED soft flasher
$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 8
$swstack = 4
$framesize = 4
Dim I As Byte
Dim D As Integer

Config Portb = Output
Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down

Do
   For I = 40 To 215
     If I < 128 Then
       D = I
       D = D * D
     End If
     If I > 127 Then
       D = 255 - I
       D = D * D
     End If
     D = D / 64
     Pwm0a = D
     Waitms 60
   Next I
   Waitms 800
Loop
End
</code>

===== Dämmerungsschalter ATtiny13 =====

<code bascomavr [enable_line_numbers="true"]>
'Dämmerungsschalter
$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 8
$swstack = 4
$framesize = 4

Dim U As Word
Config Adc = Single , Prescaler = Auto
Start Adc
Config Portb = 1                                            'Output B.0

Do
  U = Getadc(3)
  If U < 400 Then Portb.0 = 0
  If U > 600 Then Portb.0 = 1
  Waitms 1000
Loop
End
</code>

===== Dreiphasen-Blinklicht ATiny13 =====

<code bascomavr [enable_line_numbers="true"]>
'Dreiphasen-Blinker 1500ms, 0,67 Hz
$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 8
$swstack = 4
$framesize = 4
Config Portb = Output

Do
  Portb.0 = 1
  Waitms 250
  Portb.3 = 0
  Waitms 250
  Portb.4 = 1
  Waitms 250
  Portb.0 = 0
  Waitms 250
  Portb.3 = 1
  Waitms 250
  Portb.4 = 0
  Waitms 250
Loop
End
</code>