/FOCAL FUNCTION FXY(X,Y)   -JVZ

/THIS FUNCTION USES THE STANDARD VC8-E POINT-PLOT INTERFACE
/TO PROVIDE ANALOG SIGNALS ON THE X- AND Y-AXES AND A PULSE
/ON THE Z-AXIS.  THE FUNCTION MAY BE CALLED WITH EITHER ONE
/OR TWO ARGUMENTS.  IF Y IS OMITTED, ONLY THE X VALUE WILL
/BE CHANGED.   THE RANGE OF THE ARGUMENTS IS -512 TO +511.

/SYSTEM SYMBOLS:

	DISD=6052
	DILX=6053
	DILY=6054
	DIXY=6055
	FIXTAB

/FOCAL SYMBOLS:

	FIELD 1
	CHAR=66
	END=134
	EVAL=1613
	FIXIT=4453
	FNEW=3224
	FNTABF=355
	FNTABL=2155
	MCOM=72
	PUSHJ=4540
	RETURN=5536

	*END
	STVAR

	*FNTABF+22
	FXY		/ENTRY POINT
	*FNTABL+22
	"X^2+"Y		/CODE FOR 'FXY'

	*FNEW
FXY,	FIXIT		/CHANGE X TO AN INTEGER
	DILX		/LOAD X AXIS CONVERTER
	CLA
	TAD CHAR
	TAD MCOM
	SZA CLA		/ARE THERE TWO ARGUMENTS?
	JMP .+5		/NO
	PUSHJ		/YES
	    EVAL-1	/EVALUATE THE NEXT ONE
	FIXIT		/CHANGE Y TO AN INTEGER
	DILY		/LOAD Y AXIS CONVERTER
	DISD		/WAIT A WHILE
	JMP .-1
	DIXY		/BRIGHTEN THINGS UP
	RETURN
STVAR=.;$
