Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0001/codes.for
There is 1 other file named codes.for in the archive. Click here to see a list.
C
C
C
C COPYRIGHT (c) 1977 BY
C DIGITAL EQUIPMENT CORPORTATION, MAYNARD, MASS.
C
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
C ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
C INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
C COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
C OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
C TRANSFERRED.
C
C THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
C AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
C CORPORATION.
C
C DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
C SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
C
C
C
C
C
C
C
C
C ++++++++++++++++++++++++++++++++++++++++++++++++++
C + +
C + CALC VERSION X01-01 +
C + +
C + PETER BAUM 1-SEP-77 +
C + DIGITAL EQUIPMENT CORPORATION +
C + 146 MAIN STREET +
C + MAYNARD, MASSACHUSETTS 01754 +
C + +
C ++++++++++++++++++++++++++++++++++++++++++++++++++
C
C
C
C
C
C
C THIS FILE GIVES THE VARIABLE AND FUNCTION CODES.
C TABLE ALSO GIVES COMPARE VALUES AND STACK VALUES OF
C FUNCTIONS THAT OCCUR WHEN EXPRESSIONS ARE EVALUATED.
C THIS FILE CONTAINS NO COMPILABLE CODE.
C
C
C THE OPERATOR COMPARE AND STACK VALUES ARE DEFINED WITHIN
C THE SUBROUTINE INPOST BY THE DATA STATEMENT FOR OPVAL(200,2)
C
C
C
C
C
C
C
C
C
C
C
C STACK
C ELEMENT COMPARE STACK
C CODE TYPE BYTES VALUE VALUE
C
C 0 UNDEFINED - - -
C 1 ASCII 1 - -
C 2 DECIMAL 8 - -
C 3 HEXADECIMAL 4 - -
C 4 INTEGER 4 - -
C 5 MULT.PREC.(10) 100 - -
C 6 MULT.PREC.(8) 100 - -
C 7 MULT.PREC.(16) 100 - -
C 8 OCTAL 4 -
C 9 REAL 8 - -
C 10-30 UNDEFINED - - -
C
C ----------FUNCTIONS------------
C
C 31 ABS (=DABS) - 70 45
C 32 IABS - 70 45
C 33 FLOAT - 70 45
C 34 IFIX - 70 45
C 35 AINT - 70 45
C 36 INT (=IDINT) - 70 45
C 37 EXP (=DEXP) - 70 45
C 38 ALOG (=DLOG) - 70 45
C 39 ALOG10(=DLOG10) - 70 45
C 40 SQRT (=DSQRT) - 70 45
C 41 SIN (=DSIN) - 70 45
C 42 COS (=DCOS) - 70 45
C 43 TANH (=DTANH) - 70 45
C 44 ATAN (=DATAN) - 70 45
C 45 RESERVED - - -
C 46 RESERVED - - -
C 47 RESERVED - - -
C 48 RESERVED - - -
C 49 RESERVED - - -
C 50-100 RESERVED - - -
C 110 ( - 70 15
C 111 UNARY - - 50 49
C 112 ** - 40 39
C 113 * - 30 31
C 114 / - 30 31
C 115 + - 20 21
C 116 - - 20 21
C 117 ) - 10 -
C 200 = - 10 10