Code: Select all
Dim As Ulongint k, v(0)
Dim As Ulongint Ptr z=@v(0)
k=2
v(0)=123456789
Print "before"
Print "v(0) = ";v(0)
Print "z = ";z
Asm
movd mm6, k ' mm6 is k
mov rax, z
movq [rax], mm6
emms
End Asm
Print "after"
Print "z = ";z
Print "v(0) = ";v(0)
Sleep
before
v(0) = 123456789
z = 8519120
after
z = 8519120
v(0) = 2
Code: Select all
Dim As Ulongint k, v(0)
Dim As Ulongint Ptr z=@v(0)
k=2
v(0)=123456789
Print "before"
Print "v(0) = ";v(0)
Print "z = ";z
Asm
movd mm6, k ' mm6 is k
movq [z], mm6
emms
End Asm
Print "after"
Print "z = ";z
Print "v(0) = ";v(0)
Sleep
before
v(0) = 123456789
z = 8519120
after
z = 2
v(0) = 123456789