home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol162 / global.inc < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.9 KB  |  86 lines
  1.  
  2. LABEL
  3.    99;
  4.  
  5. CONST
  6.    NKW    = 26;
  7. (*NO. OF KEY WORDS*)
  8.    ALNG = 10;
  9. (*NO. OF SIGNIFICANT CHARS IN INDENTIFIERS*)
  10.    LLNG = 121;
  11. (*INPUTLINE LENGHT*)
  12.    KMAX = 15;
  13. (*MAX NO. OF SIGNIFICANT DIGITIS*)
  14.    TMAX = 70;
  15. (*SIZE    OF TABLE*)
  16.    BMAX = 20;
  17. (*SIZE    OF BLOCK-TABLE*)
  18.    AMAX = 10;
  19. (*SIZE    OF ARRAY TABLE*)
  20.    CMAX = 500;
  21. (*SIZE    OF CODE*)
  22.    LMAX = 7;
  23. (*MAXIMUM LEVEL*)
  24.    SMAX = 150;
  25. (*SIZE    OF STRING TABLE*)
  26.    OMAX = 63;
  27. (*HIGHEST ORDER CODE*)
  28.    XMAX = 32767;
  29. (*2**15 - 1*)
  30.    NMAX = MAXINT;
  31.    LINELENG = 132;
  32. (*OUTPUT LINE LENGHT*)
  33.    LINELIMIT =    400;
  34. (*MAX LINES TO    PRINT*)
  35.    STMAX = 2800;
  36. (*STACKSIZE*)
  37.    STKINCR = 200;
  38. (*STCKSIZE FOR    EACH PROCESS*)
  39.    PMAX = 7;
  40. (*MAX CONCURRENT PROCESSES*)
  41. (* INTERPRETER    DECLARATIONS *)
  42.    STEPMAX = 8;
  43. (*MAX STEPS BEFORS PROCESS SWITCH*)
  44.    TRU    = 1;
  45. (*INTEGER VALUE OF TRUE*)
  46.    FALS = 0;
  47. (*INTEGER VALUE OF FALSE*)
  48.    CHARL = 0;
  49. (*LOWEST CHARACTER ORDINAL*)
  50.    CHARH = 255;
  51. (*HIGHEST CHARACTER ORDINAL*)
  52.  
  53. TYPE
  54.    PSTRG  = ^STRING;
  55.    FNTYP  = STRING[16];
  56.    SYMBOL =
  57.       (INTCON,    CHARCON, STRING, NOTSY,    PLUS, MINUS, TIMES, IDIV, IMOD,
  58.     ANDSY, ORSY, EQL, NEQ, GEQ, GTR, LSS, LEQ, LPARENT, RPARENT,
  59.     LBRACK,    RBRACK,    COMMA, SEMICOLON, PERIOD, COLON, BECOMES, CONSTSY
  60.     , TYPESY, VARSY, FUNCTIONSY, PROCEDURESY, ARRAYSY, PROGRAMSY,
  61.     IDENT, BEGINSY,    IFSY, REPEATSY,    WHILESY, FORSY,    ENDSY, ELSESY,
  62.     UNTILSY, OFSY, DOSY, TOSY, THENSY);
  63.    INDEX = - XMAX .. +    XMAX;
  64.    ALFA = PACKED ARRAY
  65.       [1.. ALNG] OF CHAR;
  66.    OBJECT =
  67.       (KONSTANT, VARIABLE, TYPE1, PROZEDURE, FUNKTION);
  68.    TYPES =
  69.       (NOTYP, INTS, BOOLS, CHARS, ARRAYS);
  70.    ER =
  71.       (ERID, ERTYP, ERKEY, ERPUN, ERPAR, ERNF,    ERDUP, ERCH, ERSH, ERLN);
  72.    SYMSET = SET OF SYMBOL;
  73.    TYPSET = SET OF TYPES;
  74.    ITEM = RECORD
  75.           TYP: TYPES;
  76.           REF: INDEX;
  77.        END;
  78.    ORDER = PACKED RECORD
  79.               F: - OMAX    .. + OMAX;
  80.               X: - LMAX    .. + LMAX;
  81.               Y: - NMAX    .. + NMAX;
  82.            END;
  83.    PTYPE = 0..PMAX;
  84. (*INDEX OVER PROCESSES*)
  85.  
  86.