Code:
sub adc_kanal(_channel as byte)
local _temp as byte
   _temp = Admux And &B11110000                            'oberes Nibble retten
   Admux = _temp Or _channel                               'Kanal setzen
end sub

so hab ichs gelöst



Gruß BoGe-Ro