sub calculateInstruction{
  my $n = $ENABLE{'nothing'};
  for my $k (keys %STATE){
    $n |= $ENABLE{$k} if ($STATE{$k});
  }
  my $instruction = "<f 1108 $n>";
  print "Would send $instruction to serial\n";
#    $port->write($instruction);
#    $port->lookclear();    
}