Oxygen Basic



Using Assembly code (X86)

CPU:
sys a
mov a,21
shl a,1
print a
FPU:
double a
fldpi
fstp qword a
print a
SIMD:
single a[32]<=(1,2,3,4,5,6,7,8)
lea eax,a
movups xmm0,[eax]
movups xmm1,[eax+16]
addps xmm0,xmm1
movups [eax+32],xmm0
print " " a[9] "  " a[10] "  " a[11] "  " a[12]
LOOPS:
sys a
mov ecx,21
mov eax,0
(
  add eax,2
  dec ecx
  jg repeat
)
mov a,eax
print a