From: John Payson
;This routine will leave the parity of X in X.0
;while blenderizing most of the rest of X
swapf X, W
xorwf X, F
rrf X, W
xorwf X, F
btfsc X, 2
incf X, F
See also: