src/hexkinya

   1 #!/usr/bin/perl
   2
   3 @init = (
   4 '7E414949490000000000000000000000',
   5 '7E414141410000000000000000000000',
   6 '7E010909090000000000000000000000',
   7 '7E010101010000000000000000000000',
   8 '414B5D69410000000000000000000000',
   9 '43454951610000000000000000000000',
  10 '3E087F08080000000000000000000000',
  11 '08087F08080000000000000000000000',
  12 '25555555250000000000000000000000',
  13 '39454545390000000000000000000000',
  14 '494949413F0000000000000000000000',
  15 '414141413F0000000000000000000000',
  16 '090909017F0000000000000000000000',
  17 '010101017F0000000000000000000000',
  18 '41417F41410000000000000000000000',
  19 '7E0101017F0000000000000000000000',
  20 '7E4141417F0000000000000000000000',
  21 '23150911210000000000000000000000',
  22 '7F010F01010000000000000000000000',
  23 '01097F01010000000000000000000000',
  24 '02040810200000000000000000000000'
  25 );
  26
  27 @medi = (
  28 '0000000000007F400000000000000000',
  29 '0000000000003F402000000000000000',
  30 '00000000000000407F00000000000000',
  31 '00000000000020403F00000000000000',
  32 '0000000000007F010000000000000000',
  33 '0000000000007E010200000000000000',
  34 '00000000000000017F00000000000000',
  35 '00000000000002017E00000000000000'
  36 );
  37
  38 @fina = (
  39 '000000000000000000007E4149494900',
  40 '000000000000000000007E4141414100',
  41 '000000000000000000007E0109090900',
  42 '000000000000000000007E0101010100',
  43 '00000000000000000000414B5D694100',
  44 '00000000000000000000434549516100',
  45 '000000000000000000003E087F080800',
  46 '0000000000000000000008087F080800',
  47 '00000000000000000000255555552500',
  48 '00000000000000000000394545453900',
  49 '00000000000000000000494949413F00',
  50 '00000000000000000000414141413F00',
  51 '00000000000000000000090909017F00',
  52 '00000000000000000000010101017F00',
  53 '0000000000000000000041417F414100',
  54 '000000000000000000007E0101017F00',
  55 '000000000000000000007E4141417F00',
  56 '00000000000000000000231509112100',
  57 '00000000000000000000404078407F00',
  58 '0000000000000000000001097F010100',
  59 '00000000000000000000020408102000',
  60 '00000000000000000000000000000000'
  61 );
  62
  63 for ($i = 0; $i < 21 ; $i++) {
  64         for ($m = 0; $m < 8 ; $m++) {
  65                 for ($f = 0; $f < 22 ; $f++) {
  66                         $c = ($i * 176) + ($m * 22) + $f + 0xF0000;
  67                         printf ("%06X:%s%s%s\n", $c, substr ($init[$i], 0, 10), substr ($medi[$m], 10, 10), substr ($fina[$f], 20, 12));
  68                 }
  69         }
  70 }