macro _nxt r,lb, rest=0{ dec r
                  jnz lb 
If rest >0
restore lb
end if
}
macro _nxtp r,lb, rest=0{pop r 
                  dec r
                  jnz lb 
If rest >0
restore lb
end if 
}
macro mBasic [args] { common
macro mGetArg af*,base*,[arg] \{ \common
        ;match any,GetBufr \\{ define GetBufr any+af
        mov base,[GetBufr+af]
        GetReg equ base
        ;\\}
        \forward match =+ x, arg \\{ add base, x \\}
                 match =- x, arg \\{ sub base, x \\}
                 ;match =:=~ x, arg \\{ shl base, x \\}
                 match "(", arg \\{ push base \\}
                 match ")", arg \\{ pop base \\}
                 match "{(", arg \\{ local .lb
                                         .lb: push base
                                         get_lb equ .lb
                                         display "{"
                 \\}
                 match ")}", arg \\{    pop base
                                        dec base
                                        ;test base, base
                                        jnz get_lb
                                        restore get_lb
                                         display "}"
                 \\}
                 match "{", arg \\{ local .lb
                                         .lb:
                                         get_lb equ .lb
                                         display "{"
                 \\}
                 match "}", arg \\{ test base, base
                                        jnz get_lb
                                        restore get_lb
                                         display "}"
                 \\}
                 match "vec4" x, arg \\{ irpEqsVec4 equ x
                                         x\\#\\_type equ 'vec4'
                                         ;display x_type
                 \\}
                 match "ivec" x, arg \\{ irpEqsIVec equ x
                                         x\\#\\_type equ 'int'
                                         ;display x_type
                 \\}
                 match ">" x, arg \\{ display '>'
                       shr base, x \\}
                 match "<" x, arg \\{ shl base, x \\}
                 match ":" x, arg \\{ x: x\\#\\_type equ 'label' \\}
                 match "!0": x, arg \\{ test base, base
                                        jz x   \\}
                 match "!0", arg \\{ test base, base
                                        jz @f   \\}
                 match "!>0": x, arg \\{ test base, base
                 jnz x   \\}

                 match "to", arg \\{ ;display 'to;'
                 mov [GetBufr+af],base   \\}
                 match "to": x, arg \\{ ;display 'to2;'
                 mov x,base   \\}
                 match #:x , arg \\{ x equ base  \\}
                 match : , arg \\{ mov base, [base] \\}
                 match '(do)' , arg \\{ push base
                                        call base
                                        pop  base
                                        \\}
                 match '(do)': x, arg \\{ push base
                                          call dword x
                                          pop  base
                                          \\}
                 match 'do' , arg \\{ call base \\}
                 match 'do': x, arg \\{ call dword x \\}
                 match 'ptR'x:z, arg \\{ mov x,[z]
                                          add z,GetptrR
                       \\}
                 match 'ptW'x:z, arg \\{ mov [z],x
                                          add z,GetptrW
                       \\}
                 match 'ptR_'x:z, arg \\{ mov x,[z]  \\}
                 match 'ptW_'x:z, arg \\{ mov [z],x  \\}
                 match =* x , arg \\{ x base \\}
    \}
    if ~ args eq
    forward mGetArg args
    common  end if
    purge   mGetArg
@@:
}
macro mBasic_ [args] { common
macro mGetArg base*,[arg] \{ \common
        ;match any,GetBufr \\{ define GetBufr any+af
        ;mov base,[GetBufr+af]
        GetReg equ base
        ;\\}
        \forward match =+ x, arg \\{ add base, x \\}
                 match =- x, arg \\{ sub base, x \\}
                 ;match =:=~ x, arg \\{ shl base, x \\}
                 match "(", arg \\{ push base \\}
                 match ")", arg \\{ pop base \\}
                 match "{(", arg \\{ local .lb
                                         .lb: push base
                                         get_lb equ .lb
                                         display "{"
                 \\}
                 match ")}", arg \\{    pop base
                                        dec base
                                        ;test base, base
                                        jnz get_lb
                                        restore get_lb
                                         display "}"
                 \\}
                 match "{", arg \\{ local .lb
                                         .lb:
                                         get_lb equ .lb
                                         display "{"
                 \\}
                 match "}", arg \\{ test base, base
                                        jnz get_lb
                                        restore get_lb
                                         display "}"
                 \\}
                 match "vec4" x, arg \\{ irpEqsVec4 equ x
                                         x\\#\\_type equ 'vec4'
                                         ;display x_type
                 \\}
                 match "ivec" x, arg \\{ irpEqsIVec equ x
                                         x\\#\\_type equ 'int'
                                         ;display x_type
                 \\}
                 match ">" x, arg \\{ display '>'
                       shr base, x \\}
                 match "<" x, arg \\{ shl base, x \\}
                 match ":" x, arg \\{ x: x\\#\\_type equ 'label' \\}
                 match "!0": x, arg \\{ test base, base
                                        jz x   \\}
                 match "!0", arg \\{ test base, base
                                        jz @f   \\}
                 match "!>0": x, arg \\{ test base, base
                 jnz x   \\}

                 match "to", arg \\{ ;display 'to;'
                 mov [GetBufr],base   \\}
                 match "to": x, arg \\{ ;display 'to2;'
                 mov x,base   \\}
                 match #:x , arg \\{ x equ base  \\}
                 match : , arg \\{ mov base, [base] \\}
                 match '(do)' , arg \\{ push base
                                        call base
                                        pop  base
                                        \\}
                 match '(do)': x, arg \\{ push base
                                          call dword x
                                          pop  base
                                          \\}
                 match 'do' , arg \\{ call base \\}
                 match 'do': x, arg \\{ call dword x \\}
                 match 'ptR'x:z, arg \\{ mov x,[z]
                                          add z,GetptrR
                       \\}
                 match 'ptW'x:z, arg \\{ mov [z],x
                                          add z,GetptrW
                       \\}
                 match 'ptR_'x:z, arg \\{ mov x,[z]  \\}
                 match 'ptW_'x:z, arg \\{ mov [z],x  \\}
                 match =* x , arg \\{ x base \\}
    \}
    if ~ args eq
    forward mGetArg args
    common  end if
    purge   mGetArg
@@:
}
    

GetptrR equ 4  ;offset for read data
GetptrW equ 4 ;offset for write data
macro GetAlz a,b { mBasic <0,ecx,"!0","ptR"a:esi,"ptW"b:edi,"ptR_"edx:esi,"ptW_"edx:edi> }

GetAlz  ebp,dword 11
;or this variant
mBasic <0,ecx,"!0","ptR"edx:esi,"ptW"edx:edi,"ptR_"edx:esi,"ptW_"edx:edi>
    

MyProc1: inc edx
              ret
;data
pp dd 4,4,8

;in code
mov esi,pp
GetBufr equ esi
mBasic <0,ecx,"!0","{(","(do)",-1,")}">

;or without push. '(' mean push.  ')' mean pop.
;do loop while ebx > 0. '!0' mean if ebx = 0 exit from mBasic
mBasic <8,ebx,"!0","{","do":MyProc1,-1,"}">
    

mov ebx,11
mBasic_ <ebx,"!0":.l1,"{","do":MyProc1,-1,#:regLoop1>
      some code
      _nxt regLoop1,get_lb  ;get_lb = "{"
.l1: