; macro for switching state of symbolic variable between undefined and empty 
macro defineback arg {
        match =arg,arg \{ define defineback define \}
        match ,arg \{ define defineback restore \}
        match define,defineback \{ define arg  \} }

; assembler of course acept signed integer values, but float values loaded as unsigned integer representation of double float
; so macro to force numerical variable to be signed
macro force_signed X,bits:64 { X=(-1) shl (bits-1) + 1 shl (bits-1) xor (X) }
macro force_unsigned X,bits:64 { X=(-1) shl (bits) xor (X) }

; macro that return qword from double
; used
; (X) shr 64 shl 64 - return +0/-0 from X
; (X) shr 64 or 1 - return +1/-1 from X - multiplier to get absolute of X
macro integer X { local exp
        force_signed X
        exp=((X) shr 52 and $7FF)-$3FF-52
        if exp<-52
                X=(X) shr 64 shl 64 
        else
                ;if exp > 12
                ;        not fit in qword
                ;else
                        X=(((X) and (1 shl 52 - 1)+1 shl 52) shl exp) * ((X) shr 64 or 1)
                ;end if
        end if     

macro defineback arg { arg#._ equ 0
        match =arg,arg \{ define defineback define \}
        match ,arg \{ define defineback restore
                      display "rest",13,10
                      arg#._ equ 1
        \}
;very interesting match again do macro defineback ! Recursion
        match define,defineback \{
         if arg#._ eq 0
        define arg
                      display "init",13,10
                      ;guQuess_ equ 2
                      end if
        \}
        display arg#._+48,13,10
        } 
;in code
rept 6  {   defineback seggg
       mov eax,seggg._
       if seggg._ eq 0
          mov ebx,11
       end if
       } 
    

macrA     ;in macrA hiding defineback
Some code
macrB  ;if comment macrA , macrB ignored