function mine_ir_equip() /* entry=7 class_id=0x0028 slot=0x0A */
{
  set_info(0x0211, *(arg_06));
  process_exclude();
  return;
}
