$regfile = "attiny13.dat"

$hwstack = 8
$swstack = 8
$framesize = 24

DDRB = &B00000011       '0 - input , 1 - output
PORTB = &B00000000
Config Pinb.2 = Input

'ADC settings
ADMUX = &B00000001       'internal ref,right adj,chan#1(pb2)
'Adcsra.7 = 1       'enable ADC
'Adcsra.6 = 0       'Stop ADC
'Adcsra.5 = 0       'autotrigger disabled
ADCSRA = &B10000110      ' prescaler = 64,

Const V_limit = 550      
Dim Adc_val As Word

Do

Gosub Get_current

Select Case Adc_val
    Case Is < V_limit : PORTB.0 = 0
    Case Is > V_limit : PORTB.0 = 1
  End Select

Loop
End


Get_current:
  ADCSRA.6 = 1       'start ADC
  Adc_val = Getadc(1)
  ADCSRA.6 = 0       'stop ADC
Return

 

Config Adc = Single , Prescaler = Auto
Dim Adc_val As Word

Adc_val = Getadc(1)
 

Dim Adc_val As Word
'ADC settings
ADMUX = &B00000001       'internal ref,right adj,chan#1(pb2)
'Adcsra.7 = 1       'enable ADC
'Adcsra.6 = 0       'Stop ADC
'Adcsra.5 = 0       'autotrigger disabled
ADCSRA = &B10000110      ' prescaler = 64,


  ADCSRA.6 = 1        'start ADC
  While ADCSRA.6 = 1  'wait until conversion complete
  Wend           

  Adc_val = ADCH * 256
  Adc_val = Adc_val + ADCL