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
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.
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 ===============================================================
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,
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
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
35 C IDENTYFIKATORY PROTOTYPOW SYSTEMOWYCH
36 C NRINT - IDENTYFIKATOR PROTOTYPU INTEGER
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
47 C NBLSYS - IDENTYFIKATOR BLOKU SYSTEMOWEGO
48 C NBLUS - BLOKU GLOWNEGO UZYTKOWNIKA
50 C INSYS - FLAGA SPOSOBU REZERWACJI (PRZEZ MGETM) PAMIECI
51 C W IPMEM - .TRUE. JESLI REZERWACJA W CZESCI SYSTE-
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)