dim eByte as ERAM byte
dim btest as byte

btest=ebyte 'read
print btest
btest=100
ebyte=btest
btest=ebyte 'read
print btest

end
 

'--------------------------------------------------------------------------------
'name                     : AVRX128db28-test.bas
'copyright                : (c) 1995-2021, MCS Electronics
'purpose                  : demonstrates AVR128DB28
'micro                    : AVR128DB28
'suited for demo          : no
'commercial addon needed  : yes
'--------------------------------------------------------------------------------
$regfile = "AVRX128db28.dat"

$crystal = 24000000
$hwstack = 40
$swstack = 40
$framesize = 40

'The AVRX series have more oscillator options
Config Osc = Enabled , Frequency = 24mhz
'set the system clock and prescaler
Config Sysclock = Int_osc , Prescale = 1

'configure comparator
Config Ac0 = On , Hysmode = 10 , Mux_pos = Ainp1 , Dacref = &H55

'Some interrupts have multiple trigger options. There is however just one interrupt vector
On Zcd0_falling Isr_zcd
Enable Zcd0_falling                                         'different settings are possible but there is just 1 interrupt !
Disable Zcd0_both                                           ' you best use the same trigger name but you can use different ones

Enable Zcd0_both

'The REGMODE option is for some statements implicit. Like for PORT_MUX.
Config Port_mux = Overwrite , Evouta = Alt1_pa7 , Ac0 = Alt1_pc6 , Lut0 = Alt1_pa6 , Spi0 = None

Config Com1 = 115200 , Mode = Asynchroneous , Parity = None , Databits = 8 , Stopbits = 1

'new config VREG POWER option
Config Vregpwr = Auto

'voltage ref
Config Vref = Dummy , Ac = 1v024 , Adc0 = 2v048 , Dac0 = 2v048 , Force_adc0 = Disabled , Force_ac = Enabled

'zero cross detector
Config Zcd0 = Enabled , Runmode = Disabled , Invert = Enabled , Out_enable = Enabled

'brown out detector
Config Bod_vlm = Dummy , Bod_sleep = Disabled , Vlm_threshold = 5above

'opamp
Config Opamp = Enabled , Inp_range = Rail_to_rail , Opamp0_always_on = Enabled , Opamp0_muxbot = Inp , Opamp0_muxneg = Wip , Opamp0_muxwip = R1_6r_r2_10r

'DA converter ,out_enable will set the port direction to output
Config Dac0 = Enabled , Out_enable = Enabled , Runmode = Enabled


'dimension a variable
Dim B As Byte
dim eB as eram byte

eb=10 'write to eeprom

Print "Test USART"
Do
   b=eb           'read eeprom
   print "ERAM : "; b
   Print "Hello" ; Spc(3) ; B
   Waitms 1000
   Incr B
Loop


Isr_zcd:
  Zcd0_status = Bits(zcd_crossif_bp)                        'reset the interrupt flag
Return
 

'--------------------------------------------------------------------------------
'name                     : AVRX128db28-eeprom.bas
'copyright                : (c) 1995-2022, MCS Electronics
'purpose                  : demonstrates AVR128DB28 EEPROM
'micro                    : AVR128DB28
'suited for demo          : no
'commercial addon needed  : yes
'--------------------------------------------------------------------------------
$regfile = "AVRX128db28.dat"

$crystal = 24000000
$hwstack = 40
$swstack = 40
$framesize = 40

'The AVRX series have more oscillator options
Config Osc = Enabled , Frequency = 24mhz
'set the system clock and prescaler
Config Sysclock = Int_osc , Prescale = 1

Config Com1 = 115200 , Mode = Asynchroneous , Parity = None , Databits = 8 , Stopbits = 1

'dimension a variable
Dim B As Byte, s as string * 40
dim eb as eram byte
dim eS as eram string * 40

Print "Test ERAM"
Do
   input "R/W? ",s
   if s="W" then
      s="This is eeprom test"
      es=s
      b=100
      eb=b
   elseif s="w" then
     b=101
     WriteEEprom b,0
   elseif s="R" then
      s=es: print s
      b=eb:print b
   elseif s="r" then
     readeeprom b,0
     print b
   end if
Loop

 

'--------------------------------------------------------------------------------
'name                     : AVRX128db28-eeprom.bas
'copyright                : (c) 1995-2022, MCS Electronics
'purpose                  : demonstrates AVR128DB28 EEPROM
'micro                    : AVR128DB28
'suited for demo          : no
'commercial addon needed  : yes
'--------------------------------------------------------------------------------

' Changes made...
' AVRX128DB48, not AVRX128DB28
'USART3 used instead


$regfile = "AVRX128db48.dat"

$crystal = 24000000
$hwstack = 40
$swstack = 40
$framesize = 40

'The AVRX series have more oscillator options
Config Osc = Enabled , Frequency = 24mhz
'set the system clock and prescaler
Config Sysclock = Int_osc , Prescale = 1


Config Com4 = 19200 , Mode = Asynchroneous , Parity = None , Databits = 8 , Stopbits = 1
Open "COM4:" For Binary As #4

'dimension a variable
Dim B As Byte, s as string * 40
dim eb as eram byte
dim eS as eram string * 40

Print #4 , "Test ERAM"
Do
   Input #4 , "R/W? " , S
   if s="W" then
      s="This is eeprom test"
      es=s
      b=100
      eb=b
   Elseif S = "w" Then
     b=101
     WriteEEprom b,0
   Elseif S = "R" Then
      S = Es : Print #4 , S
      B = Eb : Print #4 , B
   Elseif S = "r" Then
     readeeprom b,0
     Print #4 , B
   end if
Loop

Close #4
End