Add procedure gen_sub_list in mccgb.s