pllfilt

 

	while(IT_IN(0))
	{
		if(IT_OUT(0)) {
			KrnOverflow("pllfilt",0);
			return(99);
		}
		y(0)=2*y(1)-y(2)+g1*x(0)-2*g1*x(1)+g1*x(2)+g2*x(0)-g2*x(1)+g3*x(0);
	}

/*  Capsim (r) Text Mode Kernel (TMK) Star Library (Blocks)
    Copyright (C) 1989-2002  XCAD Corporation 

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    http://capsimtmk.sourceforge.net
    XCAD Corporation
    Raleigh, North Carolina */

 

/*
	pllfilt.s:	loop filter for PLL
	parameters:	gain#1, gain#2, gain#3 of the filter
	inputs:		in, the signal to be filtered
	outputs:	out, the filtered signal
	description:	This star implements a loop filter
			as a recursive equation:
			y(n)=2*y(n-1)-y(n-2)
			     +g1*[x(n)-2*x(n-1)+x(n-2)]	
			     +g2*[x(n)-x(n-1)]
			     +g3*x(n)
			This filter can be used as a PLL loop filter.
			written by Ray Kassel
			August 9, 1990

pllfilt


	parameters:	gain#1, gain#2, gain#3 of the filter
	inputs:		in, the signal to be filtered
	outputs:	out, the filtered signal
	description:	This star implements a loop filter
			as a recursive equation:
			y(n)=2*y(n-1)-y(n-2)
			     +g1*[x(n)-2*x(n-1)+x(n-2)]	
			     +g2*[x(n)-x(n-1)]
			     +g3*x(n)
			This filter can be used as a PLL loop filter.


			written by Ray Kassel
			August 9, 1990

 */