perl -e '$a = 127; printf "original:%04x, bit-negative version:%04x\n", $a, (~$a)&0xffff;'
original:007f, bit-negative version:ff80