Gast
#135711
Hallo! Versuche verzweifelt meine AD Wandlung zum laufen zu bekommen, doch irgendetwas klappt nicht! möchte das beim überschreiten eines Schwellwertes ein Led eingeschalten und beim unterschreiten die Led ausgeschalten wird! Doch das funktioniert nicht! keine Ahnung warum! AD Wandlung im singel conversion und interrupt mode BSP .include"tn15def.inc" .org 0x000 rjmp RESET .org 0x009 rjmp ADU .def temp=r16 .def uni=r17 .def schwelle_1=r18 .def schwelle_2=r19 RESET: ldi temp,0b00000011 out ddrb,temp clr temp out portb,temp ldi temp,0b00100011 out admux,temp ldi schwelle_1,0b01000000 ldi schwelle_2,0b10000000 ldi temp,0b11001111 out adcsr,temp sei mainloop: rjmp mainloop ADU: IN uni,adcl IN uni,adch cp uni,schwelle_1 brsh setzen_1: cbi portb,0 rjmp ende_1 setzen_1: sbi portb,0 ende_1: cp uni,schwelle_2 brsh setzen_2: cbi portb,1 rjmp ende_2 setzen_2: sbi portb,1 ende_2: ldi temp,0b11001111 out adcsr,temp reti