'-----------------------------------------------------------------------------------------
'name                     : EEPROM_Testing.bas
'purpose                  : Writing and reading to EEPROM
'micro                    : Mega48
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat"                                     ' specify the used micro
$crystal = 8000000                                          ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

Declare sub StorePosition(W_Point as byte,PosX as integer ,PosY as integer)
Declare sub ReadPosition (R_Point as byte)


Dim X as integer
Dim Y as integer
Dim Point as byte



'---Main---
X=0
Y=100


For Point = 1 to 10                           'Store 10 lots of data into the EEPROM
   X=X+1
   Y=Y+1
   Call StorePosition(Point,X,Y)
Next Point

For Point = 1 to 10                           'Read the 10 lots of data back from the EEPROM
   Call ReadPosition(Point)
   Print "X:";X; " Y:";Y
Next Point

End

'-----------------------------------------------------------


Sub StorePosition(w_Point as byte,posX as integer ,PosY as integer)
Local eeprom_position as byte

   eeprom_position = w_Point * 4                ' Each stored position uses 4 bytes of data
   eeprom_position=eeprom_position-3            ' Don't use EEPROM location 0 as per instructions. This is not realy needed just wastes the first 3 memory
                                                ' locations of the EEPROM if not used

   Writeeeprom posX , eeprom_position           'Use a variable as the pointer to eeprom location
   Incr eeprom_position                         'Skip one byte as the stored data is an integer (2 bytes)
   Incr eeprom_position
   Writeeeprom PosY , eeprom_position         'Use a variable as the pointer to eeprom location

End Sub


Sub ReadPosition (r_Point as byte)
   Local eeprom_position as byte

   eeprom_position = r_Point * 4
   eeprom_position=eeprom_position-3        ' Set the start read point in eerom

   Readeeprom X , eeprom_position         ' Use a variable as the pointer to eeprom location
   Incr eeprom_position                    ' Skip one byte as the stored data is an integer (2 bytes)
   Incr eeprom_position
   Readeeprom Y , eeprom_position         ' Use a variable as the pointer to eeprom location

End sub


 

$regfile = "m48def.dat"                                     '4KB FLASH, 1KB SRAM, 256B EEPROM
$crystal = 8000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$sim

'256B/4=64 max cell for four bytes

 Dim Myeeprom(64) As Eram Long
 Dim Mytype As Long
 Dim Myx As Integer At Mytype Overlay
 Dim Myy As Integer At Mytype + 2 Overlay
 Dim N As Byte

 'test write
 For N = 1 To 64
  Myx = N
  Myy = N
  Myeeprom(n) = Mytype
 Next


 'test read back
 For N = 1 To 64
  Mytype = Myeeprom(n)
  Print "X=" ; Myx ; " Y=" ; Myy
 Next

 End