union programm
    memadress as byte ptr
    f as sub()
end union

dim shared as programm bar

sub foo()
    bar.memadress=strptr(opcodes_und_so)
    Asm
        mov eax,123
        mov edx,456
        '...
    End Asm
    'EAX-Register wird verändert, bevor man die SUB aufruft
    bar.f()
end sub