      MOV rax, RIValues
      MOV rcx, *Spectrum
      OR rcx, rcx
      JNZ pSpecValidStereo
      MOV rcx, SpecTmp
    !pSpecValidStereo:
      MOV rdx, rcx
      ADD rdx, $1000
      FLD dword [Flt_1_8000]
    !BoostLoopStereo:
      FLD dword [rax]
      FMUL ST,ST
      FLD dword [rax + 4]
      ADD rax, 8
      FMUL ST, ST
      FADDP
      FSQRT
      FMUL ST, ST1
      FSTP dword [rcx]
      
      FLD dword [rax + $4000]
      FMUL ST, ST
      FLD dword [rax + $4004]
      FMUL ST, ST
      FADDP
      FSQRT
      FMUL ST, ST1
      FSTP dword [rcx + $1000]
      
      ADD rcx, 4
      CMP rcx, rdx
    JNE BoostLoopStereo
  FSTP st
; IDE Options = PureBasic 4.61 Beta 1 (Windows - x64)
; CursorPosition = 28
; EnableXP