Atmega8a & Atmega8515

Hey
Ich habe ein Problem Ich bekomme vom Mega8515 keinen String zum Mega8 gesendet. Anders herum (Mega8 -> Mega8515) jedoch schon.
Meine Uart beschaltung (ohne Brücken etc.)
Mega8 Mega8515
C.5 -> D.0
C.4 <- D.1
Prog Mega8:

Prog Mega8:

$regfile = "m8adef.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 8
$framesize = 16
$baud = 2400

Open "comc.5:2400,8,n,1,inverted" For Output As #1 'I N V E R T
E D !!!!!!
Open "comc.4:2400,8,n,1,inverted" For Input As #2 'I N V E R T
E D !!!!!!

Dim Strempfangen As String * 42
Dim Strempfachs As String * 4

Do
Input Strempfangen
Print #1 , Strempfangen

Input #2 Strempfachs
Print Strempfachs
Loop

Prog Mega8515:

$regfile = "m8515.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 8
$framesize = 16

Open "comd.0:2400,8,n,1,inverted" For Input As #1 'Hardware
UART I N V E R T E D !!!!!!!
Open "comd.1:2400,8,n,1,inverted" For Output As #2 'Hardware
UART I N V E R T E D !!!!!!!

Dim Strempfangen As String * 38
Dim A As Integer
A = 0

Do
Print #2 , A
A = A + 1
Waitms 250
Loop

Bitte kann mir jmd helfen?!
LG fantasäufer