Easyfuck, 35 3231 bytes
D‘ň␗Č_-ZňÚG‰VŕPůňµ2’>Bům×É␗ţVSHY<␀8
due to lack of unicode representations for c1 control characters, they have been replaced by their superscripted abbreviations
Decompressed:
"$>!>!>--<[$<%-`(>>+)J$>!>-]>$/~++'
"$>!>!>--<[$<%-`(>>+)J$>!>-]>$/~++'
"$>!>! input an 8bit integer into 1st cell and copy it into 2nd and 3rd
>--< set 4th cell to 254 and go back to 3rd
[ ] while loop
$<%-`(>>+) modulo 2nd cell by 3rd and if 0 increment 4th
J$>!>- copy 1st cell to 2nd and decrement 3rd
>$/ divide 4th cell by self to get to 0 or 1
~++' turn 1 into 0 and vice versa, then print