dim as double tim = timer
dim as double testdouble(2)
dim as single testsingle(4)
for i as ulong = 0 to 100000000
    asm
        movupd xmm0, [testdouble]
        addpd xmm0, xmm0
        movupd [testdouble], xmm0
    end asm
next
print "Double: "&timer-tim
tim = timer
for i as ulong = 0 to 100000000
    asm
        movups xmm0, [testsingle]
        addps xmm0, xmm0
        movups [testsingle], xmm0
    end asm
next
print "Single: "&timer-tim