dim B as byte
b=0
set b.5
set b.7
tccr2a=b

Die Routine ist aber langsamer als b=&b10100000.