!StagingR:
  XOr rcx, rcx
!RepLoopR:
  FLD1
  FLDZ
  MOV r10, rcx
  MOV rax, rcx
  ADD rax, r8
  MOV r11, rax
!ForLoopR:
  MOV rax, rcx
  ADD rax, r8
  SHL rax, 3
  ADD rax, rsi ;RRIValues2
  MOV rdx, rcx
  SHL rdx, 3
  ADD rdx, rsi ;RIValues2
  FLD dword [rax]
  FMUL ST, ST2
  FLD dword [rax + 4]
  FMUL ST, ST2
  FSUBP
  FLD dword [rax]
  FMUL ST, ST2
  FLD dword [rax + 4]
  FMUL ST, ST4
  FADDP
  FLD dword [rdx + 4]
  FSUB ST, ST1
  FSTP dword [rax + 4]
  FADD dword [rdx + 4]
  FSTP dword [rdx + 4]
  FLD dword [rdx]
  FSUB ST, ST1
  FSTP dword [rax]
  FADD dword [rdx]
  FSTP dword [rdx]
  FLD ST
  FLD ST4
  FMUL ST, ST2
  FSUBP ST2, ST
  FLD ST3
  FMUL ST, ST3
  FADDP ST2, ST
  FMUL ST, ST3
  FLD ST4
  FMUL ST, ST3
  FSUBP ST3, ST
  FSUBP ST2, ST
  INC rcx
  CMP rcx, r11
  JNE ForLoopR
  FSTP ST
  FSTP ST
  MOV rcx, r10
  ADD rcx, r9
  CMP rcx, $800
  JB RepLoopR
  FSTP ST
  FSTP ST
  RET
; IDE Options = PureBasic 4.61 Beta 1 (Windows - x64)
; CursorPosition = 60
; FirstLine = 32
; EnableXP