Hallo Leute,

ich habe etz ein Funktionierendes Programm. Kann sich das mal jemand anugcken und Optimierungsvorschlaege machen?
Wie gesagt, mein erstes Programm.

Code:
$regfile = "ATtiny25.dat"
$crystal = 1000000

Config Pinb.0 = Input
Config Portb.1 = Output
Config Portb.2 = Output
Config Timer0 = Timer , Prescale = 1024
Disable Timer0
On Timer0 Timer0_isr
Enable Interrupts
Dim Tdown As Integer
Dim Tbus As Integer
Dim Tstat As Integer
Dim Busstat As Integer

Tdown = 2400
Tbus = 16
Tstat = 0
Busstat = 0

Ibus Alias Pinb.0
K1 Alias Portb.1
K2 Alias Portb.2

K1 = 1
K2 = 1

Do
   If Ibus = 0 And Tstat = 0 Then
      K1 = 0
      Tstat = 1
      Enable Timer0
   End If
   If Ibus = 0 And Tstat = 1 And Busstat = 1 Then
      Tdown = 2400
   End If
Loop
End

Timer0_isr:
   Decr Tdown
   Decr Tbus
      If Tdown = 0 Then
         K1 = 1
         K2 = 1
         Tstat = 0
         Tdown = 2400
         Tbus = 16
         Disable Timer0
      End If
      If Tbus = 0 Then
         K2 = 0
         Busstat = 1
      End If
Return
Vielen Dank!