jnz     extra_characters_on_line    

        jnz     assemble_line    

mov eax,0 inc ebx mov eax,[ebx] org 700h mov eax,$    

        push    [struc_name]
        push    ecx esi    

      preprocess_current_line:    

        lods    byte [esi]
        or      al,al
        jnz     extra_characters_on_line
        and     [macro_status],0F0h
        jmp     line_preprocessed    

        and     [macro_status],0F0h
        lods    byte [esi]
        or      al,al
        jz      line_preprocessed
        dec     esi
        mov     ecx,edi
        sub     ecx,esi
        lea     esi,[esi+ecx-1]
        lea     edi,[edi+1+16]
        mov     ebx,edi
        dec     edi
        std
        rep     movs byte [edi],[esi]
        cld
        sub     edi,16-1
        mov     byte [edi-1],0
        mov     esi,[current_line]
        mov     [current_line],edi
        mov     ecx,4
        rep     movs dword [edi],[esi]
        mov     edi,ebx
        jmp     preprocess_current_line
      skip_macro_symbol:
        movzx   eax,byte [esi]
        inc     esi
        add     esi,eax
        jmp     skip_macro_block
      skip_macro_string:
        lods    dword [esi]
        add     esi,eax
        jmp     skip_macro_block    

macro struct name
 {
   common
   name@struct fix name
   struc name {
 }

macro struct_helper name
 {
   virtual at 0
   name name
   sizeof.#name = $ - name
   name equ sizeof.#name
   end virtual
 }

ends fix } struct_helper name@struct

; And now some nice definition:

struct RECT
   .left   dd ?
   .top    dd ?
   .right  dd ?
   .bottom dd ?
ends    

I'm not going to include it in official releases, too confusing trick. That's why I only posted it here as a kind of curiosity.

macro alpha {db 1} macro beta {db 2} macro gamma {db 3}