zewn. pamięć eeprom 24Cxx - zapisanie zmiennej SINGLE - jak?

Dim C As Single , D As Single

Dim Cptr As Word , Dptr As Word

Dim E As Byte , F As Byte 



C = 12.555555555
D = 0.0

Print "C= " ; C ; "   D=" ; D
'wysyłamy bajt po bajcie zmienną C do wew. eepromu lub do dowolnego układu/urządzenia
Cptr = Varptr(c)
For E = 1 To 4
   F = Inp(cptr)
   Writeeeprom F , E       'zastąpić procedurą zapisu bajtu do np. zew. eepromu
   Incr Cptr
Next
'wczytujemy bajt po bajcie do zmiennej D z wew. eepromu lub z dowolnego układu/urządzenia
Dptr = Varptr(d)
For E = 1 To 4
   Readeeprom F , E       'zastąpić procedurą odczytu bajtu z np. zew. eepromu
   Out Dptr , F
   Incr Dptr
Next

Print "C= " ; C ; "   D=" ; D ;

Print
nop
Stop

Dim C As Single , D As Single
Dim Ct(4) As Byte At C Overlay , Dt(4) As Byte At D Overlay
'Dim Cptr As Word , Dptr As Word

Dim E As Byte , F As Byte



C = 12.555555555
D = 0.0
Print "C= " ; C ; "   D=" ; D
For E = 1 To 4
   F = Ct(e)
   Writeeeprom F , E
Next


For E = 1 To 4
   Readeeprom F , E
   Dt(e) = F
Next
Print "C= " ; C ; "   D=" ; D

nop
Stop

Dim C As Single , D As Eram Single
'...
D=C 'zapamiętaj C w EEprom
C=D 'Odtwórz C z EEprom

Dim Empty As Eram Byte At 0 ' zmienna , która zajmie nam "felerną" 1-szą komórkę w EEpromie - nigdy tej zmiennej nie używamy w kodzie.

Dim X As Eram Single At 1
Dim Y As Single

Y=X
Lcd Y ' i tu już Y bedzie = 1.0000543 , mimo że nigdzie w kodzie nie przypisaliśmy zmiennej X żadnej wartości

$EEPROM
Data &HFF - 1-sza komóra bez zmian 
'Teraz wartość dla naszego X-a
Data 1.0000543!   'zajmie 4 bajty , będzie "widoczna" w zakładce eeprom  i bedzie przypisana do zmiennej X 

Dim Empty As Eram Byte At 0        ' Twoja sugestia :)
Dim Ua As Eram Byte
Dim Ub As Eram Byte
Dim Uc As Eram Byte
Dim Ud As Eram Byte

Dim Value As Byte

Main:                      'pętla glówna
Zapis = 1                'wlączenie możliwosci dokonywania zapisu do zegara
Cls

Do
   X = Licznik + 1 : Call Read_eeprom(x , Value)
   If Minuty = Value Then
    X = Licznik + 2 : Call Read_eeprom(x , Value)
    If Godziny = Value Then
     X = Licznik + 3 : Call Read_eeprom(x , Value)
     If Dni = Value Or Value = 32 Then
        X = Licznik + 9 : Call Read_eeprom(x , Value)
       Call Wlacz_urzadzenie
      'End If
     End If
    End If
   End If

       X = Licznik + 5 : Call Read_eeprom(x , Value)
       If Minuty = Value Then
        X = Licznik + 6 : Call Read_eeprom(x , Value)
        If Godziny = Value Then
         X = Licznik + 9 : Call Read_eeprom(x , Value)
         Call Wylacz_urzadzenie
        End If
       End If
   Licznik = Licznik + 10
   If Licznik = 20 Then Licznik = 0
Call Wlacz_urzadzenie2
Loop
End


Sub Wlacz_urzadzenie2
 If Ua = 1 Then
  Reset U1
 End If
 If Ub = 1 Then
  Reset U2
 End If
 If Uc = 1 Then
  Reset U3
 End If
 If Ud = 1 Then
   Reset U4
 End If
End Sub

Sub Wlacz_urzadzenie
If Value = 1 And Ua = 0 Then Reset U1 : Ua = 1
If Value = 2 And Ub = 0 Then Reset U2 : Ub = 1
If Value = 3 And Uc = 0 Then Reset U3 : Uc = 1
If Value = 4 And Ud = 0 Then Reset U4 : Ud = 1
End Sub

Sub Wylacz_urzadzenie
If Value = 1 And Ua = 1 Then Reset U1 : Ua = 0
If Value = 2 And Ub = 1 Then Reset U2 : Ub = 0
If Value = 3 And Uc = 1 Then Reset U3 : Uc = 0
If Value = 4 And Ud = 1 Then Reset U4 : Ud = 0
End If

If Value = 1 And Ua = 0 Then Reset U1 : Ua = 1

Sub Wlacz_urzadzenie
If Value = 1 And Ua = 0 Then
 Reset U1
 Ua = 1
 Waitms 200
End If
If Value = 2 And Ub = 0 Then
 Reset U2
 Ub = 1
 Waitms 200
End If
If Value = 3 And Uc = 0 Then
 Reset U3
 Uc = 1
 Waitms 200
End If
 If Value = 4 And Ud = 0 Then
  Reset U4
  Ud = 1
  Waitms 200
End If
End Sub

Sub Wlacz_urzadzenie3
Select Case Value
  Case 1 : U1 = 0
           Ua = 0
  Case 2 : Reset U2
           Ub = 0
  Case 3 : Reset U3
           Uc = 0
  Case 4 : Reset U4
           Ub = 0
End Select
End Sub

dim temp (4) as byte
dim costam as single
...
' single -> byte

 lds r16,{costam}
 lds r17,{costam+1}
 lds r18,{costam+2}
 lds r19,{costam+3}
 sts {temp},r16
 sts {temp+1},r17
 sts {temp+2},r18
 sts {temp+3},r19


' byte->single
 lds r16,{temp}
 lds r17,{temp+1}
 lds r18,{temp+2}
 lds r19,{temp+3}
 sts {costam},r16
 sts {costam+1},r17
 sts {costam+2},r18
 sts {costam+3},r19

Sub Wlacz_urzadzenie
If Value = 1 And Ua = 1 Then
 Portb.0 = 0
End If
If Value = 2 And Ub = 1 Then
 Portb.1 = 0
End If
If Value = 3 And Uc = 1 Then
 Portb.2 = 0
End If
If Value = 4 And Ud = 1 Then
 Portb.3 = 0
End If
End Sub

Sub Wlacz_urzadzenie
If Value = 1 And Ua = 1 Then
 Portb.0 = 0
 Ua = 0
End If
If Value = 2 And Ub = 1 Then
 Portb.1 = 0
 Ub = 0
End If
If Value = 3 And Uc = 1 Then
 Portb.2 = 0
 Uc = 0
End If
If Value = 4 And Ud = 1 Then
 Portb.3 = 0
 Ud = 0
End If
End Sub

Dim Empty As Eram Byte At 0
Dim Tzap1 As Eram Single
Dim Ua As Eram Byte
Dim Ub As Eram Byte
Dim Uc As Eram Byte
Dim Ud As Eram Byte

Dim Tzap1 As Eram Single
Dim Tterm1 As Single

Tterm1 = Tzap1

Cls
Napis = Fusing(tterm1 , "#.#")
Lcd Napis
Wait 3
Cls

Main: 'program główny
. . . . . .  cos tam dalej . . . . 

Tterm1 = Tzap1