From: John Payson
;This routine will leave the parity of X in X.0 ;while blenderizing most of the rest of X mov W, <>X xor X, W mov W, >>X xor X, W snb X.2 inc X