'  Test für SerialComScope mit LUNA
'
avr.device = atmega168p
avr.clock = 22118400
avr.stack = 100
uart.baud = 460800
uart.Send.enable

#Library "Library/Adc.interface"
adc.enable
adc.clock = 16
adc.mode = single
adc.reference = avcc
Adc.Channel = 0
AVR.Admux.adlar = 1
Avr.Interrupts.Enable

portb.0.mode = output
portb.0 = 0              ' wird für Oszi-Zeitmessung benutzt
do
  portb.0 = 1
  
  Adc.Result.LeftAdjust  ' notwendig für 8 Bit Betrieb des ADC
  Adc.StartConvert       ' eine ADC-Wandlung starten
  
  do                     ' auf ADC Wandlung Ende warten
  loop until ((avr.ADCSRA and (1<<ADSC)) = 0)
  
  Print avr.ADCH;        ' 8-Bit ADC-Wert auslesen und senden
  
  portb.0 = 0
  waitus 1               ' je nach Baudrate Wert vergrössern
                         ' Damit das PC-programm die Bytes
                         ' auseinander halten kann,
loop