1               /FOCAL FUNCTION FMQ(A)     -JVZ
   2               
   3               /THIS FUNCTION LOADS THE INTEGER PART OF THE ARGUMENT (MOD.
   4               /4096) INTO THE MQ REGISTER FOR DISPLAY PURPOSES.  ALTHOUGH
   5               /THIS REGISTER IS USED BY THE MULTIPLY ROUTINE, THE CONTENTS
   6               /ARE ALWAYS SAVED AND RESTORED SO THAT THE VALUE SET BY THIS
   7               /FUNCTION APPEARS CONTINUOUSLY.  THIS FUNCTION PROVIDES A
   8               /CONVENIENT WAY TO DISPLAY A SLOWLY CHANGING NUMBER - FOR
   9               /INSTANCE THE NUMBER OF SCANS DURING SIGNAL AVERAGING OR THE
  10               /VALUE OF AN A-TO-D CONVERTER FOR SET-UP PURPOSES.
  11               
  12               /SYSTEM SYMBOLS:
  13               
  14                       MQL=7421
  15                       FIXTAB
  16               
  17               /FOCAL SYMBOLS:
  18               
  19                       FIXIT=4453
  20                       FNTABF=355
  21                       FNTABL=2155
  22                       RETURN=5536
  23               
  24                       FIELD 1
  25               
  26                       *FNTABF+23
  27 010400  7244          FMQ             /ENTRY POINT
  28               
  29                       *FNTABL+23
  30 012200  1153          "M^2+"Q         /CODE FOR 'FMQ'
  31               
  32                       *7244           /SIX WORD 8/E HOLE
  33 017244  4453  FMQ,    FIXIT
  34 017245  7421          MQL             /LOAD INTEGER INTO MQ
  35 017246  5536          RETURN
  36                       $

FIXIT   4453
FMQ     7244
FNTABF  0355
FNTABL  2155
MQL     7421
RETURN  5536