sub c_out {
 my $_=shift;
 my $final=shift;
 if(defined($c_out_store)) {
  print F2 pack('H*',sprintf('%03x%03x',$_,$c_out_store));
  undef $c_out_store;
 } elsif($final) {
  print F2 pack('H*',sprintf('%03x%03x',0,$_));
 } else {
  $c_out_store=$_;
 }
}