$eeprom
Data 600 , 1200 , 2400 , 6000 , 12000 , 24000 , 60000
$data
 

'-------------------------------------------------------------------------------
'copyright                : (c) 1995-2005, MCS Electronics
'micro                    : AT90S2313
'suited for demo          : yes
'commercial addon needed  : no
'purpose                  : demonstrates $DATA directive
'-------------------------------------------------------------------------------
$regfile = "2313def.dat"
$baud = 19200
$crystal = 4000000                                          ' 4 MHz crystal
Dim B As Byte
Readeeprom B , 0                                            'now B will be 1
End

Dta:
$eeprom
Data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8
$data
End
 

Dta:
$eeprom

Data 1 , 20 , 255  'these are bytes, each value will use 1 byte of EEPROM.
Data 1%, 20%, 255%, 32767%  'these are integers, each value will use 2 bytes of EEPROM.
Data 1%, 20%, 255%, 65535%  'these are words, each value will use 2 bytes of EEPROM.
Data 1&, 20&, 255&, 65535&, 2147483647&   'these are longs, each value will use 4 bytes of EEPROM.
Data 1.123!, 123.456! 'these are singles, each value will use 4 bytes of EEPROM.
Data 1.123#, 123.456# 'these are doubles, each value will use 8 bytes of EEPROM.

$data