The main idea is separating includes from examples.
Separate both of them by opcodeset, than by OS, than by bits (x86|x64).

macro x86.parse_operand ns,op
        ns.size = 0
        match prefix value, op
                match :sz, x86.prefix ; Match defines only "prefix", so where from "x86.prefix"? It is some kind of concatenation early defined symbol "x86" and matched param "prefix"? Or local got prefix "x86" because macro has that "x86" prefix.
                        ns.size = sz
                        x86.parse_operand_value ns,value
                else
                        x86.parse_operand_value ns,op
                end match
        else
                x86.parse_operand_value ns,op
        end match
end macro    

                match :sz, x86.prefix ; Match defines only "prefix", so where from "x86.prefix"? It is some kind of concatenation early defined symbol "x86" and matched param "prefix"? Or local got prefix "x86" because macro has that "x86" prefix.    

Why others then x86 codeset realized not in same manner (same is throw element of register type and so on)? because of simplicity of their codesets? or for another reason?

however, I interest in that linux examples were included in fasmg examples as windows included, or at least macros for linux (fasmg macros & linux - is 2 of my weak place, I can't do it myself with writing macros at the junction of the 2 unknowns).

fasmg -iInclude('format/format.inc') hello.asm hello    

"x86" previously defined as blank, what for?

why "x86" is not changed to blank in 2nd parameter of match, like "prefix" is changed to forex. "dword". Or that changing is happen?

in package that i attach to this topic i include simple linux examples and they are worked. but examples that marked as dynamic that i named hello2 - they dont work. i know because of my mistake of porting fasm macros to fasmg macros.

The Linux version of fasmg uses the ported dynamic import macros. You can find them in "source/linux/import32.inc".

Quote:

The Linux version of fasmg uses the ported dynamic import macros. You can find them in "source/linux/import32.inc".

In package of fasmg that I have this macros has fasm syntax not fasmg (i.e. macro with curved brackets). I look for if in last release of fasmg with same macro but in fasmg syntax. maybe i missed release.

macro format? clause 
match =MZ?, clause
                include 'x86/cpu/p6.inc'
                include 'x86/opcodeextender.inc' ; its vacant place
                include 'x86/format/ms/dos/mz.inc'
...
                end while
                include 'x86/format/ms/win/pe.inc'
                include 'x86/cpu/p6.inc'
                include 'x86/opcodeextender.inc' ; its vacant place
                use32 
...
and so on...
    

;# content of file opcodeextender.inc
iterate instr, push,pop
        macro instr? op
                local sequence
                sequence equ op --
                while 1
                        match --, sequence
                                break
                        else match car= cdr, sequence
                                redefine sequence cdr
                                match :sz, x86.car
                                        match --, sequence
                                                instr car
                                                break
                                        else match head= tail, sequence
                                                redefine sequence tail
                                                instr car head
                                        end match
                                else
                                        instr car
                                end match
                        end match
                end while
        end macro
end iterate
    

is it possible to define opcode extender outside of macro format?

include 'format/format.inc'

format PE64 NX GUI 5.0
entry start

include 'avx.inc'    

1st Question is connected with error that opcodeextender.inc creates.
Tomasz, as I think sequented push|pop shoul be for regs only? how it is in fasm1?only general regs? If so, I should add condition "if ... metadata metadata =x86.reg"

macro dialog class,title,x,y,cx,cy,style,exstyle,menu,fontname,fontsize
   if style and 0FFFF0000h = 0FFFF0000h
     .err dialog version mismatch
   end if
   dd style,exstyle+0
   dw items,x,y,cx,cy
   ;test menu indicator
   if menu+0 = 0
     dw 0
   else if menu eqtype ''
     du menu,0
   else
     dw 0FFFFh,menu
   end if
   ;test class indicator
   if class+0 = 0
     dw 0
   else if class eqtype ''
     du class
   else
     dw 0FFFFh,class
   end if
   ;test title indicator
   match any,title
     du title ;,0 from common case below
   end match
              dw 0

   if style and DS_SETFONT
     match any,fontname
       du fontsize+0,fontname,0
     else
       du 8,'MS Sans Serif',0 ; fasm1 legacy
     end match
   end if
   align 4
   dialog_items_counter = 0
end macro    

macro dialog label,class,title,x,y,cx,cy,style,exstyle,menu,fontname,fontsize
 { local data,size,items
   label dd RVA data,size,0,0
   data dd style+0,exstyle+0
   dw items,x,y,cx,cy
   menudone = 0
   match ,menu \{ dw 0
   menudone = 1\}
   match  any =, more,menu \{ du menu,0
   menudone = 1\}
   if menudone
   else if menu eqtype ''
     if menu eq ''
       dw 0
     else
       du menu,0
     end if
   else
     if ~menu
       dw 0
     else
       dw 0FFFFh,menu
     end if
   end if
   classdone = 0
   match ,class \{ dw 0
   classdone = 1\}
   match  any =, more,class \{ du class,0
   classdone = 1\}
   if classdone
   else if class eqtype ''
     if class eq ''
       dw 0
     else
       du class,0
     end if
   else
     if ~class
       dw 0
     else
       dw 0FFFFh,class
     end if
   end if
   titledone = 0
   match ,title \{ titledone = 1\}
   match  any =, more,title \{ du title
   titledone = 1\}
   if ~titledone & title eqtype ''
     if ~title eq ''
       du title ;,0 from common case below
     end if
   end if
              dw 0
   if style and DS_SETFONT
     if fontname eq
       du 8,'MS Sans Serif',0
     else
       du fontsize+0,fontname,0
     end if
   end if
   align 4
   dialog_size equ size = $ - data
   dialog_items equ items = dialog_items_counter
   dialog_items_counter = 0 }    

ANSl_CHARSET       = 0
DEFAULT_CHARSET     = 1
SYMBOL_CHARSET      = 2
MAC_CHARSET         = 77
SHIFTJIS_CHARSET    = 128
HANGEUL_CHARSET     = 129
HANGUL_CHARSET      = 129
JOHAB_CHARSET       = 130
GB2312_CHARSET      = 134
CHINESEBIG5_CHARSET = 136
GREEK_CHARSEÒ       = 161
TURKISH_CHARSET     = 162
VIETNAMESE_CHARSET  = 163
HEBREW_CHARSET      = 177
ARABIC_CHARSET      = 178
BALTIC_CHARSET      = 186
THAI_CHARSET        = 222
EASTEUROPE_CHARSET  = 238
RUSSIAN_CHARSET     = 204
OEM_CHARSET         = 255    

macro dialogex label,class,title,x,y,cx,cy,style,exstyle,menu,helpID,fontname,fontsize,fontweight,italic,charset:1
   align 16
   dw 1,0FFFFh
   dd helpID+0
   dd exstyle+0,style+0
   dw items,x,y,cx,cy
   if menu+0 = 0
     dw 0
   else if menu eqtype ''
     du menu,0
   else
     dw 0FFFFh,menu
   end if
   if class+0 = 0
     dw 0
   else if class eqtype ''
     du class
   else
     dw 0FFFFh,class
   end if
   match any,title
     du title ;,0 from common case below
   end match
              dw 0
   ;fontweight=0..1000; 0=default=400; bold = 700
   if style and (DS_SETFONT or DS_SHELLFONT)
     match any,fontname
       dw fontsize+0,fontweight+0
       db italic+0,charset
       du fontname,0
     else
       dw 8,400
       db italic+0,charset
       du 'MS Sans Serif',0
     end match
   end if
   align 4
   dialog_items_counter = 0
end macro    

macro dialogex label,class,title,x,y,cx,cy,style,exstyle,menu,helpID,fontname,fontsize,fontweight,italic,charset
 { local data,size,items
   label dd RVA data,size,0,0
   align 16
   data dw 1,0FFFFh
   dd helpID+0
   dd exstyle+0,style+0
   dw items,x,y,cx,cy
   menudone = 0
   match ,menu \{ dw 0
   menudone = 1\}
   match  any =, more,menu \{ du menu,0
   menudone = 1\}
   if menudone
   else if menu eqtype ''
     if menu eq ''
       dw 0
     else
       du menu,0
     end if
   else
     if ~menu
       dw 0
     else
       dw 0FFFFh,menu
     end if
   end if
   classdone = 0
   match ,class \{ dw 0
   classdone = 1\}
   match  any =, more,class \{ du class,0
   classdone = 1\}
   if classdone
   else if class eqtype ''
     if class eq ''
       dw 0
     else
       du class,0
     end if
   else
     if ~class
       dw 0
     else
       dw 0FFFFh,class
     end if
   end if
   titledone = 0
   match ,title \{ titledone = 1\}
   match  any =, more,title \{ du title
   titledone = 1\}
   if ~titledone & title eqtype ''
     if ~title eq ''
       du title ;,0 from common case below
     end if
   end if
              dw 0
   ;fontweight=0..1000; 0=default=400; bold = 700
   if style and (DS_SETFONT or DS_SHELLFONT)
     if fontname eq
       dw 8,400
       db italic+0
       if charset eq
         db 1
       else
         db charset
       end if
       du 'MS Sans Serif',0
     else
       dw fontsize+0,fontweight+0
       db italic+0
       if charset eq
         db 1
       else
         db charset
       end if
       du fontname,0
     end if
   end if
   align 4
   dialog_size equ size = $ - data
   dialog_items equ items = dialog_items_counter
   dialog_items_counter = 0 }    

macro dialogitem class,titleorID,id,x,y,cx,cy,style,exstyle
   align 4
   dd style or WS_CHILD,exstyle+0
   dw x,y,cx,cy,id
   match ,class
     dw 0
   else if class eqtype ''
     if class eq 'BUTTON'
       dw 0FFFFh,80h
     else if class eq 'EDIT'
       dw 0FFFFh,81h
     else if class eq 'STATIC'
       dw 0FFFFh,82h
     else if class eq 'LISTBOX'
       dw 0FFFFh,83h
     else if class eq 'SCROLLBAR'
       dw 0FFFFh,84h
     else if class eq 'COMBOBOX'
       dw 0FFFFh,85h
     else
       du class
     end if
   else
     if (class and 1Fh) =10 | (class and 1Fh) =10h | (class-(class and 80h))>18h | class<0
       .err unsupported classID = class
     end if
     dw 0FFFFh,class
   end if
   if titleorID+0 = 0 ; no title no subitems
     dw 0
   else if titleorID eqtype '' ;title
     du titleorID,0
   else
     assert class = 10
     dw 0FFFFh,titleorID ; subitem: ID of ICO,BMP ... etc.
   end if
   dw 0
   dialog_items_counter = dialog_items_counter + 1
end macro    

macro dialogitemex class,titleorID,id,x,y,cx,cy,style,exstyle,helpID
   align 4
   dd helpID+0,exstyle+0,style or WS_CHILD
   dw x,y,cx,cy
   dd id ; for dialogitemex ID is word sign-extended to dword, however upper part can be any but most of window messages operate under lo word part only
   match ,class
     dw 0
   else if class eqtype ''
     if class eq 'BUTTON'
       dw 0FFFFh,80h
     else if class eq 'EDIT'
       dw 0FFFFh,81h
     else if class eq 'STATIC'
       dw 0FFFFh,82h
     else if class eq 'LISTBOX'
       dw 0FFFFh,83h
     else if class eq 'SCROLLBAR'
       dw 0FFFFh,84h
     else if class eq 'COMBOBOX'
       dw 0FFFFh,85h
     else
       du class
     end if
   else
     if (class and 1Fh) =10 | (class and 1Fh) =16 | (class-(class and 80h))>18h | class<0
       .err unsupported classID = class
     end if
     dw 0FFFFh,class
   end if
   if titleorID+0 = 0 ; no title no subitems
     dw 0
   else if titleorID eqtype '' ;title
     du titleorID,0
   else
     dw 0FFFFh,titleorID ; subitem: ID of ICO,BMP ... etc.
   end if
   dw 0
   dialog_items_counter = dialog_items_counter + 1
end macro    

macro dialogitemextra
   local fin
   store fin-$:word at $-2 

   macro end?.dialogitemextra
     fin = $
   end macro
end macro    

macro dialogitem class,title,id,x,y,cx,cy,style,exstyle
 { align 4
   dd style or WS_CHILD,exstyle +0
   dw x,y,cx,cy,id
   if class eq
     dw 0
   else if class eqtype ''
     if class eq 'BUTTON'
       dw 0FFFFh,80h
     else if class eq 'EDIT'
       dw 0FFFFh,81h
     else if class eq 'STATIC'
       dw 0FFFFh,82h
     else if class eq 'LISTBOX'
       dw 0FFFFh,83h
     else if class eq 'SCROLLBAR'
       dw 0FFFFh,84h
     else if class eq 'COMBOBOX'
       dw 0FFFFh,85h
     else if class eq ''
       dw 0
     else
       du class,0
     end if
   else
     if (class and 1Fh) =10 | (class and 1Fh) =16 | (class-(class and 80h))>18h | class<0
       .err unsupported classID = class 
     end if 
     dw 0FFFFh,class
   end if
   titledone = 0
   match ,title \{ dw 0
   titledone = 1\}
   match  any =, more,title \{ du title,0
   titledone = 1\}
   if titledone
   else if title eqtype ''
     if title eq ''
       dw 0
     else
       du title,0
     end if
   else
     if ~title
       dw 0
     else
       dw 0FFFFh,title
     end if
   end if
   dw 0
   dialog_items_counter = dialog_items_counter + 1 }    

macro dialogitemex class,title,id,x,y,cx,cy,style,exstyle,helpID
 { align 4
   dd helpID+0,exstyle +0,style or WS_CHILD
   dw x,y,cx,cy
   dd id ; for dialogitemex ID is word sign-extended to dword, however upper part can be any but most of window messages operate under lo word part only
  if class eq
     dw 0
   else if class eqtype ''
     if class eq 'BUTTON'
       dw 0FFFFh,80h
     else if class eq 'EDIT'
       dw 0FFFFh,81h
     else if class eq 'STATIC'
       dw 0FFFFh,82h
     else if class eq 'LISTBOX'
       dw 0FFFFh,83h
     else if class eq 'SCROLLBAR'
       dw 0FFFFh,84h
     else if class eq 'COMBOBOX'
       dw 0FFFFh,85h
     else if class eq ''
       dw 0
     else
       du class,0
     end if
   else
     if (class and 1Fh) =10 | (class and 1Fh) =16 | (class-(class and 80h))>18h | class<0
       .err unsupported classID = class 
     end if 
     dw 0FFFFh,class
   end if
   titledone = 0
   match ,title \{ dw 0
   titledone = 1\}
   match  any =, more,title \{ du title,0
   titledone = 1\}
   if titledone
   else if title eqtype ''
     if title eq ''
       dw 0
     else
       du title,0
     end if
   else
     if ~title
       dw 0
     else
       dw 0FFFFh,title
     end if
   end if
   dw 0
   dialog_items_counter = dialog_items_counter + 1 }    

macro dlgitmxtrdata
 { local fin
   store word (fin-$) at $-2
   macro enddlgitmxtrdata \{ fin = $ \} }    

format PE GUI 4.0 ;rename binary as 'ANIBLEND.EXE'
entry start       ;launch CMD line '%OUTPUT%'

AW_HOR_POSITIVE     = 1h
AW_HOR_NEGATIVE     = 2h
AW_VER_POSITIVE     = 4h
AW_VER_NEGATIVE     = 8h
AW_CENTER       = 10h
AW_HIDE         = 10000h
AW_ACTIVATE     = 20000h
AW_SLIDE        = 40000h
AW_BLEND        = 80000h

include 'ABI\WIN\win32a.inc'

section '.text' code readable executable

  start:

        invoke  GetModuleHandle,0
        invoke  DialogBoxParam,eax,dlgname,HWND_DESKTOP,DialogProc,0;dlgname,HWND_DESKTOP,DialogProc,0
        invoke  ExitProcess,eax

proc DialogProc hwnd,wmsg,wparam,lparam
        mov     eax,[wmsg]
        cmp     eax,WM_INITDIALOG
        je      .wminitdialog
        cmp     eax,WM_COMMAND
        je      .wmcommand
        cmp     eax,WM_CLOSE
        je      .wmclose
        jmp     .finish
  .wminitdialog:
        invoke  AnimateWindow,[hwnd],500,AW_ACTIVATE or AW_BLEND
        invoke  SetFocus,[hwnd]
        jmp     .finish
  .wmcommand:
  .wmclose:
        invoke  AnimateWindow,[hwnd],500,AW_HIDE or AW_BLEND
        invoke  EndDialog,[hwnd],0
  .finish:
        xor     eax,eax
        ret
endp

section '.data' data readable writeable

  dlgname TCHAR 'MAINSCREEN',0
  hInstance dd ?

section '.idata' import data readable writeable

  library kernel32,'KERNEL32.DLL',\
          user32,'USER32.DLL'

  include 'ABI\WIN\API\KERNEL32.INC'
  include 'ABI\WIN\API\USER32.INC'

macro dialog class,title,x,y,cx,cy,style,exstyle,menu,fontname,fontsize
   if style and 0FFFF0000h = 0FFFF0000h
     .err dialog version mismatch
   end if
   dd style,exstyle+0
   dw items,x,y,cx,cy
   if menu+0 = 0
     dw 0
   else if menu eqtype ''
     du menu,0
   else
     dw 0FFFFh,menu
   end if
   if class+0 = 0
     dw 0
   else if class eqtype ''
     du class
   else
     dw 0FFFFh,class
   end if
   match any,title
     du title ;,0 from common case below
   end match
              dw 0

   if style and DS_SETFONT
     match any,fontname
       du fontsize+0,fontname,0
     else
       du 8,'MS Sans Serif',0
     end match
   end if
   align 4
   dialog_items_counter = 0
end macro

ANSl_CHARSET       = 0
DEFAULT_CHARSET     = 1
SYMBOL_CHARSET      = 2
MAC_CHARSET         = 77
SHIFTJIS_CHARSET    = 128
HANGEUL_CHARSET     = 129
HANGUL_CHARSET      = 129
JOHAB_CHARSET       = 130
GB2312_CHARSET      = 134
CHINESEBIG5_CHARSET = 136
GREEK_CHARSEÒ       = 161
TURKISH_CHARSET     = 162
VIETNAMESE_CHARSET  = 163
HEBREW_CHARSET      = 177
ARABIC_CHARSET      = 178
BALTIC_CHARSET      = 186
THAI_CHARSET        = 222
EASTEUROPE_CHARSET  = 238
RUSSIAN_CHARSET     = 204
OEM_CHARSET         = 255

macro dialogex class,title,x,y,cx,cy,style,exstyle,menu,helpID,fontname,fontsize,fontweight,italic,charset:1
   dw 1,0FFFFh
   dd helpID+0,exstyle+0,style+0
   dw items,x,y,cx,cy
   if menu+0 = 0
     dw 0
   else if menu eqtype ''
     du menu,0
   else
     dw 0FFFFh,menu
   end if
   if class+0 = 0
     dw 0
   else if class eqtype ''
     du class
   else
     dw 0FFFFh,class
   end if
   match any,title
     du title ;,0 from common case below
   end match
              dw 0
   ;fontweight=0..1000; 0=default=400; bold = 700
   if style and (DS_SETFONT or DS_SHELLFONT)
     match any,fontname
       dw fontsize+0,fontweight+0
       db italic+0,charset
       du fontname,0
     else
       dw 8,400
       db italic+0,charset
       du 'MS Sans Serif',0
     end match
   end if
   align 4
   dialog_items_counter = 0
end macro

macro dialogitem class,titleorID,id,x,y,cx,cy,style,exstyle
   align 4
   dd style or WS_CHILD,exstyle+0
   dw x,y,cx,cy,id
;needed testing
   if class+0 = 0
     dw 0
   else if class eqtype ''
;legacy part - no needed testing
     if class eq 'BUTTON'
       dw 0FFFFh,80h
     else if class eq 'EDIT'
       dw 0FFFFh,81h
     else if class eq 'STATIC'
       dw 0FFFFh,82h
     else if class eq 'LISTBOX'
       dw 0FFFFh,83h
     else if class eq 'SCROLLBAR'
       dw 0FFFFh,84h
     else if class eq 'COMBOBOX'
       dw 0FFFFh,85h
     else
       du class
     end if
;end legacy - needed testing
   else
     dw 0FFFFh,class
   end if
;end class cases
   if titleorID+0 = 0 ; no title no subitems
     dw 0
   else if titleorID eqtype '' ;title
     du titleorID,0
   else
     dw 0FFFFh,titleorID ; subitem: ID of ICO,BMP ... etc.
   end if
   dw 0
   dialog_items_counter = dialog_items_counter + 1
end macro

macro dialogitemex class,titleorID,id,x,y,cx,cy,style,exstyle,helpID
   align 4
   dd helpID+0,exstyle+0,style or WS_CHILD
   dw x,y,cx,cy,id
   ;align 4 or dw 0 - maybe here or maybe not - not tested
;needed testing
   if class+0 = 0
     dw 0
   else if class eqtype ''
;legacy part - no needed testing
     if class eq 'BUTTON'
       dw 0FFFFh,80h
     else if class eq 'EDIT'
       dw 0FFFFh,81h
     else if class eq 'STATIC'
       dw 0FFFFh,82h
     else if class eq 'LISTBOX'
       dw 0FFFFh,83h
     else if class eq 'SCROLLBAR'
       dw 0FFFFh,84h
     else if class eq 'COMBOBOX'
       dw 0FFFFh,85h
     else
       du class
     end if
;end legacy - needed testing
   else
     dw 0FFFFh,class
   end if
;end class cases
   if titleorID+0 = 0 ; no title no subitems
     dw 0
   else if titleorID eqtype '' ;title
     du titleorID,0
   else
     dw 0FFFFh,titleorID ; subitem: ID of ICO,BMP ... etc.
   end if
   dw 0
   dialog_items_counter = dialog_items_counter + 1
end macro

macro dlgitmxtrdata
   local fin
   store fin-$:word at $-2

   macro end?.dlgitmxtrdata
     fin = $
   end macro
end macro

macro end?.dialog?
  items = dialog_items_counter
end macro


section '.rsrc' resource data readable

  resource_directory

    virtual at 0
                du 'MAINSCREEN'
                load dlg_name:$ from 0
        end virtual

    resource_data RT_DIALOG,dlg_name,LANG_ENGLISH+SUBLANG_DEFAULT
      dialog ,'Using Windows AnimateWindow API',29,28,307,84,DS_CENTER or WS_VISIBLE or WS_CAPTION or WS_SYSMENU
        dialogitem 'BUTTON',' Uses a fade effect animation when dialog is created ',-1,7,7,294,33,WS_VISIBLE+BS_GROUPBOX+BS_CENTER+BS_FLAT
        dlgitmxtrdata
          dd 0,3457375
        end dlgitmxtrdata
        dialogitem 'STATIC','invoke AnimateWindow, [hwnd], 500, AW_ACTIVATE or AW_BLEND',-1,14,16,280,18,WS_VISIBLE+SS_CENTERIMAGE
        dialogitem 'BUTTON',' Uses a fade effect animation when dialog is closed ',-1,7,43,294,33,WS_VISIBLE+BS_GROUPBOX+BS_CENTER+BS_FLAT
        dialogitem 'STATIC','invoke AnimateWindow, [hwnd], 500, AW_HIDE or AW_BLEND',-1,14,53,280,18,WS_VISIBLE+SS_CENTERIMAGE
      end dialog
    end resource_data
  end resource_directory    

; Simple text editor - fasm example program

format PE GUI 4.0
entry start

AW_HOR_POSITIVE     = 1h
AW_HOR_NEGATIVE     = 2h
AW_VER_POSITIVE     = 4h
AW_VER_NEGATIVE     = 8h
AW_CENTER       = 10h
AW_HIDE         = 10000h
AW_ACTIVATE     = 20000h
AW_SLIDE        = 40000h
AW_BLEND        = 80000h

include 'win32ax.inc'

section '.text' code readable executable

  start:

        invoke  GetModuleHandle,0
        invoke  DialogBoxParam,eax,37,HWND_DESKTOP,DialogProc,0;dlgname,HWND_DESKTOP,DialogProc,0
        invoke  ExitProcess,eax

proc DialogProc hwnd,wmsg,wparam,lparam
        mov     eax,[wmsg]
        cmp     eax,WM_INITDIALOG
        je      .wminitdialog
        cmp     eax,WM_COMMAND
        je      .wmcommand
        cmp     eax,WM_CLOSE
        je      .wmclose
        jmp     .finish
  .wminitdialog:
        invoke  AnimateWindow,[hwnd],500,AW_ACTIVATE or AW_BLEND
        invoke  SetFocus,[hwnd]
        jmp     .finish
  .wmcommand:
  .wmclose:
        invoke  AnimateWindow,[hwnd],500,AW_HIDE or AW_BLEND
        invoke  EndDialog,[hwnd],0
  .finish:
        xor     eax,eax
        ret
endp

section '.data' data readable writeable

  dlgname TCHAR 'MAINSCREEN',0
  hInstance dd ?

section '.idata' import data readable writeable

  library kernel32,'KERNEL32.DLL',\
          user32,'USER32.DLL'

  include 'API/KERNEL32.INC'
  include 'API/USER32.INC'

section '.rsrc' resource data readable

  directory RT_DIALOG,dialogs

  resource dialogs,\
           37,LANG_ENGLISH+SUBLANG_DEFAULT,demonstration

  dialog demonstration,,'Using Windows AnimateWindow API',29,28,307,84,DS_CENTER or WS_VISIBLE or WS_CAPTION or WS_SYSMENU
    dialogitem 'BUTTON',' Uses a fade effect animation when dialog is created ',-1,7,7,294,33,WS_VISIBLE+BS_GROUPBOX+BS_CENTER+BS_FLAT
    dlgitmxtrdata
          dd 0,3457375
        enddlgitmxtrdata
    dialogitem 'STATIC','invoke AnimateWindow, [hwnd], 500, AW_ACTIVATE or AW_BLEND',-1,14,16,280,18,WS_VISIBLE+SS_CENTERIMAGE
    dialogitem 'BUTTON',' Uses a fade effect animation when dialog is closed ',-1,7,43,294,33,WS_VISIBLE+BS_GROUPBOX+BS_CENTER+BS_FLAT
    dialogitem 'STATIC','invoke AnimateWindow, [hwnd], 500, AW_HIDE or AW_BLEND',-1,14,53,280,18,WS_VISIBLE+SS_CENTERIMAGE
  enddialog    

include 'win32a.inc'

ID_CAPTION         = 101
ID_MESSAGE         = 102
ID_ICONERROR       = 201
ID_ICONINFORMATION = 202
ID_ICONQUESTION    = 203
ID_ICONWARNING     = 204
ID_TOPMOST         = 301

section '.text' code readable executable

  start:

        invoke  GetModuleHandle,0
        invoke  DialogBoxParam,eax,37,HWND_DESKTOP,DialogProc,0
        or      eax,eax
        jz      exit
        invoke  MessageBox,HWND_DESKTOP,message,caption,[flags]
  exit:
        invoke  ExitProcess,0

proc DialogProc hwnddlg,msg,wparam,lparam
        push    ebx esi edi
        cmp     [msg],WM_INITDIALOG
        je      .wminitdialog
        cmp     [msg],WM_COMMAND
        je      .wmcommand
        cmp     [msg],WM_CLOSE
        je      .wmclose
        xor     eax,eax
        jmp     .finish
  .wminitdialog:
        invoke  CheckRadioButton,[hwnddlg],ID_ICONERROR,ID_ICONWARNING,ID_ICONINFORMATION
        jmp     .processed
  .wmcommand:
        cmp     [wparam],BN_CLICKED shl 16 + IDCANCEL
        je      .wmclose
        cmp     [wparam],BN_CLICKED shl 16 + IDOK
        jne     .processed
        invoke  GetDlgItemText,[hwnddlg],ID_CAPTION,caption,40h
        invoke  GetDlgItemText,[hwnddlg],ID_MESSAGE,message,100h
        mov     [flags],MB_OK
        invoke  IsDlgButtonChecked,[hwnddlg],ID_ICONERROR
        cmp     eax,BST_CHECKED
        jne     .iconerror_ok
        or      [flags],MB_ICONERROR
      .iconerror_ok:
        invoke  IsDlgButtonChecked,[hwnddlg],ID_ICONINFORMATION
        cmp     eax,BST_CHECKED
        jne     .iconinformation_ok
        or      [flags],MB_ICONINFORMATION
      .iconinformation_ok:
        invoke  IsDlgButtonChecked,[hwnddlg],ID_ICONQUESTION
        cmp     eax,BST_CHECKED
        jne     .iconquestion_ok
        or      [flags],MB_ICONQUESTION
      .iconquestion_ok:
        invoke  IsDlgButtonChecked,[hwnddlg],ID_ICONWARNING
        cmp     eax,BST_CHECKED
        jne     .iconwarning_ok
        or      [flags],MB_ICONWARNING
      .iconwarning_ok:
        invoke  IsDlgButtonChecked,[hwnddlg],ID_TOPMOST
        cmp     eax,BST_CHECKED
        jne     .topmost_ok
        or      [flags],MB_TOPMOST
      .topmost_ok:
        invoke  EndDialog,[hwnddlg],1
        jmp     .processed
  .wmclose:
        invoke  EndDialog,[hwnddlg],0
  .processed:
        mov     eax,1
  .finish:
        pop     edi esi ebx
        ret
endp

section '.bss' readable writeable

  flags dd ?
  caption rb 40h
  message rb 100h

section '.idata' import data readable writeable

  library kernel,'KERNEL32.DLL',\
          user,'USER32.DLL'

  import kernel,\
         GetModuleHandle,'GetModuleHandleA',\
         ExitProcess,'ExitProcess'

  import user,\
         DialogBoxParam,'DialogBoxParamA',\
         CheckRadioButton,'CheckRadioButton',\
         GetDlgItemText,'GetDlgItemTextA',\
         IsDlgButtonChecked,'IsDlgButtonChecked',\
         MessageBox,'MessageBoxA',\
         EndDialog,'EndDialog'

section '.rsrc' resource data readable

  directory RT_DIALOG,dialogs

  resource dialogs,\
           37,LANG_ENGLISH+SUBLANG_DEFAULT,demonstration

  dialog demonstration,,'Create message box',70,70,190,175,WS_CAPTION+WS_POPUP+WS_SYSMENU+DS_MODALFRAME
    dialogitem 'STATIC','&Caption:',-1,10,10,70,8,WS_VISIBLE
    dialogitem 'EDIT','',ID_CAPTION,10,20,170,13,WS_VISIBLE+WS_BORDER+WS_TABSTOP
    dialogitem 'STATIC','&Message:',-1,10,40,70,8,WS_VISIBLE
    dialogitem 'EDIT','',ID_MESSAGE,10,50,170,13,WS_VISIBLE+WS_BORDER+WS_TABSTOP+ES_AUTOHSCROLL
    dialogitem 'BUTTON','&Icon',-1,10,70,80,70,WS_VISIBLE+BS_GROUPBOX
    dialogitem 'BUTTON','&Error',ID_ICONERROR,20,82,60,13,WS_VISIBLE+BS_AUTORADIOBUTTON+WS_TABSTOP+WS_GROUP
    dialogitem 'BUTTON','I&nformation',ID_ICONINFORMATION,20,95,60,13,WS_VISIBLE+BS_AUTORADIOBUTTON
    dialogitem 'BUTTON','&Question',ID_ICONQUESTION,20,108,60,13,WS_VISIBLE+BS_AUTORADIOBUTTON
    dialogitem 'BUTTON','&Warning',ID_ICONWARNING,20,121,60,13,WS_VISIBLE+BS_AUTORADIOBUTTON
    dialogitem 'BUTTON','&Style',-1,100,70,80,70,WS_VISIBLE+BS_GROUPBOX
    dialogitem 'BUTTON','&Top most',ID_TOPMOST,110,82,60,13,WS_VISIBLE+WS_TABSTOP+BS_AUTOCHECKBOX
    dialogitem 'BUTTON','OK',IDOK,85,150,45,15,WS_VISIBLE+WS_TABSTOP+BS_DEFPUSHBUTTON
    dialogitem 'BUTTON','C&ancel',IDCANCEL,135,150,45,15,WS_VISIBLE+WS_TABSTOP+BS_PUSHBUTTON
  enddialog    

dialog demonstration,,'Create message box',70,70,190,175,WS_CAPTION or WS_POPUP or WS_SYSMENU or DS_MODALFRAME; or DS_SETFONT    

error value out of range
if~'flat assembler ',2014h,' version ','1.71.64',0Dh,0Ah,'Copyright ',0A9h,' 1999-2017 Tomasz Grysztar.'    

if title eq
     dw 0    

titledone = 0
   match ,title \{ dw 0
   titledone = 1\}
   match  any =, more,title \{ du title,0
   titledone = 1\}
   if titledone