static char jamo_index1[]= {            /* 0:fill, 2:ぁ, ... */
   0,  0,  1,  2,  3,  4,  5,  6,
   7,  8,  9, 10, 11, 12, 13, 14,
  15, 16, 17, 18, 19,  0,  0,  0,
   0,  0,  0,  0,  0,  0,  0,  0
};
static char jamo_index2[]= {            /* 0:fill 1:た, ... */
   0,  0,  0,  1,  2,  3,  4,  5,
   0,  0,  6,  7,  8,  9, 10, 11,
   0,  0, 12, 13, 14, 15, 16, 17,
   0,  0, 18, 19, 20, 21,  0,  0
};
static char jamo_index3[]= {            /* 0:fill, 2:ぁ, ... */
   0,  0,  1,  2,  3,  4,  5,  6,
   7,  8,  9, 10, 11, 12, 13, 14,
  15, 16,  0, 17, 18, 19, 20, 21,
  22, 23, 24, 25, 26, 27,  0,  0
};


#define JOHAB_MODE 0
	
int
convert_3_to_jo844(f, m, l, des)
	int f, m, l;
	int *des;
{
#undef JOHAB_8_4_4
#define JOHAB_32_11_11

#ifdef JOHAB_32_11_11
#define JOHAB_KIND_LCON 32
#define JOHAB_KIND_MVOW	11
#define JOHAB_KIND_FCON	11

#define JOHAB_FONT_LCON	0x100
#define JOHAB_FONT_MVOW	0x100
#define JOHAB_FONT_FCON	0x100

#define JOHAB_BASE_LCON 0x1000
#define JOHAB_BASE_MVOW 0x3000
#define JOHAB_BASE_FCON 0x4000
#endif // JOHAB_32_11_11

#ifdef JOHAB_8_4_4
#define JOHAB_KIND_LCON	8
#define JOHAB_KIND_MVOW	4
#define JOHAB_KIND_FCON	4

#define JOHAB_FONT_LCON	20
#define JOHAB_FONT_MVOW	22
#define JOHAB_FONT_FCON	28

#define JOHAB_BASE_LCON 0
#define JOHAB_BASE_MVOW JOHAB_FONT_LCON*JOHAB_KIND_LCON+JOHAB_BASE_LCON
#define JOHAB_BASE_FCON JOHAB_FONT_MVOW*JOHAB_KIND_MVOW+JOHAB_BASE_MVOW
#endif // JOHAB_8_4_4

#ifdef JOHAB_32_11_11
#define FCON_BY_LCON 1
#define VOW_KIND 8

/* 掻失税 乞丞 曽嫌研 8鯵稽 蟹堪 */
/* 戚 乞丞税 鯵呪企稽 段失 忽呪亜 赤陥 */
/* 魚虞辞, 閤徴戚 蒸聖 凶, 段失 忽 呪 8鯵 */
//   static char lcon_by_vow[]= {
//	   0,
//	   0, 1, 0, 1, 0, 1, 0, 1, 2, 3,
//	   4, 3, 2, 5, 6, 7, 6, 5, 2, 3,
//	   0
//  };
static char lcon_by_vow_0_fcon[] = {
    0, /* 奄沙 掻失忽 */
    0, /* た */
    1, /* だ */
    0, /* ち */
    1, /* ぢ */
    0, /* っ */
    1, /* つ */
    0, /* づ */
    1, /* て */
    2, /* で */
    3, /* と */
    4, /* ど */
    3, /* な */
    2, /* に */
    5, /* ぬ */
    6, /* ね */
    7, /* の */
    6, /* は */
    5, /* ば */
    2, /* ぱ */
    3, /* ひ */
    0, /* び */
    0  /*    */
};
//   static char fcon_by_vow_0_fcon[]= {
//	   0, 
//	   0, 1, 0, 1, 2, 1, 2, 1, 3, 7,
//	   7, 7, 3, 5, 7, 7, 7, 5, 3, 7,
//	   0
//   };

static char lcon_by_vow_1_fcon[] = {
    0, /* 奄沙 掻失忽 */
    8, /* た */
    9, /* だ */
    8, /* ち */
    9, /* ぢ */
    8, /* っ */
    9, /* つ */
    8, /* づ */
    9, /* て */
   10, /* で */
   11, /* と */
   12, /* ど */
   11, /* な */
   10, /* に */
   13, /* ぬ */
   14, /* ね */
   15, /* の */
   14, /* は */
   13, /* ば */
   10, /* ぱ */
   11, /* ひ */
    8, /* び */
    0  /*    */
};
static char fcon_by_vow[] = {
    0, /* 奄沙 掻失忽 */
    0, /* た */
    1, /* だ */
    0, /* ち */
    1, /* ぢ */
    2, /* っ */
    1, /* つ */
    2, /* づ */
    1, /* て */
    3, /* で */
    7, /* と */
    9, /* ど */
    7, /* な */
    3, /* に */
    5, /* ぬ */
    7, /* ね */
    9, /* の */
    7, /* は */
    5, /* ば */
    3, /* ぱ */
    7, /* ひ */
    0, /* び */
    0  /*    */
};

   static char vow_by_lcon[] = {
   /* 段失戚 [ぁ,せ] [ぉ,ず,ぜ,ぞ] 析 凶拭 魚虞辞 掻失 歳嫌 */
	   0,
	   1, 0, 0, 0, 0, 2, 0, 0, 0, 0,
	   0, 0, 0, 0, 2, 1, 2, 0, 2, 0
   };
   static char vow_by_fcon[] = {
	   0,
	   2, 2, 2, 5, 2, 2, 2, 8, 8, 8,
	   8, 8, 8, 8, 8, 2, 2, 2, 2, 2,
	   2, 2, 8, 2, 8, 2, 8, 0, 0, 0
   };

/* 曽失税 曽嫌澗 蒸聖 井酔猿走 杯背辞 4曽嫌 */
   static char lcon_by_fcon[] = {
   0, /* 奄沙 */
   0, /* ぁ */
   0, /* ぁぁ */
   0, /* ぁさ */
   0, /* い */
   0, /* いじ */
   0, /* いぞ */
   0, /* ぇ */
   8, /* ぉ */
   8, /* ぉぁ */
   8, /* ぉけ */
   8, /* ぉげ */
   8, /* ぉさ */
   8, /* ぉぜ */
   8, /* ぉそ */
   8, /* ぉぞ */
   0, /* け */
   0, /* げ */
   0, /* げさ */
   0, /* さ */
   0, /* ささ */
   0, /* し */
   0, /* じ */
   8, /* ず */
   0, /* せ */
   8, /* ぜ */
   0, /* そ */
   8, /* ぞ */
   0  /* */
   };

/*   static char lcon_by_fcon[] = {
	   0,
	   0, 0, 0, 0, 0, 0, 0, 8, 8, 8,
	   8, 8, 8, 8, 8, 0, 0, 0, 0, 0,
	   0, 0, 8, 0, 8, 0, 8, 0, 0, 0
   }; */

   static char fcon_by_lcon[] = {
   0, /* default */
   0, /* ぁ */
   0, /* あ */
   0, /* い */
   0, /* ぇ */
   0, /* え */
   1, /* ぉ */
   0, /* け */
   0, /* げ */
   0, /* こ */
   0, /* さ */
   0, /* ざ */
   0, /* し */
   0, /* じ */
   0, /* す */
   1, /* ず */
   0, /* せ */
   1, /* ぜ */
   0, /* そ */
   1, /* ぞ */
   0  /* */
   };

#endif
#ifdef JOHAB_8_4_4
#define FCON_BY_LCON 0
#define VOW_KIND 5

   static char lcon_by_vow_0_fcon[]= {
	   0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 3,
	   3, 3, 1, 2, 4, 4, 4, 2, 1, 3, 0
   };
   static char lcon_by_vow_1_fcon[]= {
	   5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 7,
	   7, 7, 6, 6, 7, 7, 7, 6, 6, 7, 5,
   };
   static char vow_by_lcon[] = {
	   0,
	   0, 1, 1, 1, 1, 1, 1, 1, 1, 1,
	   1, 1, 1, 1, 1, 0, 1, 1, 1, 1
   };
   static char vow_by_fcon[] = {
	   0,
	   2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
	   2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
	   2, 2, 2, 2, 2, 2, 2, 0, 0, 0
   };
   static char fcon_by_vow[]= {
	   0,
	   0, 2, 0, 2, 1, 2, 1, 2, 3, 0,
	   2, 1, 3, 3, 1, 2, 1, 3, 3, 1, 1
   }; 
#endif
   unsigned h1, h2, h3, type1, type2, type3;
   int ind;
   int i=0;
   int show_mode=JOHAB_MODE;

   if (f==0xff || f < 1 || f > 20 || m < 2 || m > 29 || l < 1 || l > 29) {
   des[0] = 0;        /* 因拷 */
   return 1;
	}

   h1 = jamo_index1[f];
   h2 = jamo_index2[m];
   h3 = jamo_index3[l];


   /* 段失曽嫌 :
	   掻失魚虞/曽失魚虞 */

   type1 = (h3||show_mode) ? lcon_by_vow_1_fcon[h2] + lcon_by_fcon[h3]:
			     lcon_by_vow_0_fcon[h2];

   /* 掻失曽嫌 :
	   曽失戚 赤生檎 段失戚 [ぁせ][ぉずぜぞ][析鋼]生稽 蟹刊壱,
      	   曽失戚 蒸生檎 段失拭 魚虞 [ぁせ][析鋼]生稽 蟹刊壱.
    */ 
   type2 = h3 ? vow_by_lcon[h1] + vow_by_fcon[h3]:
   		(vow_by_lcon[h1] == 1 ? vow_by_lcon[h1]:0);
   // 曽失戚 赤聖 井酔, 段失戚 ぁ,析鋼,ぉ 拭 企背
   // 曽失戚 蒸聖 井酔, 段失戚 ぁ 析 井酔幻,
   
		
/*   type2 = ((h3||show_mode) ? 
       vow_by_fcon[h3]+vow_by_lcon[h1]// +
//       (((h1==8||h1==9) && vow_kind[h2]) ? 2:0) // for 瑳,司 
       : vow_by_lcon[h1]&0x01); */

   /* 曽失曽嫌 : ぉ ず ぜ ぞ */
   type3 = fcon_by_vow[h2] + ((fcon_by_vow[h2] > 2) ? fcon_by_lcon[h1]:0);
   // 掻失戚 ったつて 去析 井酔澗 ぉ,ぁ 税 段失聖 姥歳 照廃陥 

   
       /*
   type3 = fcon_by_vow[h2] + 
       ((h1 ==6||h1 ==15 || h1==17 || h1==19) && (h2 >= 9 && h2 <=20) ? 
	FCON_BY_LCON:0);
	*/

//   printf("h1:%d    h2:%d   h3:%d\n",h1,h2,h3);
//   printf("t1:%d    t2:%d   t3:%d\n",type1,type2,type3);
   i = 0;
   if (h1) {
	   ind = type1 * JOHAB_FONT_LCON + JOHAB_BASE_LCON + h1;
	   des[i++] = ind;
   }
   if (h2) {
	   ind = type2 * JOHAB_FONT_MVOW + JOHAB_BASE_MVOW + h2;
	   des[i++] = ind;
   }
   if (h3) {
	   ind = type3 * JOHAB_FONT_FCON + JOHAB_BASE_FCON + h3;
	   des[i++] = ind;
   } else if (show_mode) {
	   des[i++] = 0;
   }

   if (f != 1 && m == 2 && l == 1) {   
	   des[i++] = 0;
   }

   return i;
}