So es handelt sich um eine "einseitige" Kommunikation, also der ATMEGA32 sendet nur an den ATMEGA8. Wenn gewollt kann man das Programm ja ruhig abändern dass der ATMEGA8 ne Empfangsbestätigung zurückschickt oder was auch immer.

Empfänger:
Code:
$regfile = "m8def.dat"
$framesize = 48
$swstack = 64
$hwstack = 64
$crystal = 8000000
$baud = 9600


Dim Empfangen As String * 3                Bei mehr Zeichen einfach die Stringzahl erhöhen

On Urxc Onrxd
Enable Urxc
Enable Interrupts



Do
If Len(empfangen) > 2 Then       'Nur als Prüfung da ich immer 3 Zeichen gesendet habe, kann also auch weggelassen werden

.           'Hier einfach den Code was passieren soll
.
.

Empfangen = ""
End if
Loop
End







Onrxd:
Empfangen = Empfangen + Chr(udr)
Return

Sender:
Code:
$regfile = "m32def.dat"
$framesize = 54
$swstack = 128
$hwstack = 64
$crystal = 8000000
$baud = 9600

On Urxc Onrxd
Enable Urxc

Enable Interrupts 

Do
.
.
.

Gosub Senden
Loop


Senden:
Print "Zu sendender Text"              
Return