'--------------------------------------------------------------------------------
'name                     : adc-DB.bas
'copyright                : (c) 1995-2021, MCS Electronics
'purpose                  : demonstrates ADC
'micro                    : AVR128DB28
'suited for demo          : no
'commercial addon needed  : yes
'--------------------------------------------------------------------------------
$regfile = "AVRX128db28.dat"
$crystal = 24000000
$hwstack = 64
$swstack = 64
$framesize = 64

'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


'configure the internal reference to be 1v024 for the ADC
Config Vref = Dummy , Adc0 = 1v024

'configure the ADC0 to read the DAC
Config Adc0 = Single , Resolution = 10bit , Adc = Enabled , Prescaler = 32 , Sample_len = 1 , Mux_neg = Gnd , Mux_pos = Ain0

'dimension a variable
Dim W As Word , B As Byte

Print "Test ADC"


Do
  'when getadc() does not have parameters, it will use the current mux setting
  'other options are : getadc(channel)  and getadc(adc0 | adc1 , channel)
   W = Getadc() : Print "W:" ; W
   'output should be 512
   Waitms 1000

Loop