sources/pass1/blank.doc

   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       COMMON /BLANK/ COM(278),
  18      X        LMEM  , LPMEM , IRECN , ISFIN , LPMSYS, LPML  , LPMF  ,
  19      X        NRINT , NRRE  , NRBOOL, NRCHR , NRCOR , NRPROC, NRTEXT,
  20      X        NRUNIV, NATTR , NRNONE, NBLSYS, NBLUS , NEMPTY, INSYS ,
  21      X        LOCAL , OWN   , OBJECT,
  22      X        IPMEM(5000)
  23 C
  24 C             COM    - OBSZAR KOMUNIKACYJNY STRUMIENI
  25 C             LMEM   - (=5000) ROZMIAR CALEJ PAMIECI GLOWNEJ
  26 C             LPMEM  - PODZIAL PAMIECI NA CZESCI  IPMEM  I  ISMEM
  27 C             IRECN  - INDEKS SZCZYTU STOSU STALYCH REAL
  28 C             ISFIN  - INDEKS SZCZYTU SLOWNIKA PROTOTYPOW
  29 C
  30 C             LPMSYS - INDEKS PIERWSZEGO SLOWA W IPMEM OBSZARU NIEPRZEZ-
  31 C                      NACZONEGO NA PROTOTYPY SYSTEMOWE
  32 C             LPML   - INDEKS PIERWSZEGO SLOWA OBSZARU WOLNEGO W IPMEM
  33 C             LPMF   - INDEKS OSTATNIEGO SLOWA WOLNEGO OBSZARU W IPMEM
  34 C
  35 C     IDENTYFIKATORY PROTOTYPOW SYSTEMOWYCH
  36 C             NRINT  - IDENTYFIKATOR PROTOTYPU  INTEGER
  37 C             NRRE   -                          REAL
  38 C             NRBOOL -                          BOOLEAN
  39 C             NRCHR  -                          CHARACTER
  40 C             NRCOR  -                          COROUTINE
  41 C             NRPROC -                          PROCESS
  42 C             NRTEXT -                          STRING (TEXT)
  43 C             NRUNIV - IDENTYFIKATOR PROTOTYPU UNIWERSALNEGO
  44 C             NATTR  - IDENTYFIKATOR PSEUDO-ATRYBUTU (Z NUMEREM -1)
  45 C             NRNONE - IDENTYFIKATOR PROTOTYPU TYPU NONE (UNIWERSALNY
  46 C                      REFERENCYJNY)
  47 C             NBLSYS - IDENTYFIKATOR BLOKU SYSTEMOWEGO
  48 C             NBLUS  -               BLOKU GLOWNEGO UZYTKOWNIKA
  49 C
  50 C             INSYS  - FLAGA SPOSOBU REZERWACJI (PRZEZ  MGETM) PAMIECI
  51 C                      W IPMEM - .TRUE. JESLI REZERWACJA W CZESCI SYSTE-
  52 C                      MOWEJ
  53 C             LOCAL  - FLAGA DOSTEPU DO OBIEKTOW - 2 JESLI OBIEKT
  54 C         BYL LOKALNY, 1 - GDY Z SL, 0 - GDY Z BLOKU GLOWNEGO
  55 C             OWN    - FLAGA DOSTEPU DO OBIEKTOW - .TRUE. JESLI OBIEKT NIE
  56 C                      POCHODZI Z PREFIKSOW (TYLKO Z WLASCIWEGO OBIEKTU)
  57 C             OBJECT - PROTOTYP OBIEKTU, Z KTOREGO POCHODZIL OSTATNIO
  58 C                     SZUKANY IDENTYFIKATOR (OBIEKT POCHODZACY Z CIAGU SL)
  59 C
  60