sources/pass1/blank.h

   1 C    Loglan82 Compiler&Interpreter
   2 C     Copyright (C) 1981-1993 Institute of Informatics, University of Warsaw
   3 C     Copyright (C)  1993, 1994 LITA, Pau
   4 C
   5 C     This program is free software; you can redistribute it and/or modify
   6 C     it under the terms of the GNU General Public License as published by
   7 C     the Free Software Foundation; either version 2 of the License, or
   8 C     (at your option) any later version.
   9 C
  10 C     This program is distributed in the hope that it will be useful,
  11 C     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 C     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 C     GNU General Public License for more details. File: LICENSE.GNU
  14 C  ===============================================================
  15
  16 C
  17       LOGICAL   INSYS,  OWN
  18       COMMON /BLANK/ IOP(4),
  19      X        P,
  20      X        TLDIM, TLBAS,  IDL, OBJL,
  21      X        TRDIM, TRBAS,  IDR, OBJR,
  22      X        TRESLT,
  23      X        CONVL, CONVR,
  24      X        NRPAR,
  25      X        IX (261),
  26      X        LMEM  , LPMEM , IRECN , ISFIN , LPMSYS, LPML  , LPMF  ,
  27      X        NRINT , NRRE  , NRBOOL, NRCHR , NRCOR , NRPROC, NRTEXT,
  28      X        NRUNIV, NATTR , NRNONE, NBLSYS, NBLUS , NEMPTY, INSYS ,
  29      X        LOCAL,  OWN,    OBJECT,
  30      X        IPMEM(5000)
  31       REAL   STALER(100)
  32       INTEGER STACK(5000)
  33       EQUIVALENCE(STALER(1),IPMEM(1))
  34       EQUIVALENCE(STACK(1),IPMEM(1))
  35