'
'
'           I                                  I


$regfile = "at15def.dat"
$tiny
'$noramclear
'$noinit
$crystal = 1600000


Declare Sub Langsam
Declare Sub Adin



Ddrb = &B00011011                                           'PB0,1,2 Ausgang,
Portb = &B00011011                                          'pullups

'adc setting
                		                          'ad-control register setting
Adcsr = &B11000111                                          'in register schreiben
		                                        'admux setting
Admux = 1                                                   'adc-port 1 > pin 7


'pre-settings

Portb.3 = 1
Portb.4 = 1






Main:

Call Langsam
Portb.4 = 0
Call Langsam
Portb.4 = 1



Goto Main

End                                                         'end program


Sub Adin

   sbi adcsr,adsc
Adloop:
   sbic adcsr,adsc
   rjmp Adloop
   in r16 , adcl
   in r17 , adch
ret
End Sub


Sub Langsam:

Call Adin

ldi r16,&b01111111
Time1:

ldi r17,&b11111111
Time2:
dec r17
brne Time2

dec r16
brne Time1

ret

End Sub