/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 $