/ 2	FORTRAN II EXTENDED SUBROUTINE & FUNCTION LIBRARY
/
/	FUNCTION : POLY ( X , C<I> , N )
/
/	13-FEB-78			W. HOUBEN
/
	LAP
	ENTRY	POLY
	DUMMY	X
	DUMMY	C
	DUMMY	N
XPNT,	X
PNTR,	0
CNTR,	0
X,	BLOCK	2
C,	BLOCK	2
N,	BLOCK	2
XVAL,	BLOCK	3
\I,	BLOCK	1
POLY,	BLOCK	2
	TAD	XPNT
	DCA	PNTR
	TAD	(-6
	DCA	CNTR
A1,	TAD I	POLY
	INC	POLY#
	DCA I	PNTR
	INC	PNTR
	ISZ	CNTR
	JMP	A1
/
/	SCHLEIFENZAEHLER UEBERNEHMEN
/
	TAD I	N
	CIA
	DCA	\I
/
/	X-WERT UEBERNEHMEN
/
	CALL	1,IFAD
	ARG	X
	CALL	1,STO
	ARG	XVAL
LOOP,	CALL	1,IFAD
	ARG	C		/ FAC = FAC + C<I>
	INC	C#
	INC	C#
	INC	C#
	ISZ	\I		/ SCHLEIFENENDE ??
	SKP
	JMP	ENDE
	CALL	1,FMP
	ARG	XVAL		/ FAC = FAC * XVAL
	JMP	LOOP
ENDE,	RETRN	POLY
	END