Eine RGB-Led und ein AtTiny13

[Kampi]

Hallo Kampi!


Dadurch würde ich mir ja nur die Befehle Gosub und Return, sowie die Zeit zum Speichern aller wichtigen Register in den SRAM ersparen. Der benötigte Platz für die eigentlichen in "Fading" enthaltenen Befehle würde somit ja nicht kleiner werden, sondern steht nur an anderer Stelle im Flash. So zumindest meine Gedanken dazu.

Stimmt! Du hast recht  
Ich weiß nicht aber ich glaube du kannst den Speicher nur optimieren, wenn du es in ASM machst. Im Moment wüsste ich nicht wo man noch was weglassen kann.
Auf der anderen Seite....der Tiny ist ja nicht gerade ein Speicherwunder  
Da wirken selbst sehr kleine Codes mächtig  

[MagicWSmoke]

Ein paar wenige Bytes kann man durch Weglassen von

If Pwm_count = 255 Then Pwm_count = 0                    'PWM-Variable bei 255 resetten

sparen, das schon von Beginn des Threads an mitgeschleift wird.
Eine Byte-Variable läuft von allein nach 255 auf 0 über, da muss man nix extra machen.

Wenn man noch statt der doppelten Abfrage

If C_x < 255 Then Incr C_x
If C_x = 255 Then State = 1

jeweils

If C_x < 255 Then Incr C_x Else State = 1

schreibt, kommt man auf 85%, ohne viel geändert zu haben.

[Thomas E.]

Hallo!


Dank den Erläuterungen von User MagicWSmoke konnten nun 6% Flash gespart werden. Hier der aktuelle Stand des Programms:
tinyrgb_v1_2.bas

Vielleicht fällt noch jemanden etwas ein? Es ist schon ein interessanter Ansporn, noch etwas Speicher einzusparen, zumal dann ja Platz für weitere Fading-Möglichkeiten ist. Die Schaltung beleuchtet übrigens den Deko-Bereich auf einem Wohnzimmerschrank und wird von zwei NiMH-Akkus versorgt, die tagsüber von Solarenergie geladen werden.

[Kampi]

Hey  

kannst du den "Schaltplan" der Schaltung posten?
Ich hab mir gestern 10 RGB LEDs bestellt und weiß nicht wofür ich sie verwenden soll (die haben 3€ das Stück gekostet....ka ob sie was taugen oder nicht aber für 3€ sag ich nicht nein)  
Und nun bin ich auf der Suche nach schönen Bastelleien mit RGB LEDs  .....btw. ich hab mir eine bei RS für 25€ das Stück bestellt und für 3W ist die ja mal super hell.....und auch die "Chinesen" LEDs sind 3W....mal schauen wie die sich im Test gegen die teure LED machen.
Wie gesagt wäre toll wenn man den Schaltplan noch sehen könnte. Weil so ein kleines Lichterspiel auf dem Schrank oder hinter dem Fernseher sicher toll aussieht.

[Searcher]

Vielleicht fällt noch jemanden etwas ein?

Hallo Thomas,
folgendes bringt noch hier und da etwas:
statt:
Dim Modus As Bit 'Modus
Dim Flag_a As Bit 'Flag für Sub Fading

als Byte einrichten
Dim Modus As Byte 'Modus
Dim Flag_a As Byte 'Flag für Sub Fading

und alle
Set Modus mit Modus = 1, Reset Modus mit Modus = 0 ersetzen
Set Flag_a, Reset Flag_a gleichermaßen.

Alle "Decr Variable" mit "Variable = Variable - 1"
und alle "Incr Variable" mit "Variable + 1" ersetzen.

bringt pro Decr zwei Byte


Gruß
Searcher

[Thomas E.]

kannst du den "Schaltplan" der Schaltung posten?

Viel ist da nicht. Einfach ein Tiny13 mit den drei Anschlüssen einer RGB-LED über je einen Vorwiderstand an drei Pins. Dann noch eine Stiftleiste für ISP, einen Widerstand der den Reset-Pin hochzieht, zwei Jumper und ein Abblockkondensator. Das war's.

Weil so ein kleines Lichterspiel auf dem Schrank oder hinter dem Fernseher sicher toll aussieht.

Das tut es.  

Pro Interrupt gibt es einen "1 Bit" Speicher, das Interruptflag. Er kann sich soviele Interrupte merken, wie es Quellen gibt. Wenn ich innerhalb eines Handler das Flag am Anfang zurücksetze, kann er einen, aber nur einen weiteren gleichen Interrupt auch während der Laufzeit des Handlers merken. Wenn der Interrupthandler unterschiedlich lange dauert oder die Interrupte in unterschiedlichen Abständen kommen, kann einen das retten.

Danke für die Ausführung.

