Dim Ring_buffer(32 , 8) As Eram Byte  

Sub Init_buffers


Local Prst As Byte
Local Pos As Byte


  For Prst = 1 To 32

    For Pos = 1 To 8
      Ring_buffer(prst , Pos) = 9                                               'all positions to reset value
    Next Pos

  Next Prst

  Init_done = 1                                                                 'init done

End Sub
 

Dim Ring_buffer(8 , 32) As Eram Byte

:10000000 FF0102030405060708090A0B0C0D0E0F 79
:10001000 101112131415161718191A1B1C1D1E1F 68
:10002000 20
 

Dim Ring_buffer(8 , 32) As Eram Byte

Dim Ring_buffer(32 , 8) As Eram Byte

$nocompile

Const Ee_param_high_buffer_size = 16
Const Ee_status_buffer_size = Ee_param_high_buffer_size
Const Ee_param_low_buffer_size = Ee_param_high_buffer_size
Const Ee_param_1 = &HA0
Const Ee_param_2 =(ee_param_1 + Ee_param_high_buffer_size + Ee_status_buffer_size + Ee_param_low_buffer_size)
Const Ee_param_3 =(ee_param_2 + Ee_param_high_buffer_size + Ee_status_buffer_size + Ee_param_low_buffer_size)       ' And So Forth


Dim Eebufptrparam1 As Word
Dim Eebufptrparam2 As Word                                  ' And So Forth

Eebufptrparam1 = Ee_param_1
Eebufptrparam2 = Ee_param_2                                 ' And So Forth





Sub Inithighenduranceeeprom()                               'Need to do when boot mcu
 Eebufptrparam1 = Findcurrenteepromaddr(ee_param_1)
 Eebufptrparam2 = Findcurrenteepromaddr(ee_param_2)
End Sub



Function Findcurrenteepromaddr(byval Eebufptr As Word) As Word       'Identify the last WRITTEN element of the status buffer
Local Eebufferend As Word , Eebufferpointer As Word
Local Temp As Byte , Temp2 As Byte
Eebufferpointer = Eebufptr + Ee_param_high_buffer_size      'Starts scanning at address eebufptr + buffer size
Eebufferend = Eebufferpointer + Ee_status_buffer_size       'Scan until buffer end

Do
   Readeeprom Temp , Eebufferpointer
   Temp = Temp + 1
   Incr Eebufferpointer
   If Eebufferpointer = Eebufferend Then Exit Do            'Break if end of buffer, so we don't compare out-of-bounds
   Readeeprom Temp2 , Eebufferpointer
Loop Until Temp <> Temp2
Temp = Ee_param_high_buffer_size + 1
Findcurrenteepromaddr = Eebufferpointer - Temp              'Point to the last used element of the parameter buffer
End Function



Sub Eewritebuffer(byval Parameter As Byte , Byref Address As Word , Byval Dat As Word)
Local Eeoldstatusvalue As Byte , Temp2 As Byte , Tempw As Word , Tempdat As Byte

Tempw = Address + Ee_param_high_buffer_size
Readeeprom Eeoldstatusvalue , Tempw                         ' Store the old status value and move pointer to the next element in the buffer
Tempw = Parameter + Ee_param_high_buffer_size
Incr Address

If Address = Tempw Then Address = Parameter                 'Wraparound if necessary

Tempdat = High(dat)
Writeeeprom Tempdat , Address                               'Update the parameter in the EEPROM buffer
Tempw = Address + Ee_param_high_buffer_size
Tempw = Tempw + Ee_status_buffer_size

Tempdat = Low(dat)
Writeeeprom Tempdat , Tempw
Tempw = Address + Ee_param_high_buffer_size
Temp2 = Eeoldstatusvalue + 1
Writeeeprom Temp2 , Tempw
End Sub

Function Eereadeeprom(adres As Word) As Word                'read eeprom value back
Local Highbyte As Byte , Lowbyte As Byte , Tempw As Word
Readeeprom Highbyte , Adres
Tempw = Adres + Ee_param_high_buffer_size
Tempw = Tempw + Ee_status_buffer_size
Readeeprom Lowbyte , Tempw
Tempw = Makeint(lowbyte , Highbyte)
If Tempw = &HFFFF Then Tempw = Startcountat25pointer        'If eeprom is empty then start at...
Eereadeeprom = Tempw
End Function