Config Adc = Single, Prescaler = 2, Reference = Avcc
$ regfile = "m16def.dat"
$ crystal = 8000000
$ hwstack = 32
$ swstack = 10
$ framesize = 40
For X = 0 To 50000 Step 1
A = Getadc (7)
Next X

'File Name:  Nano ADC to USART Test V1.bas
'JEC  Bascom   Oct 2, 2017

'This is a quickie test project for a Forum question regarding sampling ADC
'at 7 KHz and uploading the data via the USART.

'This uses an Arduino Nano board, Mega328P @ 16 MHz, 5V system
'This Nano has a USART to USB bridge chip: CP2102.

'Nano Hardware:
'USB Bridge is on PortD.0, RxD
'USB Bridge is on PortD.1, TxD
'On PCB LED is on PortB.5  LED
'
'Extra hardware on the breadboard at the moment, not needed:
'PortD.3    LED   Hi = On
'PortD.4    LED   Hi = On
'PortD.5    LED   Hi = On
'
'PortD.6    PB Switch   Needs Internal Pull Up Resistor enabled.
'PB Switch normally reads high, is low when pressed.

'Note:  ARef pin has a cap to ground, it is NOT connected to any
'voltage reference.
'The ADC is configured to use the Vcc rail, set up internally.

'V1   Oct. 2, 2017  Works
'Set up T/C for 7 KHz ISR
'Set up ADC for 10bit data to a Word variable
'Set up ring buffered, interrupt driven, USART TxData driver

'Note well:
'The functionality of this program is really entirely within the
'ISR.  Main Loop flashes an LED for fun.

'Method:
'Isr Fires At 7 Khz.
'Inside ISR read the LAST ADC reading and stuff it in USART TxData buffer
'Trigger the next ADC reading to take the next reading
'There is NO Packetization of the data.
'There is NO data compression.
'Data synchronization at the PC end is left as an exercise for the user
'Note:  After reading the ADC data, this program changes the ADC data value
'to a "C" to allow it to be seen on a terminal emulator program on a PC.

'Note:  With the USART running with a Baud Rate of 250000 one has time to send
'the TWO data bytes to the PC in the interval between the ISR firings.
'The 10 Bit data is send as a Word, (two 8-bit Bytes).
'No data compression is used.
'One might fit in a third Byte, (just barely, didn't calc or test this).


'-----------------------------------------------------------------------------------------

$regfile = "m328pdef.dat"                                   'Micro used
$crystal = 16000000                                         'Micro's Clock Frequency

$hwstack = 64                                               'Hardware Stack
$swstack = 64                                               'Software Stack
$framesize = 64                                             'Frame Space
'$baud = 57600                                               'Set Baud Rate
$baud = 250000                                              'Set Baud Rate

   'Configure the Port's Pins for Input or Output mode.
   Config Portb.5 = Output                                  'LED
   Config Portd.3 = Output                                  'LED
   Config Portd.4 = Output                                  'LED
   Config Portd.5 = Output                                  'LED
   Config Portd.6 = Input                                   'User Push Button Switch

   'Type Word is 16 Bit unsigned
   'ADC Value is 10 Bit data, Right justified.

   Dim Regval As Byte                                       'Register Value for manual config
   Dim X As Byte                                            'Loop counter
   Dim Ttcnt As Word                                        'TicTock ISR Counter

   Dim Adcval As Word                                       'ADC Data Value, Word
   Dim Pbsw1 As Byte                                        'PB Switch #1's value

   Led0 Alias Portb.5                                       'LED on Nano PCB
   Led1 Alias Portd.3                                       'Led, Red
   Led2 Alias Portd.4                                       'Led, Yellow
   Led3 Alias Portd.5                                       'Led, Green
   Pbs1 Alias Pind.6                                        'PB Switch, Pressed = Low

'...............................................................................
   'Setup Timer/Counter #0 for Interrupts:
   'Bascom can configure the Timer/Counter for generating interrupts.
   'I prefer to do it myself, then I know the specific details of how it
   'has been configured.

   'This will configure the M328P Timer/Counter #0, (8-bit), for an interrupt
   'rate of APPROXIMATELY 7 KHz.
   'One can, of course, look at using other T/C prescaler settings, or a 16 bit
   'T/C and see if the error in the 7KHz rate can be reduced.
   'This example, however, demonstrates the concept and the 7 KHz sampling rate
   'is actually at 6944.4 Hz, for < 1% sampling rate error.

   'Configure M328P Timer/Counter #0,(8-Bit), for APPROX 7 KHz ISR rate:
   'CTC Mode, Clear Timer On Compare Mode
   'Enable TC0 in Power Reduction Register.
   'Do not enable any hardware output pins.
   'uC Clock = 16 MHz
   'Prescale = /64    16MHz/64 = 250,000 clock into the TC0 module.
   '250k / 7000 = 35.714, so round this up to 36
   'This means if the T/C counts to 36 it will generate an interrupt at ~ 7 KHz.
   'Set the T/C TOP value to 35, as the T/C roll over from TOP to zero also
   'counts as one count.

   'Using Output Compare A for this.
   'Must write 0 to PRR Bit 5 to Enable TC0.  Leave other bits alone.

   'First Turn On the Timer/Counter0 Module.
   'Read the Power Reduction Register, set the PRTim0 bit to 0 to Enable it.
   'Then write it back.  This does NOT alter any other module's activity.
   'Bitwise AND with 1101 1111   All bits unchanged, except Bit 5 = 0.
   Regval = Prr                                             'Read in current Power Reduction Register Values
   Regval = Regval And &B11011111                           'Force Bit 5 = 0
   Prr = Regval                                             'Save new value

   'Now set up the Timer/Counter#0 Control Registers for CTC Mode,
   'PreScale Div by 64:
   'No output on hardware pins.
   Tccr0a = &B00000010                                      'Timer/Counter Control Register A
   Tccr0b = &B00000011                                      'Timer/Counter Control Register B

   'Now set the TOP value for the A Output Compare Register.
   'I want this to be 35 dec  for a count of 36 dec.
   Ocr0a = 35                                               'TOP for CTC count of 36d, ~ 7KHz

  ' Ocr0a = 249                                              'TOP for CTC count of 250, 1 KHz ISR

   'Now Set The Interrupt Mask:  Enable Output Compare A Match Interrupt
   Timsk1 = &B00000010                                      'Timer/Counter1 Interrupt Mask Register

   'Now Enable the Interrupt and define the ISR handler:   Output Compare 0 A
   Enable Compare0a
   On Oc0a Heartbeat
