#! /usr/bin/perl -w
############################################################
# convert a 32 Bit hex words of the ni_sniffer module into
# a event buffer readout format 'd2 d1 d0'
# 14.01.2004 - Rolf Schneider
############################################################

print "usage: $0 <filename>\n" if ((@ARGV == 0) && (-t STDIN));

while(<>) {
  chop($_);
  $decvalue = hex $_;
  $d2 = ( ($decvalue >> 22) & 0x3FF);
  $d1 = ( ($decvalue >> 12) & 0x3FF);
  $d0 = ( ($decvalue >>  2) & 0x3FF);
  print "$d2 $d1 $d0\n";
}

exit 0;