Der Mega32 schafft es gerade so.
Oder halt externes RAM nutzen.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
Lesezeichen