Delphi and BASM sample code from the SWAG
BITWISE TRANSLATIONS ROUTINES