Der Mega32 schafft es gerade so.

Code:

$regfile = "m32def.DAT"
$crystal = 8000000
$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40

$baud = 19200


Config Timer1 = Timer, Prescale = 256
On Timer1 Timer_irq
Const Timervorgabe = 34286

Dim Wert1(240) As Single
Dim Wert2(240) As Single
Dim Wert1org As Single
Dim Wert2org As Single

Dim Zaehler As Integer
Dim A As Integer


Config Portc.0 = Input

Sendebefehl Alias Portc.0

Portc = 1                                                   'Pullup aktiviert. falls nicht

Zaehler = 1

Declare Sub Senden()

Enable Timer1
Enable Interrupts



Do

If Sendebefehl = 0 Then Call Senden                         'dann If Sendebefehl = 1 Then Call Senden

Loop



Timer_irq:
  Timer1 = Timervorgabe
  Wert1(zaehler) = Wert1org
  Wert2(zaehler) = Wert2org
  Zaehler = Zaehler + 1
Return

Sub Senden()

A = 0

Weiter:
   A = A + 1
   Print Wert1(a)
   Print Wert2(a)
   If A < Zaehler Then Goto Weiter

Zaehler = 0

End Sub
Oder halt externes RAM nutzen.