FIELD 2

*7000


/**************PEAK FILTER FOR RESIDUUM ******************


/CALL:	PEAKFL
/	INPUT
/	OUTPUT



PEAKFL,	2


        SHFTRG
        MAXSEL
        1


        TAP
        C2
        LDTEM1/ D1


        SCALSG
        LDTEM1
        PREC1
        ONE
        LDTEM3  /2*D1


        TAP
        ONE
        LDTEM2


        COMPLM
        LDTEM2
        LDTEM2  /-D0


        ADDER
        LDTEM2
        NNX14
        LDTEM3
        NNX14
        ONE
        LDTEM3  /2*D1-D0


        TAP
        C3
        LDTEM4  /D2


        COMPLM
        LDTEM4
        LDTEM5  /-D2


        ADDER
        LDTEM3
        NNX14
        LDTEM5
        NNX14
        ONE
        LDTEM3  /T1


        ADDER
        LDTEM1
        NNX14
        LDTEM4
        NNX14
        ZERO
        LDTEM4  /D1+D2


        ADDER
        LDTEM4
        NNX14
        LDTEM2
        NNX14
        ONE
        LDTEM4  /D1+D2-D0


        TAP
        C4
        LDTEM2


        COMPLM
        LDTEM2
        LDTEM2  /-D3


        ADDER
        LDTEM2
        NNX14
        LDTEM4
        NNX14
        ONE
        LDTEM4  /T2


        FWRECT
        LDTEM4
        NNX14
        LDTEM4


        FWRECT
        LDTEM3
        NNX14
        LDTEM3


        COMPLM
        LDTEM4
        LDTEM6


        ADDER           /  (/A/-/B/)
        LDTEM3
        NNX14
        LDTEM6
        NNX14
        ONE
        LDTEM5


        HWRECT
        LDTEM5
        NNX14
        LDTEM5


        ADDER           /  (/B/+(/A/-/B/)GLEICHGER.)
        LDTEM4
        NNX14
        LDTEM5
        NNX14
        ZERO
        LDTEM7


        MULTSG
        LDTEM1
        NNX14
        LDTEM7
        NNX14
        2
        NNX14


	SCALSG		/FOR SCOPE!
	2
	NNX14
	FLSCAL
	FLTEM


	BLEND



FLSCAL,	-6
FLTEM,	ZBLOCK N