Inline assembler

Public Function MMXAdd( _
                ByRef dest As Integer, _
                ByRef src As Integer, _
                ByVal count As Long) As Long
End Function

Private Sub Form_Load()
    Dim src()   As Integer
    Dim dst()   As Integer
    Dim size    As Long
    Dim index   As Long
    
    size = 1024
    
    ReDim src(size - 1)
    ReDim dst(size - 1)
    
    For index = 0 To size - 1
        ' // Fill arrays with sine
        src(index) = Sin(index / 40) * 20000
        dst(index) = Sin(index / 23) * 20000
    Next
    
    ' // Add with saturation
    MMXAdd dst(0), src(0), size
    
    '// Draw result
    AutoRedraw = True
    
    Scale (0, 32767)-(index, -32768)
    
    For index = 0 To size - 1
        If index Then
            Me.Line -(index, dst(index))
        Else
            Me.PSet (index, dst(index))
        End If
    Next
    
End Sub