#!/usr/bin/perl
$|=1;
for ($a=0x43; $a<=0x53; $a+=0x10) {
    next if $a eq 0x46;
#for ($b=90; $b<=95; $b++) {
    $b=0xff;
printf STDERR "%02x %02x\n", $b, $a;
#next if $a eq 0x46;
    print pack("c*", 0xff, $b,$a) or die $!;
#}
printf STDERR "---\n";
#sleep 1;# if !($a & 0x0f);
}    

__END__

speed,0x00,0x46 rumble
 ??,0x00,0x43   ?? is something to do with mouse acceleration; with ??=0
                  no mice visible
0xff,0x00,0x53  swaps things round
