$regfile="xm256A3BUdef.dat"
$crystal = 32000000                                         ' 32MHz
$hwstack = 128
$swstack = 128
$framesize = 128

Config BASE = 0                                             ' arrays start at 0

'first enable the osc of your choice
Config Osc = Enabled , 32mhzosc = Enabled
'configure the systemclock
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1
'for debug we send some data to the UART
Config Com3 = 115200 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
open "COM3:" for binary as #2
Config Twic = 100000                                       ' CONFIG TWI will ENABLE the TWI master interface
const cfram_channel = 1                                    ' this constant is required by the fm24c64_256-xmega lib
                                                          ' set it to 1 for TWIC , 2 for TWID , 4 for TWIE and 8 for TWIF
'Open "twic" For Binary As #1                               ' when not using default twic, you must use a channel

const _twi_stop_1 = 1                                       ' just test i2cstop option, see help

Dim Twi_start As Byte                                       ' always required for xmega i2c
I2Cinit' #1

$eepromsize = &H8192                                         ' set it to the size of your EEPROM
$lib "fm24c64_256-xmega.lib"                               ' include lib


dim ee(100) as eram byte                                   ' dim an EEPROM array
Dim B , adres As byte

print #2, "Writing EEEPROM"
for adres = 0 to 10
   print#2, adres ; ",";
   ee(adres) = adres
   'waitms 20                                               ' ONLY FOR NORMAL EEPROM , REMOVE FOR RAMTRON
next
print

print#2, "read EEEPROM"

for adres = 0 to 10
   b = ee(adres)
   print#2,  adres;"-";b
next

end