Attiny24 Zustand ins EEPROM Schreiben

[Fird N. (farnab)]

Moin, kann ich beim Attiny24 den Zustand von PORTB im eeprom
speichern, damit wenn ich ihn aus- und wiedereinschalte, der Zustand an
den Pins gleichbleibt, so dass er nach dem Einschalten immer noch auf K2 
geschaltet ist.Hier ist nochmal der Code

T = T + 1

   If T = 1 Then Gosub Beep
'Anfangs-Beep für betätigten Sensor


   If T = 12000 Then Gosub Beep
'Erster Zusatz-Beep


   If T = 18000 Then Gosub Beep
'Zweiter Zusatz-Beep


   If T < 24000 Then

      If S = 0 Then
'S=0: Kein K2-Betrieb
            K1_mos = 1
'Pin wird auf High, also 5V geschaltet
            K2_mos = 0

            K3_mec = 1
      Else
'S=1: K1 und K2 lassen sich beide bedienen bzw. umschalten
            K1_mos = 0
'Pin wird auf High, also 5V geschaltet
            K2_mos = 1
            K3_mec = 1
      End If


      If T > 18000 Then
        If J = 0 Then
'Umschalten des Relais K1/K2 ist bei gestecktem Jumper (J=0) erlaubt

          If Sensor = 0 Then
            If A = 1 Then Toggle S
'jumper nicht gesteckt, BT-Anschluß pin, Ruhestrombetrieb
          Else
            If A = 0 Then Toggle S
'jumper gesteckt, BT-Anschluß pin, Arbeitsstrombetrieb
          End If

        End If
      End If

   End If


   If T > 24000 Then
'Dritter Zusatz-Beep
     Gosub Beep
     Gosub Alarm
     Waitms 500
   End If

Return

[Anselm (Gast)]

Dim XyZ as Eram <-
dann -> Quellvariable = XyZ
Schreibt den Wert ins EEprom