/*************TIEFPASS**************

			/CALL:	TPASS
			/	INPUT
			/	OUTPUT DOUBLE PREC.
			/	ADR. DES SCHIEBEREGSITERS
			/	LAENGE DER COEFF.-LISTE
			/	ADR. COEFF.-LISTE


TPASS,	5
	BLOTNT
	TP5INI

TPDO,	ACUM
	1
	DCA INPT

	GETAD
	2
	DCA TPOUT

	GETAD
	3
	DCA SIGADD

	GETAD
	4
	DCA COEPOI

	ACUM
	5
	CIA
	DCA MTAP

	SWAB
	CAM DST
	TPAC
	TAD SIGADD
	DCA SIGPOI
	TAD MTAP
	DCA TPCNT

	TAD INPT
	SWP
	TAD I SIGPOI
	SWP
	DCA I SIGPOI
	ISZ SIGPOI
	ISZ TPCNT
	JMP .-5

	CAM
	TAD MTAP
	DCA TPCNT
	TAD SIGADD
	DCA SIGPOI

LOOP,	JMS HFMLT1
SIGPOI,	0
COEPOI,	0
	TPTEM

	DAD
	TPTEM

	MQL

	DAD
	TPAC

	DST
	TPAC

	CAM
	ISZ COEPOI
	ISZ SIGPOI
	ISZ TPCNT
	JMP LOOP
	DAD
	TPAC

	DST
TPOUT,	0
	CAM
	INEND


TP5INI,	GETAD
	3
	DCA SIGPOI

	ACUM
	5
	CIA
	DCA TPCNT

	DCA I SIGPOI
	ISZ SIGPOI
	ISZ TPCNT
	JMP .-3
	JMP TPDO


TPAC,	0
	0
INPT,	0
SIGADD,	0
TPCNT,	0
MTAP,	0
SIGNFL,	0
TMLTIP,	0