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: