in reply to Casting numbers
I recommend the following:
perl -e '$a = 127; printf "original:%04x, bit-negative version:%04x\n" +, $a, (~$a)&0xffff;' original:007f, bit-negative version:ff80 [download]