MaskedPort = Pind And &b00001111 'oder 15

Läuft dein Tiny wirklich mit 8MHz?

Code:
Dim Bcd_input As Byte , Bcd_input_old As Byte

Declare Sub All_leds_off
All_leds_off
Bcd_input_old = 0

Do

   Do
      Bcd_input = Pind And 255       'nur die Bits 0 bis 3 beachten
   Loop Until Bcd_input <> Bcd_input_old

   Select Case Bcd_input
      Case 10 : All_leds_off       '10 ist Ziffer "0"
      Case 1 : Toggle 1_ausgang
      Case 2 : Toggle 2_ausgang
      Case 3 : Toggle 3_ausgang
      Case 4 : Toggle 4_ausgang
      Case 5 : Toggle 5_ausgang
      Case 6 : Toggle 6_ausgang
      Case 7 : Toggle 7_ausgang
      Case 8 : Toggle 8_ausgang
      Case 9 : Toggle 9_ausgang
      Case 11 : Toggle S_ausgang
      Case 12 : Toggle R_ausgang
   End Select

   Bcd_input_old = Bcd_input

   'Waitms 200

   Loop

End