Danke erstmal für den Link
nur leider funktionierts immer noch net
hab auch schon ein paar mal nachgeschaut ob ich alles richtig angeschlossen hab aber es passt alles

Code:
 $regfile = "2313def.dat"
 $framesize = 24
 $swstack = 8
 $hwstack = 32
 $crystal = 12000000
 $baud = 9600

Config Pind.2 = Output
Config Pind.3 = Output
Config Pind.4 = Output
Config Pind.5 = Output
Config Pind.6 = Output
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output
Config Pinb.4 = Output

Portb.0 = 1
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
Portb.4 = 1
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.5 = 1
Portd.6 = 1

Dim A As Byte

Do
A = Inkey()
If A > 0 Then
    Select Case A
      Case 49
         Portb.0 = 0
         Print "Portb.0 wurde ausgeschaltet!"               '1
      Case 50
         Portb.0 = 1
         Print "Portb.0 wurde eingeschaltet!"               '2

      Case 51
         Portb.1 = 0
         Print "Portb.1 wurde ausgeschaltet!"               '3
      Case 52
         Portb.1 = 1
         Print "Portb.1 wurde eingeschaltet!"               '4

      Case 53
         Portb.2 = 0
         Print "Portb.2 wurde ausgeschaltet!"               '5
      Case 54
         Portb.2 = 1
         Print "Portb.2 wurde ausgeschaltet!"               '6

      Case 55
         Portb.3 = 0
         Print "Portb.3 wurde ausgeschaltet!"               '7
      Case 56
         Portb.3 = 1
         Print "Portb.3 wurde ausgeschaltet!"               '8

      Case 57
         Portb.4 = 0
         Print "Portb.4 wurde ausgeschaltet!"               '9
      Case 79
         Portb.4 = 1
         Print "Portb.4 wurde ausgeschaltet!"               'O <-- Buchstabe Ohh

      Case 97
         Portd.2 = 0
         Print "Portd.2 wurde ausgeschaltet!"               'a
      Case 98
         Portd.2 = 1
         Print "Portd.2 wurde ausgeschaltet!"               'b

      Case 99
         Portd.3 = 0
         Print "Portd.3 wurde ausgeschaltet!"               'c
      Case 100
         Portd.3 = 1
         Print "Portd.3 wurde ausgeschaltet!"               'd

      Case 101
         Portd.4 = 0
         Print "Portd.4 wurde ausgeschaltet!"               'e
      Case 102
         Portd.4 = 1
         Print "Portd.4 wurde ausgeschaltet!"               'f

      Case 103
         Portd.5 = 0
         Print "Portd.5 wurde ausgeschaltet!"               'g
      Case 104
         Portd.5 = 1
         Print "Portd.5 wurde ausgeschaltet!"               'h

      Case 105
         Portd.6 = 0
         Print "Portd.6 wurde ausgeschaltet!"               'i
      Case 106
         Portd.6 = 1
         Print "Portd.6 wurde ausgeschaltet!"               'j

      Case 114
         Print "Reset..."
         Goto 0
   End Select
End If
Loop



End
ich empfange keine Daten vom Attiny weder mit einem porgramm von SharpDevelop noch ganz normal via Hyperterminal (bzw hier putty Hterm wegen Vista)