Hallo Thomas,
folgendes bringt noch hier und da etwas: [...]

Benötigt die Deklaration Var = Var + 1 tatsächlich weniger Speicher als ein einfaches Incr Var?

[Kampi]

Ah ok  
Was für ne LED verwendest du den? Auch so eine 3W LED oder kleiner?
Und ja das bringt Soeicher. Ich hab jetzt mal alles umgesetzt was hier vorgeschlagen wurde und das Programm benötigt nur noch 80% Speicher.
Von 90% am Anfang ist das ja schon ziemlich stark  

[Searcher]

Benötigt die Deklaration Var = Var + 1 tatsächlich weniger Speicher als ein einfaches Incr Var?

Nein, hier habe ich es nicht festgestellt.

Hatte es nur mit aufgenommen, weil es nach dem Ersetzen des Decr ein besseres Bild im Listing macht. Allerdings meine ich, früher schon mal festgestellt zu haben, daß das Ersetzten von dem Incr auch eine Ersparnis bringt, bin mir jedoch nicht mehr sicher und in welchem Zusammenhang das war.

Gruß
Searcher

[Kampi]

Nein, hier habe ich es nicht festgestellt.

Hatte es nur mit aufgenommen, weil es nach dem Ersetzen des Decr ein besseres Bild im Listing macht. Allerdings meine ich, früher schon mal festgestellt zu haben, daß das Ersetzten von dem Incr auch eine Ersparnis bringt, bin mir jedoch nicht mehr sicher und in welchem Zusammenhang das war.

Gruß
Searcher

Müsste man mal schauen, was Bascom aus einem INCR oder DECR Befehl macht. Gibt es irgendwo eine Auflistung der Bascom Befehle und ihrem Gegenstück in ASM?

Btw...danke Klebwax für die Erklärung  

[MagicWSmoke]

So werden's 72%:

Dim C_r As IRam Byte At 12                                                      'Channel Rot
Dim C_g As IRam Byte At 13                                                      'Channel Grün
Dim C_b As IRam Byte At 14                                                      'Channel Blau

Und das bringt's auf 66%:

On Timer0 Isr_timer0 Nosave
' ...
'ISR TIMER0
Isr_timer0:
        !push        r16
        !push        r17
        !push        r20
        !push        r21
        !push        r23
        !push        r24
        !push        r26
        !push        r30
        !push        r31
        !in          r24, SREG
        !push        r24
   Incr Pwm_count                                                               'PWM-Variable erhöhen
   If Div = 10000 Then                                                          'Teilervariable bei 10000 resetten
      Div = 0
      Set Flag_a
   End If
     Div = Div + 1                                                              'Teilervariable erhöhen
        !pop        r24
        !out        SREG,r24
        !pop        r31
        !pop        r30
        !pop        r26
        !pop        r24
        !pop        r23
        !pop        r21
        !pop        r20
        !pop        r17
        !pop        r16
Return

Außerdem kommt man dann ordentlich mit dem HWStack hin. Es hatte vorher lediglich keine Auswirkung wenn SWStack und Frame überschrieben wurden. Das Sichern der Register kostete 26 Bytes HWStack und der Aufruf von Incr Div nochmal 2 Bytes, 8 Bytes waren also viel zuwenig. Nun werden nicht mehr als 10 Byte Stack verwendet, bei Bedarf an mehr Platz für Variablen können folgende Stackangaben nochmal verkleinert werden, SWStack und Frame werden sowieso nicht benutzt.

$hwstack = 16
$swstack = 16
$framesize = 24

Hinweis dazu: die selektive Registersicherung per Nosave/Push/Pop ist nur solange als gültig zu betrachten, solange die ISR nicht verändert wird, evtl. muss man auf die Bascom-Version achten, hier 2.0.7.4
Interessanterweise wird mit ausgeschalteter Optimierung jeweils 1% weniger Speicher belegt.

Benötigt die Deklaration Var = Var + 1 tatsächlich weniger Speicher als ein einfaches Incr Var?

Nein, das ist falsch. Incr Byte_Var und Byte_Var = Byte_Var +1 erzeugen zwar identischen Code, hingegen wird Word_Var = Word_Var +1 Inline compiliert, dagegen Incr Word_Var als Funktionsaufruf. Es hängt also erst einmal von der Zielvariablen ab.
Eine Funktion aufzurufen, d.h. Setzen der Register und ein RCALL/CALL, kostet weniger Flashspeicher als wenn der Code Inline eingebaut wird.
Hat man viele Stellen im Code, in denen eine Word-Variable um 1 erhöht wird, so ist es also genau anders herum, man spart mit der Incr-Version Speicherplatz. Das kann sich aber mit der Bascom-Version ändern.
In unserem Fall ist Div = Div + 1 besser, da es etwas weniger Stack braucht und schneller ist.