sources/pass1/stos.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............. /STOS/ .....
  17       IMPLICIT INTEGER (A-Z)
  18       COMMON /STOS/ BOTTOM,VALTOP,VLPREV,STCKAG,STCKA0,STCKAP(14),
  19      X              APETYT(4),LSTLSE,LSTFOR,KIND,PHADR,LASTPR,FSTOUT,
  20      X              CONSNR(8),LSTSAF,LSTEMP,TEMPNR,LSTWRD,QRECNR,WB,
  21      X              RESULT,FRSTTS,UNIT,INNER,LSTWILL,TEST,ARG,ATLINE,
  22      X              FILE,FLARGS,FLMODF,FLREADY,ICOUNT,OCOUNT
  23              LOGICAL LSTWILL,FLREADY,TEST
  24