home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / modula / gemx.def < prev    next >
Encoding:
Modula Definition  |  1993-10-23  |  2.4 KB  |  50 lines
  1. (************************************************************************
  2. *                                                                       *
  3. *                  D E F I N I T I O N   M O D U L                      *
  4. *                                                                       *
  5. *    Projekt     :   Modula Einpass Compiler (m1pc)                     *
  6. *    Hauptmodul  :                                                      *
  7. *    Modul       :   GEMX                                               *
  8. *    Beginn      :   04.03.87                                           *
  9. *                                                                       *
  10. *    Bearbeitung                                                        *
  11. *    Freigegeben     <----                                              *
  12. *                                                                       *
  13. ************************************************************************)
  14.  
  15.  
  16. DEFINITION MODULE GEMX;
  17.  
  18.   TYPE  BasePage     = RECORD
  19.                          LowTPA    :    LONGINT;
  20.                          HighTPA   :    LONGINT;
  21.                          CodeBase  :    LONGINT;
  22.                          CodeLen   :    LONGINT;
  23.                          DataBase  :    LONGINT;
  24.                          DataLen   :    LONGINT;
  25.                          BssBase   :    LONGINT;
  26.                          BssLen    :    LONGINT;
  27.                          EnvPtr    :    LONGINT;
  28.                          filler    :    ARRAY [0..22] OF LONGINT;
  29.                          CmdLine   :    ARRAY [0..79] OF CHAR;
  30.                          notused   :    ARRAY [0..11] OF LONGINT;
  31.                        END;
  32.  
  33.         ExtInfoPtr   = POINTER TO ExtInfo;
  34.         ExtInfo      = RECORD                        (* after prg header *)
  35.                          branch     : CARDINAL;      (* skip instruction *)
  36.                          offset     : INTEGER;
  37.                          stackSize  : LONGINT;
  38.                          heapSize   : LONGINT;
  39.                          reserved1  : LONGINT;
  40.                          reserved2  : LONGINT;
  41.                          reserved3  : LONGINT;
  42.                        END;
  43.  
  44.   VAR   BasePagePtr :   POINTER TO BasePage;  
  45.  
  46.   (* hier darf sonst keine Variable deklariert werden !!!! *)
  47.   (* sonst muss auch der Linker geaendert werden      !!!! *)
  48.  
  49. END GEMX.
  50.