Union opcodestring
 s As Byte Ptr
 f As Sub
end union


sub hw naked ()
'print "Hallo Welt"
asm nop
asm ret
end sub




Dim Shared As opcodestring act


dim shared progptr as any ptr

dim shared prog as string

prog = chr(&h90, &hC3)

Sub foo()

    act.s=strptr(prog)

    dim as any ptr tmpsub
    tmpsub=act.f

    Asm call [tmpsub]

End Sub

'print hex(@hw)
'asm jmp 0x1df0

progptr = @hw
progptr = strptr(prog)

print hex(progptr)

'print hex(progptr[0])
'print hex(progptr[1])
'print hex(progptr[2])


asm
mov eax, [progptr]
call eax
end asm



foo

print "ende"