/*
 * Copyright (c) 1997 David I. Bell
 * Permission is granted to use, distribute, or modify this source,
 * provided that this copyright notice remains intact.
 */


#if !defined(__OPCODES_H__)
#define	__OPCODES_H__


/*
 * Opcodes
 */
#define OP_NOP		0L	/* no operation */
#define OP_LOCALADDR	1L	/* load address of local variable */
#define OP_GLOBALADDR	2L	/* load address of global variable */
#define OP_PARAMADDR	3L	/* load address of paramater variable */
#define OP_LOCALVALUE	4L	/* load value of local variable */
#define OP_GLOBALVALUE	5L	/* load value of global variable */
#define OP_PARAMVALUE	6L	/* load value of paramater variable */
#define OP_NUMBER	7L	/* load constant real numeric value */
#define OP_INDEXADDR	8L	/* load array index address */
#define	OP_PRINTRESULT	9L	/* print result of top-level expression */
#define OP_ASSIGN	10L	/* assign value to variable */
#define OP_ADD		11L	/* add top two values */
#define OP_SUB		12L	/* subtract top two values */
#define OP_MUL		13L	/* multiply top two values */
#define OP_DIV		14L	/* divide top two values */
#define OP_MOD		15L	/* take mod of top two values */
#define OP_SAVE		16L	/* save value for later use */
#define OP_NEGATE	17L	/* negate top value */
#define OP_INVERT	18L	/* invert top value */
#define OP_INT		19L	/* take integer part of top value */
#define OP_FRAC		20L	/* take fraction part of top value */
#define OP_NUMERATOR	21L	/* take numerator of top value */
#define OP_DENOMINATOR	22L	/* take denominator of top value */
#define OP_DUPLICATE	23L	/* duplicate top value on stack */
#define OP_POP		24L	/* pop top value from stack */
#define OP_RETURN	25L	/* return value of function */
#define OP_JUMPEQ	26L	/* jump if top value is zero */
#define OP_JUMPNE	27L	/* jump if top value is nonzero */
#define OP_JUMP		28L	/* jump unconditionally */
#define OP_USERCALL	29L	/* call a user-defined function */
#define OP_GETVALUE	30L	/* convert address to value */
#define OP_EQ		31L	/* test top two elements for equality */
#define OP_NE		32L	/* test top two elements for inequality */
#define OP_LE		33L	/* test top two elements for <= */
#define OP_GE		34L	/* test top two elements for >= */
#define OP_LT		35L	/* test top two elements for < */
#define OP_GT		36L	/* test top two elements for > */
#define OP_PREINC	37L	/* add one to variable (++x) */
#define OP_PREDEC	38L	/* subtract one from variable (--x) */
#define OP_POSTINC	39L	/* add one to variable (x++) */
#define OP_POSTDEC	40L	/* subtract one from variable (x--) */
#define OP_DEBUG	41L	/* debugging point */
#define OP_PRINT	42L	/* print value */
#define OP_ASSIGNPOP	43L	/* assign to variable and remove it */
#define OP_ZERO		44L	/* put zero on the stack */
#define OP_ONE		45L	/* put one on the stack */
#define OP_PRINTEOL	46L	/* print end of line */
#define OP_PRINTSPACE	47L	/* print a space */
#define OP_PRINTSTRING	48L	/* print constant string */
#define OP_DUPVALUE	49L	/* duplicate value of top value */
#define OP_OLDVALUE	50L	/* old calculation value */
#define OP_QUO		51L	/* integer quotient of top two values */
#define OP_POWER	52L	/* number raised to a power */
#define OP_QUIT		53L	/* quit program */
#define OP_CALL		54L	/* call built-in routine */
#define OP_GETEPSILON	55L	/* get allowed error for calculations */
#define OP_AND		56L	/* arithmetic and */
#define OP_OR		57L	/* arithmetic or */
#define OP_NOT		58L	/* logical not */
#define OP_ABS		59L	/* absolute value */
#define OP_SGN		60L	/* sign of number */
#define OP_ISINT	61L	/* whether top value is integer */
#define OP_CONDORJUMP	62L	/* conditional or jump */
#define OP_CONDANDJUMP	63L	/* conditional and jump */
#define OP_SQUARE	64L	/* square top value */
#define OP_STRING	65L	/* load constant string value */
#define OP_ISNUM	66L	/* whether top value is a number */
#define OP_UNDEF	67L	/* load undefined value on stack */
#define OP_ISNULL	68L	/* whether variable is the null value */
#define OP_ARGVALUE	69L	/* load value of argument (parameter) n */
#define OP_MATCREATE	70L	/* create matrix */
#define OP_ISMAT	71L	/* whether variable is a matrix */
#define OP_ISSTR	72L	/* whether variable is a string */
#define OP_GETCONFIG	73L	/* get value of configuration parameter */
#define OP_LEFTSHIFT	74L	/* left shift of integer */
#define OP_RIGHTSHIFT	75L	/* right shift of integer */
#define OP_CASEJUMP	76L	/* test case and jump if not matched */
#define OP_ISODD	77L	/* whether value is an odd integer */
#define OP_ISEVEN	78L	/* whether value is even integer */
#define OP_FIADDR	79L	/* 'fast index' matrix value address */
#define OP_FIVALUE	80L	/* 'fast index' matrix value */
#define OP_ISREAL	81L	/* test value for real number */
#define OP_IMAGINARY	82L	/* load imaginary numeric constant */
#define OP_RE		83L	/* real part of complex number */
#define OP_IM		84L	/* imaginary part of complex number */
#define OP_CONJUGATE	85L	/* complex conjugate of complex number */
#define OP_OBJCREATE	86L	/* create object */
#define OP_ISOBJ	87L	/* whether value is an object */
#define OP_NORM		88L	/* norm of value (square of abs) */
#define OP_ELEMADDR	89L	/* address of element of object */
#define OP_ELEMVALUE	90L	/* value of element of object */
#define OP_ISTYPE	91L	/* whether two values are the same type */
#define OP_SCALE	92L	/* scale value by a power of two */
#define	OP_ISLIST	93L	/* whether value is a list */
#define	OP_SWAP		94L	/* swap values of two variables */
#define	OP_ISSIMPLE	95L	/* whether value is a simple type */
#define	OP_CMP		96L	/* compare values returning -1, 0, or 1 */
#define	OP_QUOMOD	97L	/* calculate quotient and remainder */
#define	OP_SETCONFIG	98L	/* set configuration parameter */
#define	OP_SETEPSILON	99L	/* set allowed error for calculations */
#define	OP_ISFILE	100L	/* whether value is a file */
#define	OP_ISASSOC	101L	/* whether value is an association */
#define	OP_INITSTATIC	102L	/* once only code for static initialization */
#define	OP_ELEMINIT	103L	/* assign element of matrix or object */
#define OP_ISCONFIG	104L	/* whether value is a configuration state */
#define OP_ISHASH	105L	/* whether value is a hash state */
#define OP_ISRAND	106L	/* whether value is additive 55 random state */
#define OP_ISRANDOM	107L	/* whether value is a Blum random state */
#define OP_SHOW		108L	/* show data about current state */
#define OP_INITFILL	109L	/* fill new matrix with copies of a value */
#define OP_ASSIGNBACK	110L	/* assign in reverse order */
#define OP_TEST		111L	/* test whether value is "nonzero" */
#define OP_ISDEFINED	112L	/* whether string names a function */
#define OP_ISOBJTYPE	113L	/* whether string names an object type */
#define OP_ISBLK	114L	/* whether value is a block */
#define OP_PTR		115L	/* octet pointer */
#define OP_DEREF	116L	/* dereference an octet pointer */
#define OP_ISOCTET	117L	/* whether value is an octet */
#define OP_ISPTR	118L	/* whether value is a pointer */
#define OP_SAVEVAL	119L	/* activate updating */
#define OP_LINKS	120L	/* return links for numbers and strings */
#define OP_BIT		121L	/* whether specified bit is set */
#define OP_COMP		122L	/* complement value */
#define OP_XOR		123L	/* xor (~) of values */
#define OP_HIGHBIT	124L	/* index of high bit of value */
#define OP_LOWBIT	125L	/* index of low bit of value */
#define OP_CONTENT	126L	/* value returned by unary # */
#define OP_HASHOP	127L	/* binary # */
#define OP_BACKSLASH	128L	/* unary backslash */
#define OP_SETMINUS	129L	/* binary backslash */
#define OP_PLUS		130L	/* unary + */
#define MAX_OPCODE	130L	/* highest legal opcode */


/*
 * external declarations
 */
extern char *funcname;			/* function being executed */
extern long funcline;			/* function line being executed */


#endif /* !__OPCODES_H__ */