put and extract working fine

extract bits from uint32 and put bits into uint32. It has been tested in
GNAT.