Code:
$regfile = "m32def.dat"
$crystal = 11059200
$baud = 115200
Dim werte(30) As byte
Dim I As Byte

i=0
On URXC OnRxD
Enable URXC
Enable Interrupts

 Do
 'hier kann dein prog stehen
 'im hintergrund werden die daten ins array "werte" geschrieben
 'das graue kabel gehört an pin 14 des mega32
 Loop


OnRxD:
  Incr I
  Werte(i) = Udr
  If I = 20 Then I = 0

Return
den rest kannst du ja