rem: ex->exponent    = htobe_long( ex->exponent );
add: ex->exponent    = htobe_short( ex->exponent );
context: void ulong2extended (ULONG in, extended *ex){  ex->exponent = 31+16383;  ex->mantissa[1] = 0;  while(!(in & 0x80000000))  {    ex->exponent--;    in <<= 1;  }  ex->mantissa[0] = in;  ex->exponent    = htobe_long( ex->exponent );  ex->mantissa[0] = htobe_long( ex->mantissa[0] );  ex->mantissa[1] = htobe_long( ex->mantissa[1] );}