READEEPROM - Revision history

Admin: Created page with "= Action = Reads the content from the DATA EEPROM and stores it into a variable.
2013-02-11T21:56:39Z

Created page with "= <span class="f_Header">Action</span> = Reads the content from the DATA EEPROM and stores it into a variable. <span style="font-family: Arial;"> </span> <span style="..."

New page
= <span class="f_Header">Action</span> =

Reads the content from the DATA EEPROM and stores it into a variable.

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">Syntax</span> =

<span class="f_Syntax">READEEPROM</span> var , address

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">Remarks</span> =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="14%" style="width: 81px; border: 1px solid rgb(0, 0, 0);" |
Var

| valign="top" width="100%" style="width: 514px; border: 1px solid rgb(0, 0, 0);" |
The name of the variable that must be stored

|- style="vertical-align: top;"
| valign="top" width="14%" style="width: 81px; border: 1px solid rgb(0, 0, 0);" |
Address

| valign="top" width="100%" style="width: 514px; border: 1px solid rgb(0, 0, 0);" |
The address in the EEPROM where the data must be read from.

|}
</div>
<span style="font-family: Arial;"> </span>

This statement is provided for backwards compatibility with BASCOM-8051.

You can also use the ERAM variable instead of READEEPROM :

<span style="font-family: Arial;"> </span>

Dim V as Eram Byte 'store in EEPROM

Dim B As Byte  'normal variable

B = 10

V = B   'store variable in EEPROM

B = V   'read from EEPROM

<span style="font-family: Arial;"> </span>

When you use the assignment version, the data types must be equal!

According to a data sheet from ATMEL, the first location in the EEPROM with address 0, can be overwritten during a reset so don't use it.

<span style="font-family: Arial;"> </span>

You may also use ERAM variables as indexes. Like :

Dim ar(10) as Eram Byte

<span style="font-family: Arial;"> </span>

When you omit the address label in consecutive reads, you must use a new READEEPROM statement. It will not work in a loop:

<span style="font-family: Arial;"> </span>

Readeeprom B , Label1

Print B

<span style="font-family: Arial;"> </span>

Do

Readeeprom B

Print B Loop

Until B = 5

<span style="font-family: Arial;"> </span>

This will not work since there is no pointer maintained. The way it will work :

<span style="font-family: Arial;"> </span>

ReadEEprom B , Label1 ' specify label

ReadEEPROM B ' read next address in EEPROM

ReadEEPROM B ' read next address in EEPROM

 

OR

 

Dim Next_Read as Integer

Dim In_byte as Byte

Dim Eerom_position as Integer

 

Eerom_position = 20                                  ' Set the start read point in eerom

For Next_Read = 1 To 5 Step 1                   ' Set up the bytes to be read from eeprom

Readeeprom In_byte , eeprom_position         ' Use a variable as the pointer to eeprom location

Call another_sub_routine                            '

Incr Chr_pos_font                                    ' Now set pointer for next eeprom data byte

Next

 

<span style="font-family: Arial;"> </span>

In the XMEGA, you need to set the mode to mapped : [[CONFIG EEPROM|CONFIG EEPROM]] = MAPPED.

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">See also</span> =

[[WRITEEEPROM]] , [[$EEPROM]]

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">ASM</span> =

NONE

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">Example</span> =

<br/><source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : eeprom2.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows how to use labels with READEEPROM
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' 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

'first dimension a variable
Dim B As Byte
Dim Yes As String * 1

'Usage for readeeprom and writeeprom :
'readeeprom var, address

'A new option is to use a label for the address of the data
'Since this data is in an external file and not in the code the eeprom data
'should be specified first. This in contrast with the normal DATA lines which must
'be placed at the end of your program!!

'first tell the compiler that we are using EEPROM to store the DATA
$eeprom

'the generated EEP file is a binary file.
'Use $EEPROMHEX to create an Intel Hex file usable with AVR Studio.
'$eepromhex

'specify a label
Label1:
Data 1 , 2 , 3 , 4 , 5
Label2:
Data 10 , 20 , 30 , 40 , 50

'Switch back to normal data lines in case they are used
$data

'All the code above does not generate real object code
'It only creates a file with the EEP extension

'Use the new label option
Readeeprom B , Label1
Print B 'prints 1
'Succesive reads will read the next value
'But the first time the label must be specified so the start is known
Readeeprom B
Print B 'prints 2

Readeeprom B , Label2
Print B 'prints 10
Readeeprom B
Print B 'prints 20

'And it works for writing too :
'but since the programming can interfere we add a stop here
Input "Ready?" , Yes
B = 100
Writeeeprom B , Label1
B = 101
Writeeeprom B

'read it back
Readeeprom B , Label1
Print B 'prints 100
'Succesive reads will read the next value
'But the first time the label must be specified so the start is known
Readeeprom B
Print B 'prints 101
End
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference]]