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_johab(f, m, l, des)
	int f, m, l;
	int *des;
{
//#undef JOHAB_8_4_4
//#define JOHAB_32_15_11
//#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

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

#ifdef JOHAB_32_15_11
#define JOHAB_KIND_LCON 32
#define JOHAB_KIND_MVOW	15
#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 0x4000
#define JOHAB_BASE_FCON 0x8000
#endif // JOHAB_32_15_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鯵
 * 閤徴戚 赤聖 凶 蓄亜 8忽
 * 閤徴戚 い析凶 蓄亜 8忽
 * 閤徴戚 ぉ析凶 蓄亜 8忽 = 亀杯 32忽 */

/* 閤徴戚 蒸聖 井酔 段失 */
static char lcon_by_vow_fcon0[] = { /* BASE */
   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_fcon1[] = { /* INDEX */
   0, /* 奄沙 掻失忽 */
/* た だ ち ぢ っ つ づ て で と ど な に ぬ ね の は ば ぱ ひ び*/
   0, 1, 0, 1, 0, 1, 0, 1, 2, 3, 4, 3, 2, 5, 6, 7, 6, 5, 5, 3, 0
};

/* 曽失税 曽嫌澗 蒸聖 井酔猿走 杯背辞 4曽嫌 */
/* 曽失税 乞丞拭 魚虞 段失 衣舛 */
static char lcon_by_fcon[] = { /* BASE */
   0, /* 奄沙 */
/* ぁ あ ぃ い ぅ う ぇ ぉ お か が き ぎ く ぐ */
/* け げ ご さ ざ し じ ず せ ぜ そ ぞ */
   8, 8, 8,16, 8, 8, 8,24,24,24,24,24,24,24,24,
   8, 8, 8, 8, 8, 8, 8,24, 8,24, 8,24,
  -1
};

/* 段失税 乞丞拭 魚虞 掻失 衣舛 */
/* 段失戚 [析鋼] [ぁ,せ] [ぉ,ず,ぜ,ぞ] 析 凶拭 魚虞辞 掻失 歳嫌 */
static char vow_by_lcon_fcon0[] = { /* INDEX */
   0,
/* ぁ あ い ぇ え ぉ け げ こ さ ざ し じ す ず せ ぜ そ ぞ*/
   1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0,
  -1
};

/* 曽失精 [析鋼] [い] [ぉ,ぞ,ず,ぜ] 室 益血 */
static char vow_by_lcon_fcon1[] = { /* INDEX */
   0,
/* ぁ あ い ぇ え ぉ け げ こ さ ざ し じ す ず せ ぜ そ ぞ*/
   1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, 2, 0, 2,
  -1
};

/* 曽失税 乞丞拭 魚虞 掻失 衣舛 */
static char vow_by_fcon[] = { /* BASE */
   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,
  -1
};

/* 掻失税 乞丞拭 魚虞 曽失 衣舛 */
static char fcon_by_vow[] = { /* BASE */
   0, /* 奄沙 掻失忽 */
/* た だ ち ぢ っ つ づ て で と ど な に ぬ ね の は ば ぱ ひ び*/
   0, 1, 0, 1, 2, 1, 2, 1, 3, 5, 7, 5, 3, 9, 5, 7, 5, 9, 9, 5, 0
};

/* 葵戚 1析 井酔拭幻 段失拭 税背 曽失 衣舛 */
/* 神人訊須酔 去去税 井酔拭幻 段失拭 税廃 曽失 歳嫌 */
static char fcon_by_vow_lcon[] = { /* FLAG */
   0, /* default */
/* た だ ち ぢ っ つ づ て で と ど な に ぬ ね の は ば ぱ ひ び*/
   0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0,
  -1 	   
};

/* 段失税 乞丞拭 魚虞 曽失 衣舛 */
static char fcon_by_lcon[] = { /* INDEX */
   0, /* default */
/* ぁ あ い ぇ え ぉ け げ こ さ ざ し じ す ず せ ぜ そ ぞ*/
   0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1,
   -1
};

#endif
#ifdef JOHAB_32_15_11
#define FCON_BY_LCON 1

/* 掻失税 乞丞 曽嫌研 8鯵稽 蟹堪 : たぢでとどぬねの */
/* 閤徴戚 蒸聖 凶 段失 忽 呪 8鯵
 * 閤徴戚 赤聖 凶 蓄亜 8忽
 * 閤徴戚 い析凶 蓄亜 8忽
 * 閤徴戚 ぉ析凶 蓄亜 8忽 = 亀杯 32忽 */

/* 閤徴戚 蒸聖 井酔 段失 */
static char lcon_by_vow_fcon0[] = { /* BASE */
   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_fcon1[] = { /* INDEX */
   0, /* 奄沙 掻失忽 */
/* た だ ち ぢ っ つ づ て で と ど な に ぬ ね の は ば ぱ ひ び*/
   0, 1, 0, 1, 0, 1, 0, 1, 2, 3, 4, 3, 2, 5, 6, 7, 6, 5, 5, 3, 0
};

/* 曽失税 曽嫌澗 蒸聖 井酔猿走 杯背辞 4曽嫌 */
/* 曽失税 乞丞拭 魚虞 段失 衣舛 */
static char lcon_by_fcon[] = { /* BASE */
   0, /* 奄沙 */
/* ぁ あ ぃ い ぅ う ぇ ぉ お か が き ぎ く ぐ */
/* け げ ご さ ざ し じ ず せ ぜ そ ぞ */
   8, 8, 8,16, 8, 8, 8,24,24,24,24,24,24,24,24,
   8, 8, 8, 8, 8, 8, 8,24, 8,24, 8,24,
  -1
};

/* 段失税 乞丞拭 魚虞 掻失 衣舛 */
/* 段失戚 [析鋼] [ぁ,せ] [ぉ,ず,ぜ,ぞ] 析 凶拭 魚虞辞 掻失 歳嫌 */
static char vow_by_lcon_fcon0[] = { /* INDEX */
   0,
/* ぁ あ い ぇ え ぉ け げ こ さ ざ し じ す ず せ ぜ そ ぞ*/
   1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2,
  -1
};

/* 曽失精 [析鋼] [い] [ぉ,ぜ][ず,ぞ] 革 益血 */
static char vow_by_lcon_fcon1[] = { /* INDEX */
   0,
/* ぁ あ い ぇ え ぉ け げ こ さ ざ し じ す ず せ ぜ そ ぞ*/
   1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1, 2, 0, 3,
  -1
};

/* 曽失税 乞丞拭 魚虞 掻失 衣舛 */
static char vow_by_fcon[] = { /* BASE */
   0,
/* ぁ あ ぃ い ぅ う ぇ ぉ お か が き ぎ く ぐ */
/* け げ ご さ ざ し じ ず せ ぜ そ ぞ */
   3, 3, 3, 7, 3, 3, 3,11,11,11,11,11,11,11,11,
   3, 3, 3, 3, 3, 3, 3,11, 3,11, 3,11,
  -1
};

/* 掻失税 乞丞拭 魚虞 曽失 衣舛 */
static char fcon_by_vow[] = { /* BASE */
   0, /* 奄沙 掻失忽 */
/* た だ ち ぢ っ つ づ て で と ど な に ぬ ね の は ば ぱ ひ び*/
   0, 1, 0, 1, 2, 1, 2, 1, 3, 5, 7, 5, 3, 9, 5, 7, 5, 9, 9, 5, 0
};

/* 葵戚 1析 井酔拭幻 段失拭 税背 曽失 衣舛 */
/* 神人訊須酔 去去税 井酔拭幻 段失拭 税廃 曽失 歳嫌 */
static char fcon_by_vow_lcon[] = { /* FLAG */
   0, /* default */
/* た だ ち ぢ っ つ づ て で と ど な に ぬ ね の は ば ぱ ひ び*/
   0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0,
  -1 	   
};

/* 段失税 乞丞拭 魚虞 曽失 衣舛 */
static char fcon_by_lcon[] = { /* INDEX */
   0, /* default */
/* ぁ あ い ぇ え ぉ け げ こ さ ざ し じ す ず せ ぜ そ ぞ*/
   0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1,
   -1
};

#endif // JOHAB_32_15_11

#ifdef JOHAB_8_4_4
#define FCON_BY_LCON 0
#define VOW_KIND 5

static char lcon_by_vow_fcon0[]= {
	   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_fcon1[]= {
	   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
/*	   ど な に ぬ ね の は ば ぱ ひ び*/
}; 
static char *fcon_by_vow_fcon1=fcon_by_vow_fcon0;
#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_fcon1[h2] + lcon_by_fcon[h3]:
			     lcon_by_vow_fcon0[h2];

   /* 掻失曽嫌 */ 
   type2 = (h3||show_mode) ? vow_by_lcon_fcon1[h1] + vow_by_fcon[h3]:
			     vow_by_lcon_fcon0[h1];
		
   /* 曽失曽嫌 */
#ifdef FCON_BY_LCON
   type3 = fcon_by_vow[h2] + ((fcon_by_vow_lcon[h2]) ? fcon_by_lcon[h1]:0);
#else
   type3 = fcon_by_vow[h2];
#endif

   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;
}