.SD;.FLAGS CAPITALIZE
.NONUMBER
.TITLE ^^PARSAE- ^ARITHMETIC EXPRESSION PARSER
.PAGE
.INDENT 50
^^PARSAE
.SKIP 1
.CENTER
^^PARSAE- ^ARITHMETIC EXPRESSION PARSER
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: ^^PARSAE\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO PARSE A GENERALIZED ARITHMETIC EXPRESSION INTO
A REVERSE POLISH TABLE THAT CAN BE EVALUATED BY THE
^^EVALAE\\ SUBROUTINE.  ^IT ALSO PRODUCES A SYMBOL 
TABLE THAT CAN BE ACCESSED BY THE ^^SETVAL\\ AND <GETVAL
SUBROUTINES.
^^NOTE:\\ ^^EVALAE\\ IS A REAL FUNCTION ONLY AND YOU MUST DECLARE IT SPECIFICALLY
REAL IF YOUR PROGRAMS USE IMPLICIT INTEGER.  ^ALL VALUES IN AN EQUATION
ARE TREATED AS REAL ALSO.

.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM ^^FORTRAN
.CENTER
 ^^CALL PARSAE (STRING,LEN,RPNTAB,SYMTAB[,ERR])\\
.CENTER
 OR
.CENTER
 ^^ ERR=PARSAE(STRING,LEN,RPNTAB,SYMTAB)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\
.SKIP;.INDENT -9
^^STRING---T\\HE ARITHMETIC EXPRESSION CONTAINING SYMBOLS AND
CONSTANTS COMBINED WITH THE FOLLOWING LEGAL OPERATIONS:
.SK;.INDENT 15
^^&BINARY FUNCTIONS&\\
.SK;.INDENT 15
.INDENT 15
*    MULTIPLICATION
.INDENT 15
/    DIVISION
.INDENT 15
-    SUBTRACTION
.INDENT 15
+    ADDITION
.INDENT 15
**   EXPONENTIATION
.SKIP
.INDENT 15
^^&RELATIONAL FUNCTIONS&\\
.INDENT 15
|	VERTICAL BAR - "^^OR"\\
.INDENT 15
_&	LOGICAL ^^"AND"\\
.INDENT 15
_\	"OR" (EQUIVALENT TO |)
.INDENT 15
_>=	greater than or equal to
.INDENT 15
_<_>	Not equal to
.INDENT 15
_<=	less than or equal to
.INDENT 15
_>	greater than
.INDENT 15
_<	less than
.INDENT 15
==	is equal to
.INDENT 15
=	arithmatic replacement
.INDENT 15
.skip
.INDENT 15
^^UNARY FUNCTIONS\\
.INDENT 15
^^SQRT\\(x)	square root of x
.INDENT 15
^^LN\\(x)	natural log of x
.INDENT 15
^^EXP\\(x)	e to the x
.INDENT 15
^^NOT\\(x)	the complement of x
.INDENT 15
^^ABS\\(x)	the magnitude of x
.INDENT 15
^^CONF\\05(N) 95% CONFIDENCE INTERVAL
.INDENT 15
^^CONF\\0l(N) 99% CONFIDENCE INTERVAL
.SKIP
^FULLY PARENTHISISED EXPRESSIONS ARE SUPPORTED.
.SKIP 1
.INDENT 15
^^BUILT IN CONTANTS\\
.INDENT 15
^^PIE\\------3.1415927
.INDENT 15
<E  ---------2.7182818
.INDENT 15
^^true\\ ----1.0
.INDENT 15
^^FALSE\\-----0.0
.SKIP 1
(ALSO SEE <CALC DOCUMENTATION)
.SKIP 1
^^STRING\\ MUST BE DIMENSIONED TO THE EXPECTED LENGTH PLUS ONE.
.SK;.INDENT -10
^^LEN\\------^THE LENGTH IN BYTES OF ^^STRING\\ DEFAULT IS 32.  SET ^^SETMAX\\ 
TO CHANGE DEFAULT.
.SK;.INDENT -10
^^RPNTAB\\---- ^REVERSE POLISH TABLE.  ^AN ARRAY FOR STORING AN
EXPRESSION.  ^THIS SHOULD BE DIMENSIONAL 2 WORDS ACROSS AND N 
WORDS DOWN WHERE N IS THE NUMBER OF EXPECTED OPERANDS PER
EXPRESSION.
.SK;.INDENT -10
^^SYMTAB\\-----^SYMBOL TABLE ARRAY.  ^THIS SHOULD BE DIMENSIONED 
TO (12*M)+1 WORDS, WHERE M IS THE EXPECTED MAXIMUM NUMBER OF SYMBOLS.  ^THERE
IS NO CHECK IN <PARSAE TO SEE IF THIS TABLE IS FULL OR NOT, SO MAKE IT BIG
ENOUGH.
^ALL SYMBOL NAMES ARE STORED AS LEFT JUSTIFIED, SPACE FILLED 8 BYTE FIELDS,
AND ALL VALUES ARE REAL.  ^CONSTANTS, ALTHOUGH THEY DO NOT HAVE A NAME, ARE
STORED IN THE SYMBOL TABLE AND THEREFORE TAKE UP 12 BYTES EACH ANYWAY.  ^LEGAL
SYMBOL NAMES IN AN EXPRESSION CAN START WITH ANY ALPHABECTIC CHARACTER (WHICH
INCLUDES THE SPECIAL CHARACTERS $ AND _%).  ^THE REMAINING 7 CHARACTERS (OR LESS)
CAN CONTAIN ALPHAS OR NUMERIC CHARACTERS.
.SK;.INDENT -10
^^ERR\\--------^^ERR\\=0  PARSAE FAILED
		^^ERR.NE.0\\  <PARSAE WAS SUCCESSFUL.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^ARTDEF\\ <FINP
.SKIP 1
.INDENT -10
^^EXAMPLE:\\
.SKIP
.I -10
^^CALL PARSAE('X=LN(20)*TITER/2**5',19,RPNTAB,SYMTAB)\\
.INDENT -10
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^mike ^higgins
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^august 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^MACRO\-11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^PARSAE\\
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ ^a ^while ^ago
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ see ^mike ^higgins
.SKIP 1
.INDENT -10