Ich stelle hier mal einen Auszug des Programms rein, da ih immer noh keine Lösung gefunden habe(;

Wie gesagt die Eingänge funktionieren nicht. Ich habe das STK500 und will dessen Taster nutzen.

Code:
$regfile = "2313def.dat"
$crystal = 3686400
$baud = 9600

Config Portb = Output
Config Pind.2 = Input                                       
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.5 = Input
Config Pind.7 = Input

Config 1wire = Portd.6

....


A = 9
B = 9
If Usr.rxc = 1 Then                                        
    X = Udr
 Select Case X
   Case "p" : Toggle Portb.0
            A = 1
   Case "l" : Toggle Portb.1
            A = 2
   Case "n" : Toggle Portb.2
            A = 3
   Case "r" : Goto Anfang
 End Select                                                 '
End If

If Pind.2 = 0 Then B = 1
If Pind.3 = 0 Then B = 2
If Pind.4 = 0 Then B = 3
If Pind.5 = 0 Then B = 4
If Pind.7 = 0 Then B = 5

 Print A ; B ; Tint ; Tfr