Определение напряжения аккумулятора (ADC-АЦП).
Для любого существа самое важно это вовремя вкусно покушать... 
Поэтому первое чему нужно научить МиниБота это вовремя просить кушать... :-)

Код:
$prog &HFF , &HE4 , &HD9 , &H00                             ' generated. Take care that the chip supports all fuse bytes.
$regfile = "m32DEF.dat"
$crystal = 8000000
$baud = 1200

Config Adc = Single , Prescaler = Auto , Reference = Internal

Dim W As Word , J As Single

Do
   Start Adc
   W = Getadc(7)
   Stop Adc

   J = W / 400
   J = J * 2

   Print J                                                  ' Для наглядности выводим в УАРТ, т.е. в Тх, значение переменной J
Loop