1               /FOCAL FUNCTION FXY(X,Y)   -JVZ
   2               
   3               /THIS FUNCTION USES THE STANDARD VC8-E POINT-PLOT INTERFACE
   4               /TO PROVIDE ANALOG SIGNALS ON THE X- AND Y-AXES AND A PULSE
   5               /ON THE Z-AXIS.  THE FUNCTION MAY BE CALLED WITH EITHER ONE
   6               /OR TWO ARGUMENTS.  IF Y IS OMITTED, ONLY THE X VALUE WILL
   7               /BE CHANGED.   THE RANGE OF THE ARGUMENTS IS -512 TO +511.
   8               
   9               /SYSTEM SYMBOLS:
  10               
  11                       DISD=6052
  12                       DILX=6053
  13                       DILY=6054
  14                       DIXY=6055
  15                       FIXTAB
  16               
  17               /FOCAL SYMBOLS:
  18               
  19                       FIELD 1
  20                       CHAR=66
  21                       END=134
  22                       EVAL=1613
  23                       FIXIT=4453
  24                       FNEW=3224
  25                       FNTABF=355
  26                       FNTABL=2155
  27                       MCOM=72
  28                       PUSHJ=4540
  29                       RETURN=5536
  30               
  31                       *END
  32 010134  3243          STVAR
  33               
  34                       *FNTABF+22
  35 010377  3224          FXY             /ENTRY POINT
  36                       *FNTABL+22
  37 012177  1211          "X^2+"Y         /CODE FOR 'FXY'
  38               
  39                       *FNEW
  40 013224  4453  FXY,    FIXIT           /CHANGE X TO AN INTEGER
  41 013225  6053          DILX            /LOAD X AXIS CONVERTER
  42 013226  7200          CLA
  43 013227  1066          TAD CHAR
  44 013230  1072          TAD MCOM
  45 013231  7640          SZA CLA         /ARE THERE TWO ARGUMENTS?
  46 013232  5237          JMP .+5         /NO
  47 013233  4540          PUSHJ           /YES
  48 013234  1612              EVAL-1      /EVALUATE THE NEXT ONE
  49 013235  4453          FIXIT           /CHANGE Y TO AN INTEGER
  50 013236  6054          DILY            /LOAD Y AXIS CONVERTER
  51 013237  6052          DISD            /WAIT A WHILE
  52 013240  5237          JMP .-1
  53 013241  6055          DIXY            /BRIGHTEN THINGS UP
  54 013242  5536          RETURN
  55               STVAR=.;$

CHAR    0066
DILX    6053
DILY    6054
DISD    6052
DIXY    6055
END     0134
EVAL    1613
FIXIT   4453
FNEW    3224
FNTABF  0355
FNTABL  2155
FXY     3224
MCOM    0072
PUSHJ   4540
RETURN  5536
STVAR   3243