File PEAKFL.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file



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




Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search