section '.rsrc' resource data readable
  directory RT_ICON, icons, RT_GROUP_ICON, group_icons
  resource icons, 1, LANG_NEUTRAL, icon_data
  resource group_icons, 2, LANG_NEUTRAL, main_icon
  icon main_icon, icon_data, 'file.ico'
    

macro multyicon group,[label,icon_file] ; usage multyicon instead of icon:  multyicon main_icon,<icon_data1_at_fileico,icon_data2_at_fileico,...>,'file.ico'
 { common local count
    count = 0
   forward ;local lcount
      irpv lbl,label \{
        local data,size,position
        lbl dd RVA data,size,0,0
        ;virtual at 0
        ;  file icon_file:4,2
        ;  load lcount word from 0
        ;end virtual
        ;% must be <=lcount
        virtual at 0
        file icon_file:6+16*(%-1),16
        load size dword from 8
        load position dword from 12
        end virtual
        data file icon_file:position,size
        count = count+1
      \}
   common local header
    align 4
    group dd RVA header,6+count*14,0,0
    header dw 0,1,count
   forward
     irpv lbl,label \{
       file icon_file:6+16*(%-1),12
       dw lbl#.resid
     \}
   common
    align 4 } 
    

; must be compiled as many times as subicons file has
; source icon should be in other folder than code or it will be overriden
; source code each time should be renamed or each previous ico will be overriden
format binary as 'ico'
macro extractico icon_file,num
{
  virtual at 0
  file icon_file:4,2
  load count word from 0
  if count<num
    err 'Индекс иконки превысил количество'
  end if
  end virtual
  file icon_file,4
  dw 1
  file icon_file:6+num*16,16
  load size dword from $-8
  load offset dword from $-4
  file icon_file:offset,size
}
extractico 'file.ico',1 ; change that from 1 to ico count in file