(************************************************************************
*                                                                       *
*                  D E F I N I T I O N   M O D U L                      *
*                                                                       *
*    Projekt     :   Modula Einpass Compiler (m1pc)                     *
*    Hauptmodul  :                                                      *
*    Modul       :   GEMX                                               *
*    Beginn      :   04.03.87                                           *
*                                                                       *
*    Bearbeitung                                                        *
*    Freigegeben     <----                                              *
*                                                                       *
************************************************************************)


DEFINITION MODULE GEMX;

  TYPE  BasePage     = RECORD
                         LowTPA    :    LONGINT;
                         HighTPA   :    LONGINT;
                         CodeBase  :    LONGINT;
                         CodeLen   :    LONGINT;
                         DataBase  :    LONGINT;
                         DataLen   :    LONGINT;
                         BssBase   :    LONGINT;
                         BssLen    :    LONGINT;
                         EnvPtr    :    LONGINT;
                         filler    :    ARRAY [0..22] OF LONGINT;
                         CmdLine   :    ARRAY [0..79] OF CHAR;
                         notused   :    ARRAY [0..11] OF LONGINT;
                       END;

        ExtInfoPtr   = POINTER TO ExtInfo;
        ExtInfo      = RECORD                        (* after prg header *)
                         branch     : CARDINAL;      (* skip instruction *)
                         offset     : INTEGER;
                         stackSize  : LONGINT;
                         heapSize   : LONGINT;
                         reserved1  : LONGINT;
                         reserved2  : LONGINT;
                         reserved3  : LONGINT;
                       END;

  VAR   BasePagePtr :   POINTER TO BasePage;  

  (* hier darf sonst keine Variable deklariert werden !!!! *)
  (* sonst muss auch der Linker geaendert werden      !!!! *)

END GEMX.
