Example

The value 118.62510 in binary is 1110110.1012. This value is normalized by moving the radix point left four bits (one hexadecimal digit) at a time until the leftmost digit is zero, yielding 0.011101101012. The remaining rightmost digits are padded with zeros, yielding a 24-bit fraction of .0111 0110 1010 0000 0000 00002.

The normalized value moved the radix point two digits to the left, yielding a multiplier and exponent of 16+2. A bias of +64 is added to the exponent (+2), yielding +66, which is 100 00102.

if IntegDec>=1 then // if intergral part of IN is >1 => for i:=0 to 31 by 1 do BitTrue:=testbit(IntegDec,i);if BitTrue then e:=i; end_if; end_for;else Flag:=FractBin;for i:=0 to 31 by 1 do OneChar:=LEFT( Flag,1 ); if OneChar='1' then e:=-1*(i+1); exit;end_if; Flag:=DELETE( Flag, 1,1); // delete left chararcter end_for;end_if;