home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume26 / calc / part03 / opcodes.h < prev    next >
C/C++ Source or Header  |  1992-05-09  |  6KB  |  121 lines
  1. /*
  2.  * Copyright (c) 1992 David I. Bell
  3.  * Permission is granted to use, distribute, or modify this source,
  4.  * provided that this copyright notice remains intact.
  5.  */
  6.  
  7.  
  8. /*
  9.  * Opcodes
  10.  */
  11. #define OP_NOP        0L    /* no operation */
  12. #define OP_LOCALADDR    1L    /* load address of local variable */
  13. #define OP_GLOBALADDR    2L    /* load address of global variable */
  14. #define OP_PARAMADDR    3L    /* load address of paramater variable */
  15. #define OP_LOCALVALUE    4L    /* load value of local variable */
  16. #define OP_GLOBALVALUE    5L    /* load value of global variable */
  17. #define OP_PARAMVALUE    6L    /* load value of paramater variable */
  18. #define OP_NUMBER    7L    /* load constant real numeric value */
  19. #define OP_INDEXADDR    8L    /* load array index address */
  20. #define OP_INDEXVALUE    9L    /* load array value */
  21. #define OP_ASSIGN    10L    /* assign value to variable */
  22. #define OP_ADD        11L    /* add top two values */
  23. #define OP_SUB        12L    /* subtract top two values */
  24. #define OP_MUL        13L    /* multiply top two values */
  25. #define OP_DIV        14L    /* divide top two values */
  26. #define OP_MOD        15L    /* take mod of top two values */
  27. #define OP_SAVE        16L    /* save value for later use */
  28. #define OP_NEGATE    17L    /* negate top value */
  29. #define OP_INVERT    18L    /* invert top value */
  30. #define OP_INT        19L    /* take integer part of top value */
  31. #define OP_FRAC        20L    /* take fraction part of top value */
  32. #define OP_NUMERATOR    21L    /* take numerator of top value */
  33. #define OP_DENOMINATOR    22L    /* take denominator of top value */
  34. #define OP_DUPLICATE    23L    /* duplicate top value on stack */
  35. #define OP_POP        24L    /* pop top value from stack */
  36. #define OP_RETURN    25L    /* return value of function */
  37. #define OP_JUMPEQ    26L    /* jump if top value is zero */
  38. #define OP_JUMPNE    27L    /* jump if top value is nonzero */
  39. #define OP_JUMP        28L    /* jump unconditionally */
  40. #define OP_USERCALL    29L    /* call a user-defined function */
  41. #define OP_GETVALUE    30L    /* convert address to value */
  42. #define OP_EQ        31L    /* test top two elements for equality */
  43. #define OP_NE        32L    /* test top two elements for inequality */
  44. #define OP_LE        33L    /* test top two elements for <= */
  45. #define OP_GE        34L    /* test top two elements for >= */
  46. #define OP_LT        35L    /* test top two elements for < */
  47. #define OP_GT        36L    /* test top two elements for > */
  48. #define OP_PREINC    37L    /* add one to variable (++x) */
  49. #define OP_PREDEC    38L    /* subtract one from variable (--x) */
  50. #define OP_POSTINC    39L    /* add one to variable (x++) */
  51. #define OP_POSTDEC    40L    /* subtract one from variable (x--) */
  52. #define OP_DEBUG    41L    /* debugging point */
  53. #define OP_PRINT    42L    /* print value */
  54. #define OP_ASSIGNPOP    43L    /* assign to variable and remove it */
  55. #define OP_ZERO        44L    /* put zero on the stack */
  56. #define OP_ONE        45L    /* put one on the stack */
  57. #define OP_PRINTEOL    46L    /* print end of line */
  58. #define OP_PRINTSPACE    47L    /* print a space */
  59. #define OP_PRINTSTRING    48L    /* print constant string */
  60. #define OP_DUPVALUE    49L    /* duplicate value of top value */
  61. #define OP_OLDVALUE    50L    /* old calculation value */
  62. #define OP_QUO        51L    /* integer quotient of top two values */
  63. #define OP_POWER    52L    /* number raised to a power */
  64. #define OP_QUIT        53L    /* quit program */
  65. #define OP_CALL        54L    /* call built-in routine */
  66. #define OP_GETEPSILON    55L    /* get allowed error for calculations */
  67. #define OP_AND        56L    /* arithmetic and */
  68. #define OP_OR        57L    /* arithmetic or */
  69. #define OP_NOT        58L    /* logical not */
  70. #define OP_ABS        59L    /* absolute value */
  71. #define OP_SGN        60L    /* sign of number */
  72. #define OP_ISINT    61L    /* whether top value is integer */
  73. #define OP_CONDORJUMP    62L    /* conditional or jump */
  74. #define OP_CONDANDJUMP    63L    /* conditional and jump */
  75. #define OP_SQUARE    64L    /* square top value */
  76. #define OP_STRING    65L    /* load constant string value */
  77. #define OP_ISNUM    66L    /* whether top value is a number */
  78. #define OP_UNDEF    67L    /* load undefined value on stack */
  79. #define OP_ISNULL    68L    /* whether variable is the null value */
  80. #define OP_ARGVALUE    69L    /* load value of argument (parameter) n */
  81. #define OP_MATINIT    70L    /* initialize matrix */
  82. #define OP_ISMAT    71L    /* whether variable is a matrix */
  83. #define OP_ISSTR    72L    /* whether variable is a string */
  84. #define OP_GETCONFIG    73L    /* get value of configuration parameter */
  85. #define OP_LEFTSHIFT    74L    /* left shift of integer */
  86. #define OP_RIGHTSHIFT    75L    /* right shift of integer */
  87. #define OP_CASEJUMP    76L    /* test case and jump if not matched */
  88. #define OP_ISODD    77L    /* whether value is an odd integer */
  89. #define OP_ISEVEN    78L    /* whether value is even integer */
  90. #define OP_FIADDR    79L    /* 'fast index' matrix value address */
  91. #define OP_FIVALUE    80L    /* 'fast index' matrix value */
  92. #define OP_ISREAL    81L    /* test value for real number */
  93. #define OP_IMAGINARY    82L    /* load imaginary numeric constant */
  94. #define OP_RE        83L    /* real part of complex number */
  95. #define OP_IM        84L    /* imaginary part of complex number */
  96. #define OP_CONJUGATE    85L    /* complex conjugate of complex number */
  97. #define OP_OBJINIT    86L    /* initialize object */
  98. #define OP_ISOBJ    87L    /* whether value is an object */
  99. #define OP_NORM        88L    /* norm of value (square of abs) */
  100. #define OP_ELEMADDR    89L    /* address of element of object */
  101. #define OP_ELEMVALUE    90L    /* value of element of object */
  102. #define OP_ISTYPE    91L    /* whether two values are the same type */
  103. #define OP_SCALE    92L    /* scale value by a power of two */
  104. #define    OP_ISLIST    93L    /* whether value is a list */
  105. #define    OP_SWAP        94L    /* swap values of two variables */
  106. #define    OP_ISSIMPLE    95L    /* whether value is a simple type */
  107. #define    OP_CMP        96L    /* compare values returning -1, 0, or 1 */
  108. #define    OP_QUOMOD    97L    /* calculate quotient and remainder */
  109. #define    OP_SETCONFIG    98L    /* set configuration parameter */
  110. #define    OP_SETEPSILON    99L    /* set allowed error for calculations */
  111. #define    OP_PRINTRESULT    100L    /* print result of top-level expression */
  112. #define    OP_ISFILE    101L    /* whether value is a file */
  113. #define MAX_OPCODE    101L    /* highest legal opcode */
  114.  
  115. /*
  116.  * function declarations - most to keep lint happy
  117.  */
  118. extern void updateoldvalue();
  119.  
  120. /* END CODE */
  121.