/FOCAL FUNCTION FMQ(A)     -JVZ

/THIS FUNCTION LOADS THE INTEGER PART OF THE ARGUMENT (MOD.
/4096) INTO THE MQ REGISTER FOR DISPLAY PURPOSES.  ALTHOUGH
/THIS REGISTER IS USED BY THE MULTIPLY ROUTINE, THE CONTENTS
/ARE ALWAYS SAVED AND RESTORED SO THAT THE VALUE SET BY THIS
/FUNCTION APPEARS CONTINUOUSLY.  THIS FUNCTION PROVIDES A
/CONVENIENT WAY TO DISPLAY A SLOWLY CHANGING NUMBER - FOR
/INSTANCE THE NUMBER OF SCANS DURING SIGNAL AVERAGING OR THE
/VALUE OF AN A-TO-D CONVERTER FOR SET-UP PURPOSES.

/SYSTEM SYMBOLS:

	MQL=7421
	FIXTAB

/FOCAL SYMBOLS:

	FIXIT=4453
	FNTABF=355
	FNTABL=2155
	RETURN=5536

	FIELD 1

	*FNTABF+23
	FMQ		/ENTRY POINT

	*FNTABL+23
	"M^2+"Q		/CODE FOR 'FMQ'

	*7244		/SIX WORD 8/E HOLE
FMQ,	FIXIT
	MQL		/LOAD INTEGER INTO MQ
	RETURN
	$