'...............................................................................

   'ADC Module Setup:
   'Configure the M328P ADC for Single Conversion Mode
   '10 Bit resolution
   'There are 8 Analog Inputs on PortA.
   'Use the Multiplexer to set the desired input Pin.
   'Config for Vref = Internal connection to the Vcc, (5V) rail.
   'Config for ADC0 as the input source.
   'Config for Single conversion, without using ADC interrupts.
   'Manually start conversion by setting Bit 6 in ADCSRA register.
   'Ignore first conversion result.

   'First Turn On the ADC Module in the Power Reduction Register,
   'In PRR Bit 0 = 0 to Enable the ADC module
   'Read the Power Reduction Register, set the PRADC bit to 0 to Enable it.
   'Then write it back.  This does NOT alter any other module's activity.
   'Bitwise AND with 1111 1110   All bits unchanged, except Bit 0 = 0.
   Regval = Prr                                             'Read in current Power Reduction Register Values
   Regval = Regval And &B11111110                           'Force Bit 0 = 0
   Prr = Regval                                             'Save new value

   'ADC: Vref = Vcc internally selected, R just data, ADC Ch 0
   Admux = &B01000000

   'Trigger the first ADC Read to set up the ADC hardware:
   'Enable ADC, No Interrupts, Pre-Scale = 128, (ADC Clock = 125 kHz)
   Adcsra = &B11000111

'............................................................................
   'Setup USART:
   'Config the HW USART for interrupt driven ring buffered output
   'Serialout = serialout0 = The first USART.
   'Default N,8,1 is used if Config isn't used.
   Config Serialout = Buffered , Size = 128

'............................................................................


'............................................................................
Premain:
   'Turn on PB Switch's Internal Pull Up Resistor:
   Portd.6 = 1                                              'Turn On Pull Up Resistor


   'Flash an LED on Startup:
   For X = 1 To 10
      Set Led0
      Waitms 50
      Reset Led0
      Waitms 50
   Next X


   'Now Enable Global Interrupts:
   Enable Interrupts                                        'Global Enable Interrupts

Main:
   'Program's real work is done within the ISR.
   'This Main Loop just flashes an LED for kicks.
   'Flash an LED about 1 Hz (Without ISR)

   'LED's Off
   Reset Led1
   Reset Led2
   Reset Led3

   Do
      'Flash an LED, NOT ISR driven
      Set Led2
      Waitms 100
      Reset Led2
      Waitms 900

   Loop


Heartbeat:
   'Timer/Counter #0 ISR:
   'This ISR fires at APPROX 7 KHZ rate.
   '  Set an I/O Pin for O'scope monitoring
   '  Read in Last ADC conversion
   '  Trigger the next ADC conversion
   '  Stuff ADC reading into the USART Transmit Buffer
   '  Flash an LED at 1 / Sec
   '  Push Button Switch Debounce can be added, also...
   '  Clear the O'scope Pin

   'TickTock counter  TTCnt

   'Set PortD.3 I/O Pin to watch ISR fire on O'Scope.
   'This is LED 1, so it will also glow dimly.
   Set Led1                                                 'Pin High

   'Process ADC Data:
   'Read in the current ADC reading
   'Trigger the Next ADC reading
   'Then stuff the ADC data into the USART's Transmit buffer

   'Automatically read in ADCL, then ADCH, put in ADCVal variable:
   Adcval = Adc                                             'Get ADC data

   'Trigger the next ADC Reading
   'Enable ADC, No Interrupts, Pre-Scale = 128, (ADC Clock = 125 kHz)

   '**********************************
   '  Change the ADC Data to an ASCII Character to
   '  see it on the PC terminal program
  '  One sees "C"s filling the screen instead of the actual data values.
   '**********************************

   Adcval = 67                                              '"C"  Fake Data
   Adcsra = &B11000111                               'Trigger the next ADC reading.

   Printbin Adcval                                          'Upload the ADC data

   'Flash an LED once per second
   Ttcnt = Ttcnt + 1                                        'Incr
   If Ttcnt < 100 Then
      Set Led0                                              'LED On
   Else
      Reset Led0                                            'LED Off
   End If

   If Ttcnt > 999 Then
      Ttcnt = 0                                             'Rollover
   End If


   Reset Led1                                               'Clear O'scope marker

   Return


   End