let output_int32 chn endian vl =
  let (a0,a1,a2,a3) = 
    byte_of_int32 vl
  in
  let order = 
    match endian with
      BigEndian ->
        [a0;a1;a2;a3]
    | LittleEndian ->
        [a3;a2;a1;a0]
  in
  List.iter (output_byte chn) order