.TITLE .DC  F(X**2)
	/X IN FAC
	/X RETURNED IN .XA
	/X**2 RETURNED IN .T1
	.GLOBL .DC,.AP,.AS,.AO,.AQ
	.GLOBL .T1,.XA,.AA,.AW
.DC	0
	JMS*	.AP
		.XA
	LAC*	.DC
	DAC	PT#	/POINTER
	LAC*	PT
	DAC	NP#	/=-N+1
	ISZ	PT	/ADV TO CN
	LAC*	.AA
	TAD	(400024	/ARG<2**-21?
	SPA!CLA
	JMS*	.AW	/YES,FLOAT 0
	JMS*	.AS	/MULT X
		.XA
	JMS*	.AP	/FORM X**2
		.T1+400000
	JMS*	.AO	/LOAD CN
		PT+400000
LOOP	JMS*	.AS	/CN*X**2
		.T1+400000
	ISZ	PT	/GET
	ISZ	PT	/NEXT
	ISZ	PT	/COEFF
	JMS*	.AQ	/+ CN-1
		PT+400000
	ISZ	NP	/DONE?
	JMP	LOOP
	ISZ	.DC	/YES
	JMP*	.DC
.XA	0; 0; 0
	.END