Meine neuen Codes, funktioniert immer noch nicht:

Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Pind.5 = Input
Config Pind.6 = Input
Dim X As Integer
Dim Y As Integer

X = 1
Y = 2

Main:
Do
If Pind.5 = 0 Then Goto Send1
If Pind.6 = 0 Then Goto Send2
Loop

Send1:
Print X
Goto Main

Send2:
Print Y
Goto Main
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Portb = Output

Dim X As Integer

Portb.5 = 0

Main:
Do
Input , X
If X = 1 Then Goto Loop1
If X = 2 Then Goto Loop2
Loop

Loop1:
Portb.5 = 1
Goto Main

Loop2:
Portb.5 = 0
Goto Main

Nach anlegen von Spannung an beide AVR kann ich genau einmal einen Taster drücken, beide reagieren, aber nach einem Tastendruck ist schluss.

Was ist da nur falsch?