      *400
CLA    / PRE-SMOOTH INIT.
TAD KT1
DCA Z 12
TAD KT2
DCA YN
TAD M197
DCA CNT
NEWY, TAD M14  / BEGIN SUMMATION LOOP, INIT.
DCA CO
TAD P700
DCA COEF
DCA SUMY
DCA SUMY+1
DCA SUMY+2
DCA SUM
DCA SUM+1
DCA SUM+2
XSQY, TAD I Z 12  /SUM Y AND SUM(X SQUARE Y)
DCA Z 45        /S.P. TO F.P.
DCA Z 46
TAD P13
DCA Z 44
JMS I Z 7
FNOR
FPUT Y1F
FEXT
TAD I YN
DCA Z 45   /S.P. TO F.P.
DCA Z 46
TAD P13
DCA Z 44
JMS I Z 7
FNOR
FADD Y1F
FPUT HOLD
FADD SUMY
FPUT SUMY
FGET HOLD
FMPY I COEF
FADD SUM
FPUT SUM
FEXT
TAD COEF    / INDEX COUNTERS
TAD P3
DCA COEF
TAD YN
TAD M1
DCA YN
ISZ CO
JMP XSQY
TAD I YN
DCA Z 45   / S.P. TO F.P.
DCA Z 46
TAD P13
DCA Z 44
JMS I Z 7    /COMPUTE COEF. C
FNOR
FADD SUMY
FMPY F125
FSUB SUM
FDIV F161
FEXT
TAD Z 44    /F.P. TO S.P.
TAD M12
DCA COT
TAD Z 45
STRT, ISZ COT
SKP
JMP FIN
ROT, RAR
CLL
JMP STRT
FIN, DCA I YN
TAD Z 12   /INIT.
TAD M13
DCA Z 12
TAD YN
TAD P15
DCA YN
ISZ CNT
JMP NEWY
JMP I NP
P15, 6     /CONSTANTS
KT1, 1057
KT2, 1072
M197, 7172
M13, 0-4
CO, 0
M14, 0-5
YN, 0
CNT, 0
COEF, 0
P700, 700
P3, 3
Y1F, 0
0
0
SUMY, 0
0
0
SUM, 0
0
0
HOLD, 0
0
0
M1, 0-1
F125, 5
2163
1463
F161, 7
2534
6314
NP, 600
P13, 13
COT, 0
M12, 0-14
*700
5
3100
0
5
2000
0
4
2200
0
3
2000
0
1
2000
0
$
                               