Man kann einfacher
Code:
Readadc = ADC
schreiben.
Der ADC ist im Auto-Mode auch ohne ADCC-ISR zu betreiben, das Ergebnis per Var = ADC abgeholt entspricht dem aktuellsten Wert, d.h:
Code:
If Twi_status = &HA8 Or Twi_status = &HB8 Then
   Twdr = ADC
...
Und sowas hier:
Code:
Adcsra = &B11101110
liest sich so bedeutend besser:
Code:
 Adcsra = Bits(ADEN, ADSC, ADATE, ADIE, ADPS2, ADPS1)
Ist auch weniger anfällig für Schreibfehler.