ROM:03A9                 cntr = 480             ; Capture 480 periods signal
ROM:03AA                 do All_Per until ce
ROM:03AB                 mr = 0                 ; Clear Summator
ROM:03AC                 ena sec_reg
ROM:03AD                 mr = 0
ROM:03AE                 dis sec_reg
ROM:03AF                 cntr = 48              ; One period input signal
ROM:03B0                 do One_Per until ce
ROM:03B2                 mx0 = dm(ADC_Left)     ; Captured data
ROM:03B3                 mx1 = dm(i3, m3)       ; Get Gauss data value
ROM:03B3                                        ; not increment pointer m0==0
ROM:03B3                                        ; Values in table is positive
ROM:03B3                                        ; range 0x0000 .. 0x7FFF
ROM:03B4                 my0 = dm(i1, m0)       ; Get Reference Sin(t) value.
ROM:03B4                                        ; with autoincrement pointer
ROM:03B4                                        ; (m0==1 -> set in Init_measure())
ROM:03B5                 mf = mx1 * my0 (rnd)   ; =Round(RefSin(t)*Gauss(T))
ROM:03B6                 mr = mr + mx0 * mf (ss); Multiplay and Accumulate real part
ROM:03B6                                        ; =SUM(Sin(t)*RefSin(t)*Gauss(T))
ROM:03B6                                        ; (ss) first and second var
ROM:03B6                                        ; are signed variables
ROM:03B7                 ena sec_reg
ROM:03B8                 mx0 = dm(ADC_Left)     ; LEFT Playback Data Input
ROM:03B9                 mx1 = dm(i3, m3)       ; Get Gauss data value
ROM:03B9                                        ; not increment pointer m0==0
ROM:03B9                                        ; Values in table is positive
ROM:03B9                                        ; range 0x0000 .. 0x7FFF
ROM:03BA                 my0 = dm(i2, m0)       ; Get Reference Cos(t) value.
ROM:03BA                                        ; with autoincrement pointer
ROM:03BA                                        ; (m0==1 -> set in Init_measure())
ROM:03BB                 mf = mx1 * my0 (rnd)   ; =Round(RefCos(t)*Gauss(T))
ROM:03BC                 mr = mr + mx0 * mf (ss); Multiplay and Accumulate imaginery part
ROM:03BC                                        ; =SUM(Sin(t)*RefCos(t)*Gauss(T))
ROM:03BC                                        ; (ss) first and second var
ROM:03BC                                        ; are signed variables
ROM:03BD                 dis sec_reg
ROM:03BE
ROM:03BE One_Per:                               ; CODE XREF: Capture_DATA+18j
ROM:03BE                 modify(i3, m0)         ; Increment Gauss data pointer
ROM:03BE                                        ; m0==1 -> set in Init_measure()
ROM:03BF                 af = mr0 + af          ; ay1, ay0, af [MSB LSB]
ROM:03BF                                        ; is accumulator periods
ROM:03C0                 ar = mr1 + ay0 + C
ROM:03C1                 ay0 = ar
ROM:03C2                 ar = mr2 + ay1 + C
ROM:03C3                 ay1 = ar
ROM:03C4                 ena sec_reg
ROM:03C5                 af = mr0 + af
ROM:03C6                 ar = mr1 + ay0 + C
ROM:03C7                 ay0 = ar
ROM:03C8                 ar = mr2 + ay1 + C
ROM:03C9                 ay1 = ar
ROM:03CA                 dis sec_reg
ROM:03CB
ROM:03CB All_Per: