    mov  [forth2-forth0+ECX], offset var1
    inc  forths ; dummy entry for source address
    mov  [4+ECX], EDI
    call macrod
    mov  [forth2-forth0+ECX], offset @f
    inc  macros
    mov  [4+ECX], EDI
    inc  EDI
    ret

