macro   lea     Dst,Src
{
local ...Byte,...Zero
  virtual at $
  ...Zero:
        lea     eax,Src
  load ...Byte byte from ...Zero
  end virtual
}

macro   xor     Dst,Src
{
 if (Dst eqtype Src)&(Dst eq Src)&(Dst in <rax,rbx,rcx,rdx,rsi,rdi,rsp,rbp>)
   if Dst in <rax>
        xor     eax,eax
   else if Dst in <rbx>
        xor     ebx,ebx
   else if Dst in <rcx>
        xor     ecx,ecx
   else if Dst in <rdx>
        xor     edx,edx
   else if Dst in <rsi>
        xor     esi,esi
   else if Dst in <rdi>
        xor     edi,edi
   else if Dst in <rsp>
        xor     esp,esp
   else if Dst in <rbp>
        xor     ebp,ebp
   end if
 else
        xor     Dst,Src
 end if
}

macro   mov     Dst,Src
{
  if (Dst eqtype eax)&(Src eqtype 0)&(Src relativeto $)
    if Dst in <rax>
        lea     eax,[Src]
    else if Dst in <rbx>
        lea     ebx,[Src]
    else if Dst in <rcx>
        lea     ecx,[Src]
    else if Dst in <rdx>
        lea     edx,[Src]
    else if Dst in <rsi>
        lea     esi,[Src]
    else if Dst in <rdi>
        lea     edi,[Src]
    else if Dst in <rsp>
        lea     esp,[Src]
    else if Dst in <rbp>
        lea     ebp,[Src]
    else if Dst in <eax,ebx,ecx,edx,esi,edi,esp,ebp,r8d,r9d,r10d,r11d,r12d,r13d,r14d,r15d,r8,r9,r10,r11,r12,r13,r14,r15>
        lea     Dst,[Src]
    else
        mov     Dst,Src
    end if
  else
        mov     Dst,Src
  end if
}

macro   mov     Dst,C
{
  if (Dst eqtype eax)&((C eqtype 0)&~(C relativeto $))&(C eqtype 0)&(C=0)
        xor     Dst,Dst
  else
    if (Dst in <rbp>)&(C in <rsp>)
        mov     ebp,esp
    else
        mov     Dst,C
    end if
  end if
}

        use64
rept 64*1024
{
        mov     dx,[rsp]
        mov     al,1
}