hallo , habe mir auch mal ein paar gedanken gemacht.
also im simulator läuft das prog. und auf meinem bord auch
der einfachheitshalber habe ich mal die zeiten 1770 in 170
und 1800 in 180 geändert,damit es schneller abläuft im test.
also wieder in deine zeiten ändern.

gruß mike

Code:
'--------------------------------------------------------------
$regfile = "attiny2313.dat"                                 '
$crystal = 1000000                                          'Quarz: 1,0 MHz
'$sim

'******** Deklarationen ********
Dim A As Word


   Ddrb = &B11111111                                        ' port B als Ausgang
   Ddrd = &B0100000                                         ' pin D2 asl eingang
   Portd.2 = 1                                              ' interne pullup widerstände aktivieren

'******** Hauptprogramm ********
Portb.1 = 1        'zeigt ausgeschalteten zustand an
Main1:

Do

If Pind.2 = 0 Then
Goto Main2
Else
End If

Loop

Main2:

Portb = &B10000000


Do

If Pind.2 = 0 Then
A = 0
Portb = &B10000000
Else
End If

 Wait 1
  A = A + 1
  Print A
   Toggle Portb.0         'lötkolben an
     If A > 177 Then
      Portb = &B11000000
       Sound Portd.0 , 1000 , 82
     End If

  If A > 180 Then
   Portb = &B00000000
  End If

Loop Until A > 180

Portb.1 = 1               'zeigt ausgeschalteten zustand an

Do

If Pind.2 = 0 Then Goto Main1

Loop

End