;******************************************************
.include "8535def.inc"
rjmp INIT ;INIT Handle
;******************************************************
INIT:
.def temp =r16
; cbi ADMUX, MUX0 ;Kanal
; cbi ADMUX, MUX1
; cbi ADMUX, MUX2
sbi ADCSR, ADEN ;AD enable
//das reicht wahrscheinlich nicht, Takt des A/D an den Quarztakt
anpassen ADSP2:0
ser temp
out DDRB,temp ;Set direction out
loop2:
sbi ADCSR, ADSC ;Start AD
loop: sbic ADCSR, ADSC ;Weiter, wenn adsc is clear
rjmp loop
ldi r16, ADCL
out PORTB, r16
ldi r16, ADCH
//das ist kompletter Quark, da musst du schon mit den in-Befehlen
arbeiten, also
in r16, ADCL
....
rjmp loop2