neo-s.pl

   1 #!/usr/bin/perl
   2 $|=1;
   3 for ($a=0x43; $a<=0x53; $a+=0x10) {
   4     next if $a eq 0x46;
   5 #for ($b=90; $b<=95; $b++) {
   6     $b=0xff;
   7 printf STDERR "%02x %02x\n", $b, $a;
   8 #next if $a eq 0x46;
   9     print pack("c*", 0xff, $b,$a) or die $!;
  10 #}
  11 printf STDERR "---\n";
  12 #sleep 1;# if !($a & 0x0f);
  13 }
  14
  15 __END__
  16
  17 speed,0x00,0x46 rumble
  18  ??,0x00,0x43   ?? is something to do with mouse acceleration; with ??=0
  19                   no mice visible
  20 0xff,0x00,0x53  swaps things round