Hero         dd 0,0,0,0
HeroStatus   db 0,0,0,0
HeroFun1     dc Hero,procHero
proc procHero
       ret
endp
macro InitHero v,a { 
if v eqtype dc
      mov eax,[v]
      mov ebx,a
      call dword [v+4]
end if
mov [v],a
}
InitHero Hero,10                ;do only mov [Hero],10
InitHero HeroFun1,HeroStatus    ;do call procHero
    

Hero         dd 0,0,0,0
HeroStatus   db 0,0,0,0
HeroFun1     dq Hero,procHero

macro InitHero v,a { 
if v eqtype dq
      mov eax,dword [v]
      mov ebx,a
      call dword [v+8]
      display 'ok;;'
end if
mov dword [v],a
}
;but not work ! Why ?
InitHero Hero,5
InitHero HeroFun1,HeroStatus ;,macro not do call !