ассемблер вычисление суммы ряда(проверка алгоритма)

[revogray]

доброго времени суток всем!
Срочно прошу о помощи в разборе и отладке алгоритма вычмсления суммы ряда от 1 до 15, ряда 1/i^2.
Пишу в малоизвестном и ужасном nvcom-01
Заранее благодарю

 //одно ядро вычисляет сумму 1..7 члена,второе 8..15,второе ядро суммирует.DSP_0: CLRL A0
MOVE #1,A4
MOVE #0,R1
MOVE #7,R3
LABEL1:INCL R0*
CVIF R0,R4
MOVE R4.L,R6.L
FMPY R6,R4
FIN R4,R6
FADD A0,R6
J.LT*LABEL1
MOVE#0,A4
STOP
DSP_1: CLRL A2
MOVE #8,R1
MOVE #15,R3
LABEL2:INCL R0
CVIF R0,R4
MOVE R4.L,R6.L
FMPY R6,R4
FIN R4,R6
FADD A2,R6
J.LT*LABEL2
LABEL3:MOVE #0,A4
J.PI LABEL3 //если первое ядро закончило работу,то продолжаем*
FADD A2,A0
STOP

Первое ядро считает сумму от 1до 7,второе от 8до 15 и суммирует.

Второй алгоритм с циклом с предусловием,первое ядро считает члены,второе складывает.

 DSP_0:CLRL A0
MOVE #0,R0
MOVE #15,R2
L4: CMPL R0,R2
J.GL*LABEL5*
INCL R0
CVIF R0,R4
MOVE R4.L,R6.L
FMPY R6,R4
FIN R4,R6
MOVE R6.L,A0.L
MOVE R8,R0
LABEL2: MOVE A0.L,R0.L
J.PI LABEL 3
J LABEL2
LABEL3:MOVE R8,R0
J L4
LABEL5: MOVE #0,A4
STOP
DSP_1:CLRL R0
CLRL R2
LABEL4: MOVE A0.L ,R0.L
J.PI L5
J LABEL 4
L5:FADD A0,R2
CLRL A0
MOVE A2,R0
J.P LABEL 6
J LABEL4
LABEL5:MOVE R2.L,A0.L
STOP